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

+ Z80 internal asm: support OT_REF_ADDR16 in taicpu.gencode.WrinteNN

Browse Source 
git-svn-id: trunk@45273 -
This commit is contained in:
nickysn 2020-05-05 22:30:49 +00:00
parent 4fed57adc1
commit 58d6d64fba
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/z80/aasmcpu.pas
View File

@ -493,6 +493,30 @@ implementation
else else
InternalError(2020050404); InternalError(2020050404);
end; end;
end
else if insentry^.optypes[i]=OT_REF_ADDR16 then
begin
case oper[i]^.typ of
top_ref:
begin
if (oper[i]^.ref^.base<>NR_NO) or (oper[i]^.ref^.index<>NR_NO) then
internalerror(2020050603);
if Assigned(oper[i]^.ref^.symbol) then
begin
if oper[i]^.ref^.refaddr<>addr_no then
internalerror(2020050604);
objdata.writeReloc(oper[i]^.ref^.offset,2,ObjData.symbolref(oper[i]^.ref^.symbol),RELOC_ABSOLUTE);
exit;
end
else
begin
WriteWord(oper[i]^.ref^.offset);
exit;
end;
end;
else
InternalError(2020050602);
end;
end; end;
end; end;
InternalError(2020050403); InternalError(2020050403);