Răsfoiți Sursa

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

git-svn-id: trunk@28498 -
Károly Balogh 11 ani în urmă
părinte
comite
09608a1c28

+ 10 - 0
compiler/arm/narmadd.pas

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

+ 1 - 0
compiler/arm/raarmgas.pas

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

+ 1 - 0
compiler/systems/t_gba.pas

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

+ 6 - 2
compiler/systems/t_nds.pas

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