diff --git a/compiler/m68k/cpubase.pas b/compiler/m68k/cpubase.pas index 83e768ec96..91ce6ed80d 100644 --- a/compiler/m68k/cpubase.pas +++ b/compiler/m68k/cpubase.pas @@ -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;