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

+ support 32-bit and 64-bit ait_consts

Browse Source 
git-svn-id: branches/z80@44447 -
This commit is contained in:
nickysn 2020-03-30 23:54:39 +00:00
parent 8589227fb0
commit c1888dd6e2
1 changed files with 46 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/z80/agsdasz80.pas
View File

@ -251,16 +251,57 @@ unit agsdasz80;
begin
consttype:=tai_const(hp).consttype;
case consttype of
aitconst_64bit,
aitconst_64bit_unaligned,
aitconst_32bit,
aitconst_32bit_unaligned:
begin
writer.AsmWrite(#9'.dw'#9);
l:=0;
tokens:=1;
repeat
if assigned(tai_const(hp).sym) then
begin
if assigned(tai_const(hp).endsym) then
s:=EscapeLabel(tai_const(hp).endsym.name)+'-'+EscapeLabel(tai_const(hp).sym.name)
else
s:=EscapeLabel(tai_const(hp).sym.name);
if tai_const(hp).value<>0 then
s:=s+tostr_with_plus(tai_const(hp).value);
if consttype in [aitconst_64bit,aitconst_64bit_unaligned] then
s:=s+',0,0,0'
else
s:=s+',0';
end
else
if consttype in [aitconst_64bit,aitconst_64bit_unaligned] then
s:=tostr(Word(tai_const(hp).value)) +','+tostr(Word(tai_const(hp).value shr 16))+
tostr(Word(tai_const(hp).value shr 32))+','+tostr(Word(tai_const(hp).value shr 48))
else
s:=tostr(Word(tai_const(hp).value))+','+tostr(Word(tai_const(hp).value shr 16));
writer.AsmWrite(s);
inc(l,length(s));
inc(tokens);
if (l>line_length) or
(tokens>max_tokens) or
(hp.next=nil) or
(tai(hp.next).typ<>ait_const) or
(tai_const(hp.next).consttype<>consttype) then
break;
hp:=tai(hp.next);
writer.AsmWrite(',');
until false;
{ Substract section start for secrel32 type }
{if consttype=aitconst_secrel32_symbol then
writer.AsmWrite(' - $$');}
writer.AsmLn;
end;
{aitconst_uleb128bit,
aitconst_sleb128bit,
aitconst_128bit,
aitconst_64bit,
aitconst_32bit,}
aitconst_128bit,}
aitconst_16bit,
aitconst_8bit,
aitconst_16bit_unaligned{,
aitconst_32bit_unaligned,
aitconst_64bit_unaligned,
aitconst_rva_symbol,
aitconst_secrel32_symbol} :
begin