mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-20 23:09:25 +02:00
- removed custom getintparaloc()
git-svn-id: trunk@29856 -
This commit is contained in:
parent
60768fcffe
commit
4562731ad9
@ -39,7 +39,6 @@ unit cpupara;
|
|||||||
function get_volatile_registers_mm(calloption : tproccalloption):tcpuregisterset;override;
|
function get_volatile_registers_mm(calloption : tproccalloption):tcpuregisterset;override;
|
||||||
function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override;
|
function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override;
|
||||||
function ret_in_param(def:tdef;pd:tabstractprocdef):boolean;override;
|
function ret_in_param(def:tdef;pd:tabstractprocdef):boolean;override;
|
||||||
procedure getintparaloc(pd : tabstractprocdef; nr : longint; var cgpara : tcgpara);override;
|
|
||||||
function create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint;override;
|
function create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint;override;
|
||||||
function create_varargs_paraloc_info(p : tabstractprocdef; varargspara:tvarargsparalist):longint;override;
|
function create_varargs_paraloc_info(p : tabstractprocdef; varargspara:tvarargsparalist):longint;override;
|
||||||
function get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;override;
|
function get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;override;
|
||||||
@ -75,40 +74,6 @@ unit cpupara;
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure taarch64paramanager.getintparaloc(pd : tabstractprocdef; nr : longint; var cgpara : tcgpara);
|
|
||||||
var
|
|
||||||
paraloc : pcgparalocation;
|
|
||||||
def : tdef;
|
|
||||||
begin
|
|
||||||
if nr<1 then
|
|
||||||
internalerror(2002070801);
|
|
||||||
def:=tparavarsym(pd.paras[nr-1]).vardef;
|
|
||||||
cgpara.reset;
|
|
||||||
cgpara.size:=def_cgsize(def);
|
|
||||||
cgpara.intsize:=tcgsize2size[cgpara.size];
|
|
||||||
cgpara.alignment:=std_param_align;
|
|
||||||
cgpara.def:=def;
|
|
||||||
paraloc:=cgpara.add_location;
|
|
||||||
with paraloc^ do
|
|
||||||
begin
|
|
||||||
size:=OS_INT;
|
|
||||||
{ the four first parameters are passed into registers }
|
|
||||||
if nr<=8 then
|
|
||||||
begin
|
|
||||||
loc:=LOC_REGISTER;
|
|
||||||
register:=newreg(R_INTREGISTER,RS_X0+nr-1,R_SUBWHOLE);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
{ the other parameters are passed on the stack }
|
|
||||||
loc:=LOC_REFERENCE;
|
|
||||||
reference.index:=NR_STACK_POINTER_REG;
|
|
||||||
reference.offset:=(nr-9)*8;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function is_hfa_internal(p: tdef; var basedef: tdef; var elecount: longint): boolean;
|
function is_hfa_internal(p: tdef; var basedef: tdef; var elecount: longint): boolean;
|
||||||
var
|
var
|
||||||
i: longint;
|
i: longint;
|
||||||
|
Loading…
Reference in New Issue
Block a user