diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-12-24 22:12:25 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-12-24 22:12:25 +0000 |
| commit | 2735a78d6af30837fb3f80705efa19f68d32972b (patch) | |
| tree | f0bbec04b968ae98c3f96cecc7851672bd96c3c4 /compiler/riscv64 | |
| parent | 764614da67d173fe9f5963b6d8fbb8b17a7799cb (diff) | |
| download | fpc-2735a78d6af30837fb3f80705efa19f68d32972b.tar.gz | |
* renamed getintparaloc to getcgtempparaloc
o it can be used for more than integer parameters
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43781 3ad0048d-3df7-0310-abae-a5850022a9f2
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; |