paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 15:39:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ safecall support for x86_64

Browse Source 
git-svn-id: trunk@3425 -
This commit is contained in:
florian 2006-05-06 07:58:08 +00:00
parent 68f3c258d8
commit da02375f57
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgcal.pas
View File

@ -1039,7 +1039,9 @@ implementation
{$if defined(x86) or defined(arm)}
if procdefinition.proccalloption=pocall_safecall then
begin
{$ifdef x86_64}
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,NR_RAX,NR_RCX);
{$endif x86_64}
cg.allocallcpuregisters(current_asmdata.CurrAsmList);
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_SAFECALLCHECK');
cg.deallocallcpuregisters(current_asmdata.CurrAsmList);