Browse Source

* fix case completeness warnings

git-svn-id: branches/debug_eh@42051 -
Jonas Maebe 6 years ago
parent
commit
853e622fb7
3 changed files with 6 additions and 0 deletions
  1. 2 0
      compiler/llvm/aasmllvm.pas
  2. 2 0
      compiler/llvm/llvmtype.pas
  3. 2 0
      compiler/rautils.pas

+ 2 - 0
compiler/llvm/aasmllvm.pas

@@ -346,6 +346,8 @@ uses
                   case callpara^.typ of
                   case callpara^.typ of
                     top_tai:
                     top_tai:
                       callpara^.ai.free;
                       callpara^.ai.free;
+                    else
+                      ;
                   end;
                   end;
                   dispose(callpara);
                   dispose(callpara);
                 end;
                 end;

+ 2 - 0
compiler/llvm/llvmtype.pas

@@ -367,6 +367,8 @@ implementation
                                     callpara^.ai:=cnv;
                                     callpara^.ai:=cnv;
                                   end;
                                   end;
                               end;
                               end;
+                            else
+                              ;
                           end;
                           end;
                         end;
                         end;
                     end;
                     end;

+ 2 - 0
compiler/rautils.pas

@@ -1407,6 +1407,8 @@ begin
                 not(po_external in tprocdef(tprocsym(srsym).ProcdefList[0]).procoptions) then
                 not(po_external in tprocdef(tprocsym(srsym).ProcdefList[0]).procoptions) then
                cnodeutils.RegisterUsedAsmSym(current_asmdata.RefAsmSymbol(tprocdef(tprocsym(srsym).ProcdefList[0]).mangledname,AT_FUNCTION),tprocdef(tprocsym(srsym).ProcdefList[0]),true);
                cnodeutils.RegisterUsedAsmSym(current_asmdata.RefAsmSymbol(tprocdef(tprocsym(srsym).ProcdefList[0]).mangledname,AT_FUNCTION),tprocdef(tprocsym(srsym).ProcdefList[0]),true);
            end;
            end;
+         else
+           ;
       end;
       end;
     end;
     end;
 end;
 end;