Browse Source

m68k: cleanup of the ancient mess from cgsize2subreg

git-svn-id: trunk@42949 -
Károly Balogh 5 years ago
parent
commit
353fc13257
1 changed files with 8 additions and 23 deletions
  1. 8 23
      compiler/m68k/cpubase.pas

+ 8 - 23
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;