Browse Source

* changed result type of dwarf_reg from byte to shortint to avoid
warning about comparison which can never be true

git-svn-id: trunk@4183 -

Jonas Maebe 19 years ago
parent
commit
90cacb4cf5

+ 2 - 2
compiler/arm/cpubase.pas

@@ -370,7 +370,7 @@ unit cpubase;
     function is_pc(const r : tregister) : boolean;
 
     function is_shifter_const(d : aint;var imm_shift : byte) : boolean;
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
 
   implementation
 
@@ -519,7 +519,7 @@ unit cpubase;
       end;
 
 
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
       begin
         result:=regdwarf_table[findreg_by_number(r)];
         if result=-1 then

+ 2 - 2
compiler/m68k/cpubase.pas

@@ -333,7 +333,7 @@ unit cpubase;
 
     function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
     function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
 
 implementation
 
@@ -504,7 +504,7 @@ implementation
       end;
 
 
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
       begin
         result:=regdwarf_table[findreg_by_number(r)];
         if result=-1 then

+ 2 - 2
compiler/powerpc/cpubase.pas

@@ -399,7 +399,7 @@ uses
 
     function inverse_cond(const c: TAsmCond): Tasmcond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
     function conditions_equal(const c1, c2: TAsmCond): boolean;
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
 
 implementation
 
@@ -556,7 +556,7 @@ implementation
       end;
 
 
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
       begin
         result:=regdwarf_table[findreg_by_number(r)];
         if result=-1 then

+ 2 - 2
compiler/powerpc64/cpubase.pas

@@ -399,7 +399,7 @@ function is_condreg(r: tregister): boolean;
 function inverse_cond(const c: TAsmCond): Tasmcond;
 {$IFDEF USEINLINE}inline;{$ENDIF USEINLINE}
 function conditions_equal(const c1, c2: TAsmCond): boolean;
-function dwarf_reg(r:tregister):byte;
+function dwarf_reg(r:tregister):shortint;
 
 implementation
 
@@ -547,7 +547,7 @@ begin
     result := generic_regname(r);
 end;
 
-function dwarf_reg(r:tregister):byte;
+function dwarf_reg(r:tregister):shortint;
 begin
   result:=regdwarf_table[findreg_by_number(r)];
   if result=-1 then

+ 2 - 2
compiler/sparc/cpubase.pas

@@ -338,7 +338,7 @@ uses
     function std_regname(r:Tregister):string;
     function std_regnum_search(const s:string):Tregister;
     function findreg_by_number(r:Tregister):tregisterindex;
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
 
 
 implementation
@@ -480,7 +480,7 @@ implementation
         result := c1 = c2;
       end;
 
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
       begin
         result:=regdwarf_table[findreg_by_number(r)];
         if result=-1 then

+ 2 - 2
compiler/x86/cpubase.pas

@@ -254,7 +254,7 @@ uses
     function findreg_by_number(r:Tregister):tregisterindex;
     function std_regnum_search(const s:string):Tregister;
     function std_regname(r:Tregister):string;
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
 
     function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
     function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
@@ -472,7 +472,7 @@ implementation
       end;
 
 
-    function dwarf_reg(r:tregister):byte;
+    function dwarf_reg(r:tregister):shortint;
       begin
         result:=regdwarf_table[findreg_by_number(r)];
         if result=-1 then