mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-06 17:18:31 +02:00
* warning fixed
git-svn-id: trunk@35168 -
This commit is contained in:
parent
29abfe9dd3
commit
2e16628db1
@ -728,6 +728,7 @@ implementation
|
|||||||
breaktrylabel:=nil;
|
breaktrylabel:=nil;
|
||||||
continueexceptlabel:=nil;
|
continueexceptlabel:=nil;
|
||||||
breakexceptlabel:=nil;
|
breakexceptlabel:=nil;
|
||||||
|
doobjectdestroyandreraisestate:=Default(tcgexceptionstatehandler.texceptionstate);
|
||||||
|
|
||||||
{ this can be called recursivly }
|
{ this can be called recursivly }
|
||||||
oldBreakLabel:=nil;
|
oldBreakLabel:=nil;
|
||||||
|
Loading…
Reference in New Issue
Block a user