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

* change cgsize2subreg and reg_cgsize on Z80 to behave more like they do on AVR; this fixes compilation of Z80 now that the array and string length fields are indeed of type SizeSInt instead of OSSInt

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-01-21 07:38:48 +01:00
parent a6921fff7b
commit 2e70bd7dcb
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/z80/cpubase.pas
View File

@ -321,22 +321,7 @@ unit cpubase;
function cgsize2subreg(regtype: tregistertype; s:Tcgsize):Tsubregister;
begin
case s of
OS_8,OS_S8:
cgsize2subreg:=R_SUBL;
OS_16,OS_S16:
cgsize2subreg:=R_SUBW;
OS_32,OS_S32:
cgsize2subreg:=R_SUBD;
OS_64,OS_S64:
cgsize2subreg:=R_SUBQ;
OS_NO:
{ error message should have been thrown already before, so avoid only
an internal error }
cgsize2subreg:=R_SUBNONE;
else
internalerror(200301231);
end;
cgsize2subreg:=R_SUBWHOLE;
end;
@ -346,6 +331,7 @@ unit cpubase;
R_INTREGISTER,
R_SPECIALREGISTER:
case getsubreg(reg) of
R_SUBNONE,
R_SUBL,
R_SUBH:
reg_cgsize:=OS_8;
@ -354,6 +340,8 @@ unit cpubase;
else
internalerror(2020041901);
end;
R_ADDRESSREGISTER:
reg_cgsize:=OS_16;
else
internalerror(2011021905);
end;