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/methods1.cxx | |
| parent | 7e1536e31eac49a2d72d7aced6150d7b8c6d6d1b (diff) | |
#102653# 32 bit arrays
Diffstat (limited to 'basic/source/runtime/methods1.cxx')
| -rw-r--r-- | basic/source/runtime/methods1.cxx | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx index 2a9df28cbdd32..56cfa81923111 100644 --- a/basic/source/runtime/methods1.cxx +++ b/basic/source/runtime/methods1.cxx @@ -2,9 +2,9 @@ * * $RCSfile: methods1.cxx,v $ * - * $Revision: 1.10 $ + * $Revision: 1.11 $ * - * last change: $Author: ab $ $Date: 2002-10-08 09:05:47 $ + * last change: $Author: ab $ $Date: 2002-11-18 08:36:36 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -594,19 +594,19 @@ RTLFUNC(Array) // Das Array ist immer vom Typ Variant RTLFUNC(DimArray) { - SbxDimArray* pArray = new SbxDimArray( SbxVARIANT ); + SbxDimArray * pArray = new SbxDimArray( SbxVARIANT ); USHORT nArrayDims = rPar.Count() - 1; if( nArrayDims > 0 ) { for( USHORT i = 0; i < nArrayDims ; i++ ) { - INT16 ub = rPar.Get(i+1)->GetInteger(); + INT32 ub = rPar.Get(i+1)->GetLong(); if( ub < 0 ) { StarBASIC::Error( SbERR_OUT_OF_RANGE ); ub = 0; } - pArray->AddDim( 0, ub ); + pArray->AddDim32( 0, ub ); } } // Array zurueckliefern |