diff options
| author | Andreas Bregas <ab@openoffice.org> | 2002-11-18 07:38:47 +0000 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2002-11-18 07:38:47 +0000 |
| commit | 4ba6b71a66aba4ce3866e6e027e89222ba4c8ab0 (patch) | |
| tree | 38e6712ffc48cfc65c2fabd99b8c9bafa6bb5faf /basic/source/runtime/methods.cxx | |
| parent | 7e1536e31eac49a2d72d7aced6150d7b8c6d6d1b (diff) | |
#102653# 32 bit arrays
Diffstat (limited to 'basic/source/runtime/methods.cxx')
| -rw-r--r-- | basic/source/runtime/methods.cxx | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx index 1ec88fa4ef47..46cb8cd5efd4 100644 --- a/basic/source/runtime/methods.cxx +++ b/basic/source/runtime/methods.cxx @@ -2,9 +2,9 @@ * * $RCSfile: methods.cxx,v $ * - * $Revision: 1.45 $ + * $Revision: 1.46 $ * - * last change: $Author: ab $ $Date: 2002-10-17 14:30:00 $ + * last change: $Author: ab $ $Date: 2002-11-18 08:36:02 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -3480,12 +3480,12 @@ RTLFUNC(LBound) SbxDimArray* pArr = PTR_CAST(SbxDimArray,pParObj); if( pArr ) { - short nLower, nUpper; + INT32 nLower, nUpper; short nDim = (nParCount == 3) ? (short)rPar.Get(2)->GetInteger() : 1; - if( !pArr->GetDim( nDim, nLower, nUpper ) ) + if( !pArr->GetDim32( nDim, nLower, nUpper ) ) StarBASIC::Error( SbERR_OUT_OF_RANGE ); else - rPar.Get(0)->PutInteger( (INT16)nLower ); + rPar.Get(0)->PutLong( nLower ); } else StarBASIC::Error( SbERR_MUST_HAVE_DIMS ); @@ -3504,12 +3504,12 @@ RTLFUNC(UBound) SbxDimArray* pArr = PTR_CAST(SbxDimArray,pParObj); if( pArr ) { - short nLower, nUpper; + INT32 nLower, nUpper; short nDim = (nParCount == 3) ? (short)rPar.Get(2)->GetInteger() : 1; - if( !pArr->GetDim( nDim, nLower, nUpper ) ) + if( !pArr->GetDim32( nDim, nLower, nUpper ) ) StarBASIC::Error( SbERR_OUT_OF_RANGE ); else - rPar.Get(0)->PutInteger( (INT16)nUpper ); + rPar.Get(0)->PutLong( nUpper ); } else StarBASIC::Error( SbERR_MUST_HAVE_DIMS ); |