mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 21:09:24 +02:00
* implemented thlcgllvm.g_external_wrapper by just declaring the new symbol
as an alias for the old one (rather than creating an interprocedural jump, which is not possible in llvm IR and which is less efficient anyway) (declaration for this method was already accidentally committed in r30722) git-svn-id: trunk@30777 -
This commit is contained in:
parent
72277f5098
commit
8234fcd229
@ -1657,6 +1657,15 @@ implementation
|
||||
end;
|
||||
|
||||
|
||||
procedure thlcgllvm.g_external_wrapper(list: TAsmList; procdef: tprocdef; const externalname: string);
|
||||
var
|
||||
asmsym: TAsmSymbol;
|
||||
begin
|
||||
asmsym:=current_asmdata.RefAsmSymbol(externalname,AT_FUNCTION);
|
||||
list.concat(taillvmalias.create(asmsym,procdef.mangledname,procdef,llv_default,lll_default));
|
||||
end;
|
||||
|
||||
|
||||
procedure create_hlcodegen;
|
||||
begin
|
||||
hlcg:=thlcgllvm.create;
|
||||
|
Loading…
Reference in New Issue
Block a user