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

+ implemented cgsize2subreg for z80

Browse Source 
git-svn-id: branches/z80@44500 -
This commit is contained in:
nickysn 2020-04-01 22:29:33 +00:00
parent c3ac9d06c8
commit 54097433da
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/z80/cpubase.pas
View File

@ -348,7 +348,22 @@ unit cpubase;
function cgsize2subreg(regtype: tregistertype; s:Tcgsize):Tsubregister;
begin
cgsize2subreg:=R_SUBWHOLE;
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;
end;