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

* handle tai_const instances as operands to other tai

Browse Source 
git-svn-id: branches/hlcgllvm@28120 -
This commit is contained in:
Jonas Maebe 2014-07-01 16:30:46 +00:00
parent f8f7c30f14
commit 204adf82c7
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/llvm/agllvm.pas
View File

@ -628,18 +628,21 @@ implementation
aitconst_32bit_unaligned, aitconst_32bit_unaligned,
aitconst_64bit_unaligned: aitconst_64bit_unaligned:
begin begin
if fdecllevel=0 then
AsmWrite(target_asm.comment);
{ can't have compile-time differences between symbols; these are { can't have compile-time differences between symbols; these are
normally for PIC, but llvm takes care of that for us } normally for PIC, but llvm takes care of that for us }
if assigned(hp.endsym) then if assigned(hp.endsym) then
internalerror(2014052902); internalerror(2014052902);
if assigned(hp.sym) then if assigned(hp.sym) then
begin begin
{ type of struct vs type of field; type of asmsym? }
{ if hp.value<>0 then
xxx }
AsmWrite(hp.sym.name); AsmWrite(hp.sym.name);
{ can't have offsets }
if hp.value<>0 then if hp.value<>0 then
AsmWrite(tostr_with_plus(hp.value)); if fdecllevel<>0 then
internalerror(2014052903)
else
asmwrite(' -- symbol offset: ' + tostr(hp.value));
end end
else else
AsmWrite(tostr(hp.value)); AsmWrite(tostr(hp.value));