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

Avoid wrong code generation for a_call_name if we create pic code

Browse Source 
git-svn-id: trunk@23560 -
This commit is contained in:
pierre 2013-02-01 21:16:58 +00:00
parent f74954dd32
commit 899951577a
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/mips/hlcgcpu.pas
View File

@ -49,6 +49,7 @@ implementation
uses
aasmtai,
cutils,
globals,
cgobj,
cpubase,
cgcpu;
@ -58,6 +59,14 @@ implementation
ref : treference;
begin
if pd.proccalloption=pocall_cdecl then
begin
if (cs_create_pic in current_settings.moduleswitches) then
begin
reference_reset(ref,sizeof(aint));
ref.symbol:=current_asmdata.RefAsmSymbol(s);
cg.a_loadaddr_ref_reg(list,ref,NR_PIC_FUNC);
end
else
begin
{ Use $gp/$t9 registers as the code might be in a shared library }
reference_reset(ref,sizeof(aint));
@ -69,6 +78,7 @@ implementation
ref.base:=NR_GP;
ref.refaddr:=addr_pic_call16;
cg.a_loadaddr_ref_reg(list,ref,NR_PIC_FUNC);
end;
cg.a_call_reg(list,NR_PIC_FUNC);
end
else