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

+ support for a reference without base or symbol, if the offset is 0

Browse Source 
(for @ptrtype(0)^.field expressions)

git-svn-id: trunk@32777 -
This commit is contained in:
Jonas Maebe 2015-12-28 15:06:15 +00:00
parent b4fe4789d6
commit c452e70f74
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/llvm/agllvm.pas
View File

@ -199,7 +199,7 @@ implementation
begin
result:='';
if assigned(ref.relsymbol) or
(assigned(ref.symbol) =
(assigned(ref.symbol) and
(ref.base<>NR_NO)) or
(ref.index<>NR_NO) or
(ref.offset<>0) then
@ -215,13 +215,15 @@ implementation
result:=result+'index<>NR_NO, ';
if ref.offset<>0 then
result:=result+'offset='+tostr(ref.offset);
result:=result+')**'
// internalerror(2013060225);
result:=result+')**';
internalerror(2013060225);
end;
if ref.base<>NR_NO then
result:=result+getregisterstring(ref.base)
else if assigned(ref.symbol) then
result:=result+LlvmAsmSymName(ref.symbol)
else
result:=result+LlvmAsmSymName(ref.symbol);
result:=result+'null';
if withalign then
result:=result+getreferencealignstring(ref);
end;