diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-03-06 21:40:57 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-03-06 21:40:57 +0000 |
commit | 6d28c0ca163361d80c27478b913d2fc259415029 (patch) | |
tree | 0c4b2090076894f33d269e22dec71e1e80e74759 /compiler/mips/hlcgcpu.pas | |
parent | dbc5921bcba5803f1b9f92eca2b020deb4e21c36 (diff) | |
download | fpc-6d28c0ca163361d80c27478b913d2fc259415029.tar.gz |
* pass a list of (pointers to) the paralocs to hlcgobj.a_call/g_call*, as
required for the LLVM support (LLVM parameter support is not yet
included)
* always return the function return loc from a_call*, again as required
for the LLVM support
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/hlcgllvm@26992 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/mips/hlcgcpu.pas')
-rw-r--r-- | compiler/mips/hlcgcpu.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/mips/hlcgcpu.pas b/compiler/mips/hlcgcpu.pas index 7d494d9428..93edbf4cac 100644 --- a/compiler/mips/hlcgcpu.pas +++ b/compiler/mips/hlcgcpu.pas @@ -37,7 +37,7 @@ uses type thlcgmips = class(thlcg2ll) - function a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; forceresdef: tdef; weak: boolean): tcgpara; override; + function a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; const paras: array of pcgpara; forceresdef: tdef; weak: boolean): tcgpara; override; procedure a_load_subsetreg_reg(list: TAsmList; subsetsize, tosize: tdef; const sreg: tsubsetregister; destreg: tregister);override; protected procedure a_load_regconst_subsetreg_intern(list: TAsmList; fromsize, subsetsize: tdef; fromreg: tregister; const sreg: tsubsetregister; slopt: tsubsetloadopt); override; @@ -59,7 +59,7 @@ implementation cpuinfo, cgcpu; - function thlcgmips.a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; forceresdef: tdef; weak: boolean): tcgpara; + function thlcgmips.a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; const paras: array of pcgpara; forceresdef: tdef; weak: boolean): tcgpara; var ref: treference; sym: tasmsymbol; |