From 7d336b291bf4140af149c37480d6fe567e2cbbc1 Mon Sep 17 00:00:00 2001
From: Oliver Bolte <obo@openoffice.org>
Date: Fri, 28 May 2004 13:35:12 +0000
Subject: INTEGRATION: CWS ab08fixes (1.16.2); FILE MERGED 2004/04/02 08:24:25
 ab 1.16.2.1: #i18989# Made dim handling in DimArray() and Array() consistant
 to Dim command

---
 basic/source/runtime/methods1.cxx | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx
index faa4b9160557..dc45ef6d1e41 100644
--- a/basic/source/runtime/methods1.cxx
+++ b/basic/source/runtime/methods1.cxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: methods1.cxx,v $
  *
- *  $Revision: 1.16 $
+ *  $Revision: 1.17 $
  *
- *  last change: $Author: obo $ $Date: 2004-03-17 13:36:19 $
+ *  last change: $Author: obo $ $Date: 2004-05-28 14:35:12 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -576,6 +576,8 @@ RTLFUNC(Array)
     // Option Base zunaechst ignorieren (kennt leider nur der Compiler)
     if( nArraySize )
         pArray->AddDim( 0, nArraySize-1 );
+    else
+        pArray->unoAddDim( 0, -1 );
 
     // Parameter ins Array uebernehmen
     for( short i = 0 ; i < nArraySize ; i++ )
@@ -615,6 +617,9 @@ RTLFUNC(DimArray)
             pArray->AddDim32( 0, ub );
         }
     }
+    else
+        pArray->unoAddDim( 0, -1 );
+
     // Array zurueckliefern
     SbxVariableRef refVar = rPar.Get(0);
     USHORT nFlags = refVar->GetFlags();
-- 
cgit