diff options
Diffstat (limited to 'compiler/riscv64')
-rw-r--r-- | compiler/riscv64/cgcpu.pas | 6 | ||||
-rw-r--r-- | compiler/riscv64/cpupara.pas | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/compiler/riscv64/cgcpu.pas b/compiler/riscv64/cgcpu.pas index cd973987f6..c0ca44b752 100644 --- a/compiler/riscv64/cgcpu.pas +++ b/compiler/riscv64/cgcpu.pas @@ -524,9 +524,9 @@ implementation paraloc1.init; paraloc2.init; paraloc3.init; - paramanager.getintparaloc(list, pd, 1, paraloc1); - paramanager.getintparaloc(list, pd, 2, paraloc2); - paramanager.getintparaloc(list, pd, 3, paraloc3); + paramanager.getcgtempparaloc(list, pd, 1, paraloc1); + paramanager.getcgtempparaloc(list, pd, 2, paraloc2); + paramanager.getcgtempparaloc(list, pd, 3, paraloc3); a_load_const_cgpara(list, OS_SINT, len, paraloc3); a_loadaddr_ref_cgpara(list, dest, paraloc2); a_loadaddr_ref_cgpara(list, Source, paraloc1); diff --git a/compiler/riscv64/cpupara.pas b/compiler/riscv64/cpupara.pas index 0e820259b7..caa866ba54 100644 --- a/compiler/riscv64/cpupara.pas +++ b/compiler/riscv64/cpupara.pas @@ -38,7 +38,7 @@ unit cpupara; function push_addr_param(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean; override; function ret_in_param(def: tdef; pd: tabstractprocdef): boolean; override; - procedure getintparaloc(list: TAsmList; pd : tabstractprocdef; nr: longint; var cgpara: tcgpara); override; + procedure getcgtempparaloc(list: TAsmList; pd : tabstractprocdef; nr: longint; var cgpara: tcgpara); override; function create_paraloc_info(p: tabstractprocdef; side: tcallercallee): longint; override; function create_varargs_paraloc_info(p: tabstractprocdef; side: tcallercallee; varargspara: tvarargsparalist): longint; override; function get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;override; @@ -68,7 +68,7 @@ implementation result:=[RS_F0..RS_F31]-[RS_F8..RS_F9,RS_F18..RS_F27]; end; - procedure tcpuparamanager.getintparaloc(list: TAsmList; pd : tabstractprocdef; nr: longint; var cgpara: tcgpara); + procedure tcpuparamanager.getcgtempparaloc(list: TAsmList; pd : tabstractprocdef; nr: longint; var cgpara: tcgpara); var paraloc: pcgparalocation; psym: tparavarsym; |