Avoid warnings for m68k compiler

git-svn-id: trunk@43391 -

compiler/m68k/aoptcpu.pas

@@ -251,6 +251,8 @@ unit aoptcpu;
                           result:=true;
                         end;
                   end;
+                else
+                  ;
               end;
             end;
           exit;
@@ -423,8 +425,12 @@ unit aoptcpu;
                       end;
                     result:=result or MaybeRealConstOperSimplify(p);
                   end;
+              else
+                ;
             end;
           end;
+        else
+          ;
       end;
     end;
 

compiler/m68k/aoptcpub.pas

@@ -123,6 +123,8 @@ End;
           top_ref:
             if (taicpu(p1).spilling_get_operation_type_ref(i,Reg)<>operand_read) then
               exit(true);
+          else
+            ;
         end;
     end;
 

compiler/m68k/cgcpu.pas

@@ -2170,6 +2170,8 @@ unit cgcpu;
                   else
                     list.concat(taicpu.op_const_reg(A_AND,S_W,$FF,reg));
                 end;
+              else
+                ;
             end;
           OS_S32, OS_32:
             case _oldsize of
@@ -2212,7 +2214,11 @@ unit cgcpu;
                   //list.concat(tai_comment.create(strpnew('zero extend word')));
                   list.concat(taicpu.op_const_reg(A_AND,S_L,$FFFF,reg));
                 end;
+              else
+                ;
             end;
+          else
+            ;
         end; { otherwise the size is already correct }
       end; 
 
@@ -2455,6 +2461,8 @@ unit cgcpu;
               list.concat(taicpu.op_reg(opcode,S_L,regdst.reglo));
               list.concat(taicpu.op_reg(xopcode,S_L,regdst.reghi));
             end;
+          else
+            ;
         end; { end case }
       end;
 
@@ -2577,6 +2585,8 @@ unit cgcpu;
           { these should have been handled already by earlier passes }
           OP_NOT,OP_NEG:
             internalerror(2012110403);
+          else
+            ;
         end; { end case }
       end;
 

compiler/m68k/cpupara.pas

@@ -180,6 +180,8 @@ unit cpupara;
           procvardef :
             { Handling of methods must match that of records }
             result:=false;
+           else
+             ;
         end;
       end;
 
@@ -195,6 +197,8 @@ unit cpupara;
                 result:=false;
                 exit;
               end;
+          else
+            ;
         end;
         result:=inherited ret_in_param(def,pd);
       end;
@@ -638,6 +642,8 @@ unit cpupara;
                         break;
                       dec(i);
                     end;
+                  else
+                    ;
                 end;
               end;
           end;

compiler/m68k/n68kadd.pas

@@ -728,6 +728,8 @@ implementation
               cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,location.falselabel);
             unequaln:
               cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,location.truelabel);
+            else
+              ;
           end;
         end;
 
@@ -749,6 +751,8 @@ implementation
                 cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,location.truelabel);
                 cg.a_jmp_always(current_asmdata.CurrAsmList,location.falselabel);
               end;
+            else
+              ;
           end;
         end;
 
@@ -774,6 +778,8 @@ implementation
             case getresflags(true) of
               F_AE: hlab:=location.truelabel;
               F_B:  hlab:=location.falselabel;
+              else
+                ;
             end;
           end;
 

compiler/m68k/ra68kmot.pas

@@ -284,10 +284,8 @@ const
 
       if c = ':' then
       begin
-           case token of
-             AS_NONE: token := AS_LABEL;
-             AS_LLABEL: ; { do nothing }
-           end; { end case }
+           if token = AS_NONE then
+             token := AS_LABEL;
            { let us point to the next character }
            c := current_scanner.asmgetchar;
            actasmtoken := token;
@@ -1518,6 +1516,8 @@ const
                                 if oper.opr.typ=OPR_SYMBOL then
                                   oper.initref;
                               end;
+                            else
+                              ;
                           end;
                         end
                        else

compiler/m68k/rgcpu.pas

@@ -160,6 +160,8 @@ unit rgcpu;
                 (instr.opcode in [A_ADDQ,A_SUBQ,A_MOV3Q])) then
                 opidx:=1;
             end;
+          else
+            ;
         end;
 
         if (opidx<0) then
@@ -170,6 +172,8 @@ unit rgcpu;
         case taicpu(instr).opsize of
           S_B: inc(instr.oper[opidx]^.ref^.offset,3);
           S_W: inc(instr.oper[opidx]^.ref^.offset,2);
+          else
+            ;
         end;
         result:=true;
       end;

compiler/options.pas

@@ -4372,6 +4372,8 @@ begin
             init_settings.fputype:=fpu_none;
           end;
       end;
+    else
+      ;
   end;
 {$endif m68k}
 

compiler/systems/t_atari.pas

@@ -81,9 +81,8 @@ end;
 
 procedure TLinkerAtari.SetDefaultInfo;
 begin
-  case (target_info.system) of
-    system_m68k_Atari:      SetAtariInfo;
-  end;
+  if target_info.system = system_m68k_Atari then
+    SetAtariInfo;
 end;