diff options
| author | Andreas Bregas <ab@openoffice.org> | 2010-08-11 08:24:45 +0200 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2010-08-11 08:24:45 +0200 |
| commit | c28503c38aec7fdc4cc528fac116f8eac798c6de (patch) | |
| tree | 737181271fbe4e926e4030199613d0f7b2e6064a /basic | |
| parent | 476aa1795b08ffeb43e35823e78442a51a04304b (diff) | |
mib18: #163121# Fixed back chain handling for new declare implementation
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/source/comp/dim.cxx | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/basic/source/comp/dim.cxx b/basic/source/comp/dim.cxx index 27b6e0e51871..59d77e3f3757 100644 --- a/basic/source/comp/dim.cxx +++ b/basic/source/comp/dim.cxx @@ -981,6 +981,12 @@ void SbiParser::DefDeclare( BOOL bPrivate ) // New declare handling if( pDef->GetLib().Len() > 0 ) { + if( bNewGblDefs && nGblChain == 0 ) + { + nGblChain = aGen.Gen( _JUMP, 0 ); + bNewGblDefs = FALSE; + } + USHORT nSavLine = nLine; aGen.Statement(); pDef->Define(); |