|
@@ -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;
|