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 | d888d6060dbe2077fa571f33f53419098f00917c (patch) | |
| tree | 1a75c0781bf1587e848337b23ef5b887cc7249ac /basic | |
| parent | ae27c058ca364ca50cc27057e2c63b7f5b84c39d (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 8a55a021d2..367be2a3e3 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(); |