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

* fixed function-level inline assembly constraints in case there are no

Browse Source 
parameters

git-svn-id: trunk@34897 -
This commit is contained in:
Jonas Maebe 2016-11-13 22:09:57 +00:00
parent 6d6a45c034
commit 43e599d6be
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/agllvm.pas
View File

@ -495,11 +495,9 @@ implementation
accessed from assembly code in memory } accessed from assembly code in memory }
for i:=0 to taillvm(hp).oper[1]^.paras.Count-1 do for i:=0 to taillvm(hp).oper[1]^.paras.Count-1 do
begin begin
if i<>0 then owner.writer.AsmWrite('=*m,');
owner.writer.AsmWrite(',');
owner.writer.AsmWrite('=*m');
end; end;
owner.writer.AsmWrite(',~{memory},~{fpsr},~{flags}'); owner.writer.AsmWrite('~{memory},~{fpsr},~{flags}');
WriteAsmRegisterAllocationClobbers(taillvm(hp).oper[0]^.asmlist); WriteAsmRegisterAllocationClobbers(taillvm(hp).oper[0]^.asmlist);
owner.writer.AsmWrite('"'); owner.writer.AsmWrite('"');
owner.writer.AsmWrite(getparas(taillvm(hp).oper[1]^.paras)); owner.writer.AsmWrite(getparas(taillvm(hp).oper[1]^.paras));