Просмотр исходного кода

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

git-svn-id: trunk@28501 -
Károly Balogh 11 лет назад
Родитель
Сommit
6122db7d40
3 измененных файлов с 7 добавлено и 1 удалено
  1. 5 0
      compiler/powerpc/nppcadd.pas
  2. 1 0
      compiler/powerpc/nppcmat.pas
  3. 1 1
      compiler/systems/t_morph.pas

+ 5 - 0
compiler/powerpc/nppcadd.pas

@@ -73,6 +73,7 @@ interface
         tmpreg : tregister;
         useconst : boolean;
       begin
+        tmpreg:=NR_NO;
         // get the constant on the right if there is one
         if (left.location.loc = LOC_CONSTANT) then
           swapleftright;
@@ -512,6 +513,8 @@ interface
                       op1 := A_MULLW;
                       op2 := A_MULHWU
                     end;
+                  else
+                    internalerror(2014082040);
                 end;
               end;
             current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(op1,location.register64.reglo,
@@ -663,6 +666,8 @@ interface
                        cgop := OP_OR;
                      andn:
                        cgop := OP_AND;
+                     else
+                       internalerror(2014082041);
                    end;
                    if (left.location.loc = LOC_CONSTANT) then
                      swapleftright;

+ 1 - 0
compiler/powerpc/nppcmat.pas

@@ -419,6 +419,7 @@ implementation
         op: tasmop;
 
       begin
+         src1:=NR_NO;
          secondpass(left);
          if is_64bit(left.resultdef) then
            begin

+ 1 - 1
compiler/systems/t_morph.pas

@@ -205,13 +205,13 @@ var
   success : boolean;
   StripStr: string[40];
 begin
+  StripStr:='';
 
   if not(cs_link_nolink in current_settings.globalswitches) then
    Message1(exec_i_linking,current_module.exefilename);
 
   if UseVLink then
    begin
-    StripStr:='';
     if (cs_link_strip in current_settings.globalswitches) then
      StripStr:='-s -P __abox__';
    end;