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

m68k: also handle OS_64 register sizes in cgsize2subreg

Browse Source 
git-svn-id: trunk@43045 -
This commit is contained in:
Károly Balogh 2019-09-20 13:48:30 +00:00
parent 435b57bdb1
commit eb71d11b99
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/m68k/cpubase.pas
View File

@ -465,6 +465,8 @@ implementation
cgsize2subreg:=R_SUBW; cgsize2subreg:=R_SUBW;
OS_32,OS_S32: OS_32,OS_S32:
cgsize2subreg:=R_SUBD; cgsize2subreg:=R_SUBD;
OS_64,OS_S64:
cgsize2subreg:=R_SUBWHOLE;
OS_NO: OS_NO:
cgsize2subreg:=R_SUBNONE; cgsize2subreg:=R_SUBNONE;
else else
@ -474,7 +476,8 @@ implementation
case s of case s of
OS_8,OS_S8, OS_8,OS_S8,
OS_16,OS_S16, OS_16,OS_S16,
OS_32,OS_S32: OS_32,OS_S32,
OS_64,OS_S64:
cgsize2subreg:=R_SUBWHOLE; cgsize2subreg:=R_SUBWHOLE;
OS_NO: OS_NO:
cgsize2subreg:=R_SUBNONE; cgsize2subreg:=R_SUBNONE;