Sfoglia il codice sorgente

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

git-svn-id: branches/hlcgllvm@26031 -
Jonas Maebe 12 anni fa
parent
commit
6426180438
1 ha cambiato i file con 4 aggiunte e 0 eliminazioni
  1. 4 0
      compiler/symdef.pas

+ 4 - 0
compiler/symdef.pas

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