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

* create proper external stubs in case of generating pic

Browse Source 
git-svn-id: trunk@3713 -
This commit is contained in:
florian 2006-05-28 09:23:53 +00:00
parent 2bf89e2040
commit 24ab8e0177
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ncgutil.pas
View File

@ -1957,6 +1957,9 @@ implementation
****************************************************************************} ****************************************************************************}
procedure gen_external_stub(list:TAsmList;pd:tprocdef;const externalname:string); procedure gen_external_stub(list:TAsmList;pd:tprocdef;const externalname:string);
var
ref : treference;
sym : tasmsymbol;
begin begin
{ add the procedure to the al_procedures } { add the procedure to the al_procedures }
maybe_new_object_file(list); maybe_new_object_file(list);
@ -1966,7 +1969,22 @@ implementation
list.concat(Tai_symbol.createname_global(pd.mangledname,AT_FUNCTION,0)) list.concat(Tai_symbol.createname_global(pd.mangledname,AT_FUNCTION,0))
else else
list.concat(Tai_symbol.createname(pd.mangledname,AT_FUNCTION,0)); list.concat(Tai_symbol.createname(pd.mangledname,AT_FUNCTION,0));
cg.a_jmp_name(list,externalname);
sym:=current_asmdata.RefAsmSymbol(externalname);
reference_reset_symbol(ref,sym,0);
{ create pic'ed? }
if cs_create_pic in aktmoduleswitches then
begin
{ it could be that we're called from a procedure not having the
got loaded
}
gen_got_load(list);
ref.refaddr:=addr_pic;
end
else
ref.refaddr:=addr_full;
list.concat(taicpu.op_ref(A_JMP,S_NO,ref));
end; end;
{**************************************************************************** {****************************************************************************
@ -2255,7 +2273,7 @@ implementation
treplaceregrec = record treplaceregrec = record
old, new: tregister; old, new: tregister;
{$ifndef cpu64bit} {$ifndef cpu64bit}
oldhi, newhi: tregister; oldhi, newhi: tregister;
{$endif cpu64bit} {$endif cpu64bit}
ressym: tsym; ressym: tsym;
end; end;
@ -2309,7 +2327,7 @@ implementation
result := fen_norecurse_true; result := fen_norecurse_true;
end; end;
end; end;
end; end;
end; end;
@ -2362,7 +2380,7 @@ implementation
if not foreachnodestatic(n,@doreplace,@rr) then if not foreachnodestatic(n,@doreplace,@rr) then
exit; exit;
{ now that we've change the loadn/temp, also change the node result location } { now that we've change the loadn/temp, also change the node result location }
{$ifndef cpu64bit} {$ifndef cpu64bit}
if (n.location.size in [OS_64,OS_S64]) then if (n.location.size in [OS_64,OS_S64]) then
begin begin