paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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

30
compiler/mips/hlcgcpu.pas
View File

@ -49,6 +49,7 @@ implementation
uses
aasmtai,
cutils,
globals,
cgobj,
cpubase,
cgcpu;
@ -59,16 +60,25 @@ implementation
begin
if pd.proccalloption=pocall_cdecl then
begin
{ Use $gp/$t9 registers as the code might be in a shared library }
reference_reset(ref,sizeof(aint));
ref.symbol:=current_asmdata.RefAsmSymbol('_gp');
list.concat(tai_comment.create(strpnew('Using PIC code for a_call_name')));
cg.a_loadaddr_ref_reg(list,ref,NR_GP);
reference_reset(ref,sizeof(aint));
ref.symbol:=current_asmdata.RefAsmSymbol(s);
ref.base:=NR_GP;
ref.refaddr:=addr_pic_call16;
cg.a_loadaddr_ref_reg(list,ref,NR_PIC_FUNC);
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));
ref.symbol:=current_asmdata.RefAsmSymbol('_gp');
list.concat(tai_comment.create(strpnew('Using PIC code for a_call_name')));
cg.a_loadaddr_ref_reg(list,ref,NR_GP);
reference_reset(ref,sizeof(aint));
ref.symbol:=current_asmdata.RefAsmSymbol(s);
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