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