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

* check if a target really supports safecall before calling load_safecallresult_node

Browse Source
This commit is contained in:
florian 2022-11-06 16:38:01 +01:00
parent 3db1415a44
commit 1b08b89b7b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/optdfa.pas
View File

@ -54,7 +54,9 @@ unit optdfa;
implementation implementation
uses uses
globtype,constexp, globtype,
systems,
constexp,
verbose, verbose,
symconst,symdef,symsym, symconst,symdef,symsym,
defutil, defutil,
@ -642,7 +644,8 @@ unit optdfa;
begin begin
if current_procinfo.procdef.proctypeoption=potype_constructor then if current_procinfo.procdef.proctypeoption=potype_constructor then
resultnode:=load_self_node resultnode:=load_self_node
else if current_procinfo.procdef.proccalloption=pocall_safecall then else if (current_procinfo.procdef.proccalloption=pocall_safecall) and
(tf_safecall_exceptions in target_info.flags) then
resultnode:=load_safecallresult_node resultnode:=load_safecallresult_node
else else
resultnode:=load_result_node; resultnode:=load_result_node;