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

* tpsabiehprocinfo.setup_eh must check if really psabieh exception handling should be generated

Browse Source 
git-svn-id: branches/debug_eh@41518 -
This commit is contained in:
florian 2019-02-27 20:25:18 +00:00
parent ded001753d
commit fb5392573d
1 changed files with 35 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/psabiehpi.pas
View File

@ -387,6 +387,8 @@ implementation
procedure tpsabiehprocinfo.setup_eh;
var
gcc_except_table: tai_section;
begin
if tf_use_psabieh in target_info.flags then
begin
CreateExceptionTable:=foreachnode(code,@find_exception_handling,nil);
@ -423,13 +425,14 @@ implementation
OutmostLandingPad.AddAction(nil);
end;
end;
end;
procedure tpsabiehprocinfo.finish_eh;
var
i: Integer;
begin
if (tf_use_psabieh in target_info.flags) then
if tf_use_psabieh in target_info.flags then
begin
if pi_has_except_table_data in flags then
begin