paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Provide initialization of all variables, fixes cycling with OPT="-dTEST_WIN32_SEH -OoDFA".

Browse Source 
git-svn-id: trunk@28622 -
This commit is contained in:
sergei 2014-09-08 18:08:12 +00:00
parent bf8a7f0784
commit 5479b6e722
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/n386flw.pas
View File

@ -316,6 +316,7 @@ procedure ti386tryfinallynode.pass_generate_code;
breakfinallylabel:=nil;
exceptlabel:=nil;
safecalllabel:=nil;
hreg:=NR_NO;
is_safecall:=implicitframe and (current_procinfo.procdef.proccalloption=pocall_safecall);
{ check if child nodes do a break/continue/exit }
@ -489,6 +490,12 @@ procedure ti386tryexceptnode.pass_generate_code;
end;
location_reset(location,LOC_VOID,OS_NO);
exceptflowcontrol:=[];
breakexceptlabel:=nil;
continueexceptlabel:=nil;
breaktrylabel:=nil;
continuetrylabel:=nil;
oldflowcontrol:=flowcontrol;
flowcontrol:=[fc_inflowcontrol];
{ this can be called recursivly }