paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +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}
sym : tasmsymbol;
{$endif vtentry}
{$if defined(x86) or defined(arm)}
{$if defined(x86) or defined(arm) or defined(sparc)}
cgpara : tcgpara;
{$endif}
begin
@ -977,7 +977,7 @@ implementation
cg.dealloccpuregisters(current_asmdata.CurrAsmList,R_FPUREGISTER,regs_to_save_fpu);
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
(tf_safecall_exceptions in target_info.flags) then
begin