* mangled names (generated for global symbols) start with an '@' for llvm

git-svn-id: branches/hlcgllvm@26031 -
This commit is contained in:
Jonas Maebe 2013-11-11 11:14:50 +00:00
parent b47cc22d66
commit 6426180438

View File

@ -1254,6 +1254,10 @@ implementation
{ add an underscore on darwin. }
if (target_info.system in systems_darwin) then
result := '_' + result;
{$ifdef llvm}
{ in LLVM, all non-procedure local symbols have to start with an '@' }
result:='@'+result;
{$endif llvm}
end;
function make_dllmangledname(const dllname,importname:TSymStr;import_nr : word; pco : tproccalloption):TSymStr;