diff options
author | Andreas Bregas <ab@openoffice.org> | 2001-06-05 08:47:16 +0000 |
---|---|---|
committer | Andreas Bregas <ab@openoffice.org> | 2001-06-05 08:47:16 +0000 |
commit | c118d09ee93eec9aaf831f716fd8c6a4d9304858 (patch) | |
tree | 101e0c3d3edcf461567443766d7a3f3306a2a20c /basic | |
parent | #87607# use external mail client UI to send document as e-mail attachment vie... (diff) | |
download | core-c118d09ee93eec9aaf831f716fd8c6a4d9304858.tar.gz core-c118d09ee93eec9aaf831f716fd8c6a4d9304858.zip |
#87550# Don't create variable for redim
Diffstat (limited to 'basic')
-rw-r--r-- | basic/source/comp/dim.cxx | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/basic/source/comp/dim.cxx b/basic/source/comp/dim.cxx index 95436ba275b1..ae5c0ec81f90 100644 --- a/basic/source/comp/dim.cxx +++ b/basic/source/comp/dim.cxx @@ -2,9 +2,9 @@ * * $RCSfile: dim.cxx,v $ * - * $Revision: 1.4 $ + * $Revision: 1.5 $ * - * last change: $Author: ab $ $Date: 2001-05-17 09:38:35 $ + * last change: $Author: ab $ $Date: 2001-06-05 09:47:16 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -287,7 +287,8 @@ void SbiParser::DefVar( SbiOpcode eOp, BOOL bStatic ) // #36374: Variable vor Unterscheidung IsNew() anlegen // Sonst Error bei Dim Identifier As New Type und option explicit - if( !bDefined && ( !bConst || pDef->GetScope() == SbGLOBAL ) ) + if( !bDefined && !(eOp == _REDIM || eOp == _REDIMP) + && ( !bConst || pDef->GetScope() == SbGLOBAL ) ) { // Variable oder globale Konstante deklarieren SbiOpcode eOp; |