Browse Source

* don't mangle symbol names for llvm intrinsics

git-svn-id: trunk@31406 -
Jonas Maebe 10 năm trước cách đây
mục cha
commit
ba9d54beb5
1 tập tin đã thay đổi với 5 bổ sung1 xóa
  1. 5 1
      compiler/llvm/llvmdef.pas

+ 5 - 1
compiler/llvm/llvmdef.pas

@@ -229,9 +229,13 @@ implementation
 
   function llvmmangledname(const s: TSymStr): TSymStr;
     begin
-      result:='@"\01'+s+'"';
+      if copy(s,1,length('llvm.'))<>'llvm.' then
+        result:='@"\01'+s+'"'
+      else
+        result:='@'+s
     end;
 
+
   function llvmasmsymname(const sym: TAsmSymbol): TSymStr;
     begin
       { AT_ADDR and AT_LABEL represent labels in the code, which have