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

* Reset unwind_info.flags between procedures. Writing non-zero flags without handler ends up in corrupt unwind info.

Browse Source 
git-svn-id: trunk@19403 -
This commit is contained in:
sergei 2011-10-07 14:46:56 +00:00
parent 05ca66adf8
commit a463fbc578
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86_64/win64unw.pas
View File

@ -255,6 +255,7 @@ begin
FPrologueEndPos:=0; FPrologueEndPos:=0;
FPrologueEndSeen:=false; FPrologueEndSeen:=false;
FHandler:=nil; FHandler:=nil;
FFlags:=0;
end; end;
procedure TWin64CFI.end_frame(objdata:TObjData); procedure TWin64CFI.end_frame(objdata:TObjData);
@ -274,6 +275,7 @@ begin
Message(asmw_w_missing_endprologue); Message(asmw_w_missing_endprologue);
FFrameStartSym:=nil; FFrameStartSym:=nil;
FHandler:=nil; FHandler:=nil;
FFlags:=0;
stringdispose(FName); stringdispose(FName);
end; end;