From 4ba6b71a66aba4ce3866e6e027e89222ba4c8ab0 Mon Sep 17 00:00:00 2001
From: Andreas Bregas <ab@openoffice.org>
Date: Mon, 18 Nov 2002 07:38:47 +0000
Subject: #102653# 32 bit arrays

---
 basic/source/runtime/methods1.cxx | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'basic/source/runtime/methods1.cxx')

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
-- 
cgit