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

* on aarch64-win64 do the assignment of the exception frame pointer only after the SEH prologue has been done as there is no SEH directive for assigning a register to FP

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-11-08 18:17:12 +01:00
parent b7afb6237f
commit 465537583b
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/aarch64/cgcpu.pas
View File

@ -1889,6 +1889,7 @@ implementation
hitem: tlinkedlistitem;
seh_proc: tai_seh_directive;
templist: TAsmList;
genloadframeforexcept,
suppress_endprologue: boolean;
ref: treference;
totalstackframesize: longint;
@ -1905,6 +1906,7 @@ implementation
SEH directives in assembler body. In this case, .seh_endprologue
is expected to be one of those directives, and not generated here. }
suppress_endprologue:=(pi_has_unwind_info in current_procinfo.flags);
genloadframeforexcept:=false;
if not nostackframe then
begin
@ -1934,7 +1936,12 @@ implementation
end
else
begin
gen_load_frame_for_exceptfilter(list);
{ do this after the prologue is done for aarch64-win64 as
there is no SEH directive for setting FP to a register }
if target_info.system<>system_aarch64_win64 then
gen_load_frame_for_exceptfilter(list)
else
genloadframeforexcept:=true;
localsize:=current_procinfo.maxpushedparasize;
end;
end;
@ -1994,7 +2001,11 @@ implementation
end;
if not (pi_has_unwind_info in current_procinfo.flags) then
exit;
begin
if genloadframeforexcept then
gen_load_frame_for_exceptfilter(list);
exit;
end;
{ Generate unwind data for aarch64-win64 }
seh_proc:=cai_seh_directive.create_name(ash_proc,current_procinfo.procdef.mangledname);
@ -2015,6 +2026,9 @@ implementation
else
list.concatlist(templist);
templist.free;
if genloadframeforexcept then
gen_load_frame_for_exceptfilter(list);
end;