|
@@ -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;
|