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

* basic winx64 calling convention support

Browse Source 
git-svn-id: trunk@3108 -
This commit is contained in:
florian 2006-04-01 14:42:52 +00:00
parent 79b2432369
commit d0c327b14b
1 changed files with 53 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
compiler/x86_64/cpupara.pas
View File

@ -61,6 +61,9 @@ unit cpupara;
paraintsupregs : array[0..5] of tsuperregister = (RS_RDI,RS_RSI,RS_RDX,RS_RCX,RS_R8,RS_R9); paraintsupregs : array[0..5] of tsuperregister = (RS_RDI,RS_RSI,RS_RDX,RS_RCX,RS_R8,RS_R9);
parammsupregs : array[0..7] of tsuperregister = (RS_XMM0,RS_XMM1,RS_XMM2,RS_XMM3,RS_XMM4,RS_XMM5,RS_XMM6,RS_XMM7); parammsupregs : array[0..7] of tsuperregister = (RS_XMM0,RS_XMM1,RS_XMM2,RS_XMM3,RS_XMM4,RS_XMM5,RS_XMM6,RS_XMM7);
paraintsupregs_winx64 : array[0..3] of tsuperregister = (RS_RCX,RS_RDX,RS_R8,RS_R9);
parammsupregs_winx64 : array[0..3] of tsuperregister = (RS_XMM0,RS_XMM1,RS_XMM2,RS_XMM3);
procedure getvalueparaloc(p : tdef;var loc1,loc2:tcgloc); procedure getvalueparaloc(p : tdef;var loc1,loc2:tcgloc);
begin begin
loc1:=LOC_INVALID; loc1:=LOC_INVALID;
@ -233,18 +236,37 @@ unit cpupara;
with paraloc^ do with paraloc^ do
begin begin
size:=OS_INT; size:=OS_INT;
if nr<1 then if target_info.system=system_x86_64_win64 then
internalerror(200304303)
else if nr<=high(paraintsupregs)+1 then
begin begin
loc:=LOC_REGISTER; if nr<1 then
register:=newreg(R_INTREGISTER,paraintsupregs[nr-1],R_SUBWHOLE); internalerror(200304303)
else if nr<=high(paraintsupregs_winx64)+1 then
begin
loc:=LOC_REGISTER;
register:=newreg(R_INTREGISTER,paraintsupregs_winx64[nr-1],R_SUBWHOLE);
end
else
begin
loc:=LOC_REFERENCE;
reference.index:=NR_STACK_POINTER_REG;
reference.offset:=(nr-6)*sizeof(aint);
end;
end end
else else
begin begin
loc:=LOC_REFERENCE; if nr<1 then
reference.index:=NR_STACK_POINTER_REG; internalerror(200304303)
reference.offset:=(nr-6)*sizeof(aint); else if nr<=high(paraintsupregs)+1 then
begin
loc:=LOC_REGISTER;
register:=newreg(R_INTREGISTER,paraintsupregs[nr-1],R_SUBWHOLE);
end
else
begin
loc:=LOC_REFERENCE;
reference.index:=NR_STACK_POINTER_REG;
reference.offset:=(nr-6)*sizeof(aint);
end;
end; end;
end; end;
end; end;
@ -357,12 +379,20 @@ unit cpupara;
case loc[locidx] of case loc[locidx] of
LOC_REGISTER : LOC_REGISTER :
begin begin
if (intparareg>high(paraintsupregs)) then { winx64 uses different registers }
if ((target_info.system=system_x86_64_win64) and
(intparareg>high(paraintsupregs_winx64))) or
((target_info.system<>system_x86_64_win64) and
(intparareg>high(paraintsupregs))) then
loc[locidx]:=LOC_REFERENCE; loc[locidx]:=LOC_REFERENCE;
end; end;
LOC_MMREGISTER : LOC_MMREGISTER :
begin begin
if (mmparareg>high(parammsupregs)) then { winx64 uses different registers }
if ((target_info.system=system_x86_64_win64) and
(intparareg>high(parammsupregs_winx64))) or
((target_info.system<>system_x86_64_win64) and
(intparareg>high(parammsupregs))) then
loc[locidx]:=LOC_REFERENCE; loc[locidx]:=LOC_REFERENCE;
end; end;
end; end;
@ -385,7 +415,13 @@ unit cpupara;
paraloc^.size:=OS_64; paraloc^.size:=OS_64;
subreg:=cgsize2subreg(paraloc^.size); subreg:=cgsize2subreg(paraloc^.size);
end; end;
paraloc^.register:=newreg(R_INTREGISTER,paraintsupregs[intparareg],subreg);
{ winx64 uses different registers }
if target_info.system=system_x86_64_win64 then
paraloc^.register:=newreg(R_INTREGISTER,paraintsupregs_winx64[intparareg],subreg)
else
paraloc^.register:=newreg(R_INTREGISTER,paraintsupregs[intparareg],subreg);
inc(intparareg); inc(intparareg);
dec(paralen,tcgsize2size[paraloc^.size]); dec(paralen,tcgsize2size[paraloc^.size]);
end; end;
@ -393,7 +429,12 @@ unit cpupara;
begin begin
paraloc:=hp.paraloc[side].add_location; paraloc:=hp.paraloc[side].add_location;
paraloc^.loc:=LOC_MMREGISTER; paraloc^.loc:=LOC_MMREGISTER;
paraloc^.register:=newreg(R_MMREGISTER,parammsupregs[mmparareg],R_SUBNONE);
{ winx64 uses different registers }
if target_info.system=system_x86_64_win64 then
paraloc^.register:=newreg(R_MMREGISTER,parammsupregs_winx64[mmparareg],R_SUBNONE)
else
paraloc^.register:=newreg(R_MMREGISTER,parammsupregs[mmparareg],R_SUBNONE);
if paracgsize=OS_F128 then if paracgsize=OS_F128 then
paraloc^.size:=OS_F64 paraloc^.size:=OS_F64
else else