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

* fixed writing nested conversion operations such as bitcast (missing

Browse Source 
opening bracket)

git-svn-id: branches/hlcgllvm@28142 -
This commit is contained in:
Jonas Maebe 2014-07-03 22:28:28 +00:00
parent b94a524556
commit 5cf52bb957
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/llvm/agllvm.pas
View File

@ -386,13 +386,14 @@ implementation
data initialisers } data initialisers }
if (taillvm(hp).oper[0]^.typ<>top_reg) or if (taillvm(hp).oper[0]^.typ<>top_reg) or
(taillvm(hp).oper[0]^.reg<>NR_NO) then (taillvm(hp).oper[0]^.reg<>NR_NO) then
begin owner.AsmWrite(getopstr(taillvm(hp).oper[0]^,false)+' = ')
owner.AsmWrite(getopstr(taillvm(hp).oper[0]^,false)+' = ');
end
else else
nested:=true; nested:=true;
owner.AsmWrite(llvm_op2str[op]); owner.AsmWrite(llvm_op2str[op]);
owner.AsmWrite(' '); if not nested then
owner.AsmWrite(' ')
else
owner.AsmWrite(' (');
owner.AsmWrite(getopstr(taillvm(hp).oper[1]^,false)); owner.AsmWrite(getopstr(taillvm(hp).oper[1]^,false));
owner.AsmWrite(' '); owner.AsmWrite(' ');
owner.AsmWrite(getopstr(taillvm(hp).oper[2]^,false)); owner.AsmWrite(getopstr(taillvm(hp).oper[2]^,false));