瀏覽代碼

* fix warnings when compiling the compiler with DFA optimizer enabled on ARM

git-svn-id: trunk@28498 -
Károly Balogh 11 年之前
父節點
當前提交
09608a1c28
共有 4 個文件被更改,包括 18 次插入2 次删除
  1. 10 0
      compiler/arm/narmadd.pas
  2. 1 0
      compiler/arm/raarmgas.pas
  3. 1 0
      compiler/systems/t_gba.pas
  4. 6 2
      compiler/systems/t_nds.pas

+ 10 - 0
compiler/arm/narmadd.pas

@@ -85,6 +85,8 @@ interface
                       GetResFlags:=F_LT;
                     gten:
                       GetResFlags:=F_LE;
+                    else
+                      internalerror(201408203);
                   end
                 else
                   case NodeType of
@@ -96,6 +98,8 @@ interface
                       GetResFlags:=F_GT;
                     gten:
                       GetResFlags:=F_GE;
+                    else
+                      internalerror(201408204);
                   end;
               end
             else
@@ -110,6 +114,8 @@ interface
                       GetResFlags:=F_CC;
                     gten:
                       GetResFlags:=F_LS;
+                    else
+                      internalerror(201408205);
                   end
                 else
                   case NodeType of
@@ -121,6 +127,8 @@ interface
                       GetResFlags:=F_HI;
                     gten:
                       GetResFlags:=F_CS;
+                    else
+                      internalerror(201408206);
                   end;
               end;
         end;
@@ -144,6 +152,8 @@ interface
             result:=F_GT;
           gten:
             result:=F_GE;
+          else
+            internalerror(201408207);
         end;
       end;
 

+ 1 - 0
compiler/arm/raarmgas.pas

@@ -1043,6 +1043,7 @@ Unit raarmgas;
         hreg : tregister;
         flags : tspecialregflags;
       begin
+        hreg:=NR_NO;
         case actasmtoken of
           AS_REGISTER:
             begin

+ 1 - 0
compiler/systems/t_gba.pas

@@ -571,6 +571,7 @@ begin
   StripStr:='';
   DynLinkStr:='';
   MapStr:='';
+  GCSectionsStr:='';
 
   if (cs_link_strip in current_settings.globalswitches) and
      not(cs_link_separate_dbg_file in current_settings.globalswitches) then

+ 6 - 2
compiler/systems/t_nds.pas

@@ -82,12 +82,14 @@ Var
   linklibc,
   linklibgcc : boolean;
   found1,
-  found2   : boolean;  
+  found2   : boolean;
 begin
   WriteResponseFile:=False;
   linklibc:=(SharedLibFiles.Find('c')<>nil);
   linklibgcc:=(SharedLibFiles.Find('gcc')<>nil);
-  
+
+  prtobj:='';
+  cprtobj:='';
   case apptype of
     app_arm9:
       begin
@@ -702,6 +704,8 @@ begin
   StripStr:='';
   MapStr:='';
   DynLinkStr:='';
+  GCSectionsStr:='';
+  preName:='';
   case apptype of
    app_arm9: preName:='.nef';
    app_arm7: preName:='.nlf';