mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

#102653# 32 bit arrays

Browse Source
This commit is contained in:
Andreas Bregas
2002-11-18 07:38:47 +00:00
parent 7e1536e31e
commit 4ba6b71a66
4 changed files with 36 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
basic/source/runtime/methods.cxx
View File

@@ -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 );