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

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

Browse Source 
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
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symdef.pas
View File

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