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

m68k: cleanup of the ancient mess from cgsize2subreg

Browse Source 
git-svn-id: trunk@42949 -
This commit is contained in:
Károly Balogh 2019-09-08 13:55:19 +00:00
parent f2a8e646b7
commit 353fc13257
1 changed files with 8 additions and 23 deletions

31
compiler/m68k/cpubase.pas
View File

@ -457,11 +457,6 @@ implementation
var p: pointer;
begin
case s of
OS_NO: begin
{ TODO: FIX ME!!! results in bad code generation}
cgsize2subreg:=R_SUBWHOLE;
end;
OS_8,OS_S8:
cgsize2subreg:=R_SUBWHOLE;
OS_16,OS_S16:
@ -469,25 +464,15 @@ implementation
OS_32,OS_S32:
cgsize2subreg:=R_SUBWHOLE;
OS_64,OS_S64:
begin
cgsize2subreg:=R_SUBWHOLE;
end;
OS_F32 :
cgsize2subreg:=R_SUBFS;
OS_F64 :
cgsize2subreg:=R_SUBFD;
{
begin
// is this correct? (KB)
cgsize2subreg:=R_SUBNONE;
end;
}
else begin
// this supposed to be debug
// p:=nil; dword(p^):=0;
// internalerror(200301231);
cgsize2subreg:=R_SUBWHOLE;
end;
OS_F32,OS_F64 :
cgsize2subreg:=R_SUBNONE;
OS_NO:
cgsize2subreg:=R_SUBNONE;
else
internalerror(2019090801);
end;
end;