diff options
| author | Oliver Bolte <obo@openoffice.org> | 2004-03-17 12:33:10 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2004-03-17 12:33:10 +0000 |
| commit | c21f9dd59601be8718befa2449851c57c1b895a4 (patch) | |
| tree | 5f3f8a015d16639fff7028e6cc8d19d936e8f394 /basic/source/comp | |
| parent | 64eea10dbb5318582adbfd305049935fdfd11f58 (diff) | |
INTEGRATION: CWS jl5vba (1.6.82); FILE MERGED
2004/01/21 08:51:05 ab 1.6.82.1: #111934# Merge to src680, for tasks see message INTEGRATION: CWS ab02vba (1.6.4)
Diffstat (limited to 'basic/source/comp')
| -rw-r--r-- | basic/source/comp/exprgen.cxx | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/basic/source/comp/exprgen.cxx b/basic/source/comp/exprgen.cxx index 2f4a306af0dc..d6094d932323 100644 --- a/basic/source/comp/exprgen.cxx +++ b/basic/source/comp/exprgen.cxx @@ -2,9 +2,9 @@ * * $RCSfile: exprgen.cxx,v $ * - * $Revision: 1.6 $ + * $Revision: 1.7 $ * - * last change: $Author: vg $ $Date: 2003-05-22 08:53:25 $ + * last change: $Author: obo $ $Date: 2004-03-17 13:33:10 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -282,7 +282,12 @@ void SbiExpression::Gen( RecursiveMode eRecMode ) // Wenn pExpr == .-Ausdruck in With, zunaechst Gen fuer Basis-Objekt pExpr->Gen( eRecMode ); if( bBased ) - pParser->aGen.Gen( _BASED, pParser->nBase ), + { + USHORT uBase = pParser->nBase; + if( pParser->IsCompatible() ) + uBase |= 0x8000; // #109275 Flag compatiblity + pParser->aGen.Gen( _BASED, uBase ); pParser->aGen.Gen( _ARGV ); + } } |