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

+ implementation of lazy binding for linux

Browse Source 
git-svn-id: trunk@1750 -
This commit is contained in:
florian 2005-11-14 22:28:12 +00:00
parent 238510c59d
commit 72d7597edc
3 changed files with 32 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/cgobj.pas
View File

@ -192,7 +192,8 @@ unit cgobj;
registers used for the parameters (PFV) registers used for the parameters (PFV)
} }
procedure a_call_name(list : taasmoutput;const s : string);virtual; abstract; procedure a_call_name(list : taasmoutput;const s : string);virtual; abstract;
procedure a_call_reg(list : taasmoutput;reg : tregister);virtual;abstract; procedure a_call_reg(list : taasmoutput;reg : tregister);virtual; abstract;
procedure a_call_ref(list : taasmoutput;ref : treference);virtual; abstract;
{ move instructions } { move instructions }
procedure a_load_const_reg(list : taasmoutput;size : tcgsize;a : aint;register : tregister);virtual; abstract; procedure a_load_const_reg(list : taasmoutput;size : tcgsize;a : aint;register : tregister);virtual; abstract;

31
compiler/ncgcal.pas
View File

@ -794,14 +794,15 @@ implementation
procedure tcgcallnode.pass_2; procedure tcgcallnode.pass_2;
var var
regs_to_save_int, regs_to_save_int,
regs_to_save_fpu, regs_to_save_fpu,
regs_to_save_mm : Tcpuregisterset; regs_to_save_mm : Tcpuregisterset;
href : treference; href : treference;
pop_size : longint; pop_size : longint;
pvreg, pvreg,
vmtreg : tregister; vmtreg : tregister;
oldaktcallnode : tcallnode; oldaktcallnode : tcallnode;
sym : tasmsymbol;
begin begin
if not assigned(procdefinition) or if not assigned(procdefinition) or
not procdefinition.has_paraloc_info then not procdefinition.has_paraloc_info then
@ -933,7 +934,19 @@ implementation
if (po_interrupt in procdefinition.procoptions) then if (po_interrupt in procdefinition.procoptions) then
extra_interrupt_code; extra_interrupt_code;
extra_call_code; extra_call_code;
cg.a_call_name(exprasmlist,tprocdef(procdefinition).mangledname);
{ lazy binding on linux? }
if (target_info.system in system_linux) and
assigned(tprocdef(procdefinition).import_dll) and
(tprocdef(procdefinition).import_dll^='') then
begin
sym:=objectlibrary.newasmsymbol(tprocdef(procdefinition).mangledname,AB_EXTERNAL,AT_FUNCTION);
reference_reset_symbol(href,sym,0);
href.refaddr:=addr_pic;
cg.a_call_ref(exprasmlist,href);
end
else
cg.a_call_name(exprasmlist,tprocdef(procdefinition).mangledname);
extra_post_call_code; extra_post_call_code;
end; end;
end; end;

9
compiler/x86/cgx86.pas
View File

@ -54,6 +54,7 @@ unit cgx86;
procedure a_call_name(list : taasmoutput;const s : string);override; procedure a_call_name(list : taasmoutput;const s : string);override;
procedure a_call_reg(list : taasmoutput;reg : tregister);override; procedure a_call_reg(list : taasmoutput;reg : tregister);override;
procedure a_call_ref(list : taasmoutput;ref : treference);override;
procedure a_op_const_reg(list : taasmoutput; Op: TOpCG; size: TCGSize; a: aint; reg: TRegister); override; procedure a_op_const_reg(list : taasmoutput; Op: TOpCG; size: TCGSize; a: aint; reg: TRegister); override;
procedure a_op_const_ref(list : taasmoutput; Op: TOpCG; size: TCGSize; a: aint; const ref: TReference); override; procedure a_op_const_ref(list : taasmoutput; Op: TOpCG; size: TCGSize; a: aint; const ref: TReference); override;
@ -556,6 +557,12 @@ unit cgx86;
end; end;
procedure tcgx86.a_call_ref(list : taasmoutput;ref : treference);
begin
list.concat(taicpu.op_ref(A_CALL,S_NO,ref));
end;
{********************** load instructions ********************} {********************** load instructions ********************}
procedure tcgx86.a_load_const_reg(list : taasmoutput; tosize: TCGSize; a : aint; reg : TRegister); procedure tcgx86.a_load_const_reg(list : taasmoutput; tosize: TCGSize; a : aint; reg : TRegister);
@ -824,7 +831,7 @@ unit cgx86;
A_MOVSS, A_MOVSS,
A_MOVSD, A_MOVSD,
A_MOVQ: A_MOVQ:
add_move_instruction(instr); add_move_instruction(instr);
end; end;
list.concat(instr); list.concat(instr);
end; end;