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

* don't quote LLVM calling convention name (that will cause it to be ignored)

Browse Source 
o fixes tasm10a and tx64ccnv.ll with LLVM

git-svn-id: branches/debug_eh@42193 -
This commit is contained in:
Jonas Maebe 2019-06-08 17:11:20 +00:00
parent faf75095cd
commit 3f2578a3e3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/agllvm.pas
View File

@ -647,9 +647,8 @@ implementation
tmpstr:=llvm_callingconvention_name(taillvm(hp).oper[2]^.callingconvention); tmpstr:=llvm_callingconvention_name(taillvm(hp).oper[2]^.callingconvention);
if tmpstr<>'' then if tmpstr<>'' then
begin begin
owner.writer.AsmWrite(' "'); owner.writer.AsmWrite(' ');
owner.writer.AsmWrite(tmpstr); owner.writer.AsmWrite(tmpstr);
owner.writer.AsmWrite('"');
end; end;
opdone:=true; opdone:=true;
tmpstr:=llvmencodetypename(taillvm(hp).oper[3]^.def); tmpstr:=llvmencodetypename(taillvm(hp).oper[3]^.def);