paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:36:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* align exception handling on aarch64-win64 more with the one on x86_64-win64 by not creating a *copy* of the finalization code, but by *extracting* it

Browse Source
This commit is contained in:
Sven/Sarah Barth 2026-02-07 22:52:43 +01:00
parent 28119a61ca
commit 349f9ccc14
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/aarch64/ncpuflw.pas
View File

@ -197,15 +197,20 @@ function taarch64tryfinallynode.simplify(forinline: boolean): tnode;
exit;
if (result=nil) then
begin
{ generate a copy of the code }
finalizepi.code:=right.getcopy;
foreachnodestatic(right,@copy_parasize,finalizepi);
{ For implicit frames, no actual code is available at this time,
it is added later in assembler form. So store the nested procinfo
for later use. }
if implicitframe then
{ actually, this is not really the right place to do a node transformation like this }
if not(assigned(finalizepi.code)) then
begin
current_procinfo.finalize_procinfo:=finalizepi;
finalizepi.code:=right;
foreachnodestatic(right,@copy_parasize,finalizepi);
right:=ccallnode.create(nil,tprocsym(finalizepi.procdef.procsym),nil,nil,[],nil);
firstpass(right);
{ For implicit frames, no actual code is available at this time,
it is added later in assembler form. So store the nested procinfo
for later use. }
if implicitframe then
begin
current_procinfo.finalize_procinfo:=finalizepi;
end;
end;
end;
end;