strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS ab17fixes (1.3.18); FILE MERGED

Browse source 
2005/09/29 18:28:52 hr 1.3.18.2: #i10000: manual resync; repair broken CWS
2005/08/16 10:13:49 ab 1.3.18.1: 125046# Support On Error Goto -1
This commit is contained in:
Jens-Heiner Rechtien 2005-09-29 17:40:22 +00:00
parent 970312b249
commit 056ac9c66d
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
basic/source/comp/loops.cxx
View file

@ -4,9 +4,9 @@
*
* $RCSfile: loops.cxx,v $
*
* $Revision: 1.6 $
* $Revision: 1.7 $
*
* last change: $Author: hr $ $Date: 2005-09-29 16:35:53 $
* last change: $Author: hr $ $Date: 2005-09-29 18:40:22 $
*
* The Contents of this file are made available subject to
* the terms of GNU Lesser General Public License Version 2.1.
@ -486,6 +486,7 @@ void SbiParser::On()
{
// ON ERROR GOTO label|0
Next();
bool bError = false;
if( MayBeLabel() )
{
if( eCurTok == NUMBER && !nVal )
@ -496,7 +497,16 @@ void SbiParser::On()
aGen.Gen( _ERRHDL, nOff );
}
}
else Error( SbERR_LABEL_EXPECTED );
else if( eCurTok == MINUS )
{
Next();
if( eCurTok == NUMBER && nVal == 1 )
aGen.Gen( _STDERROR );
else
bError = true;
}
if( bError )
Error( SbERR_LABEL_EXPECTED );
}
else if( eCurTok == RESUME )
{