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

Use SUPPORT_SAFECALL conditional

Browse Source 
git-svn-id: trunk@22490 -
This commit is contained in:
pierre 2012-09-27 15:59:57 +00:00
parent 18698bc93d
commit 7ea11f0171
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgcal.pas
View File

@ -691,7 +691,7 @@ implementation
{$ifdef vtentry} {$ifdef vtentry}
sym : tasmsymbol; sym : tasmsymbol;
{$endif vtentry} {$endif vtentry}
{$if defined(x86) or defined(arm)} {$if defined(x86) or defined(arm) or defined(sparc)}
cgpara : tcgpara; cgpara : tcgpara;
{$endif} {$endif}
begin begin
@ -977,7 +977,7 @@ implementation
cg.dealloccpuregisters(current_asmdata.CurrAsmList,R_FPUREGISTER,regs_to_save_fpu); cg.dealloccpuregisters(current_asmdata.CurrAsmList,R_FPUREGISTER,regs_to_save_fpu);
cg.dealloccpuregisters(current_asmdata.CurrAsmList,R_INTREGISTER,regs_to_save_int); cg.dealloccpuregisters(current_asmdata.CurrAsmList,R_INTREGISTER,regs_to_save_int);
{$if defined(x86) or defined(arm)} {$ifdef SUPPORT_SAFECALL}
if (procdefinition.proccalloption=pocall_safecall) and if (procdefinition.proccalloption=pocall_safecall) and
(tf_safecall_exceptions in target_info.flags) then (tf_safecall_exceptions in target_info.flags) then
begin begin