From 90cacb4cf58d86a25f9abff26242f0695b063510 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 14 Jul 2006 17:25:16 +0000
Subject: [PATCH]   * 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 -
---
 compiler/arm/cpubase.pas       | 4 ++--
 compiler/m68k/cpubase.pas      | 4 ++--
 compiler/powerpc/cpubase.pas   | 4 ++--
 compiler/powerpc64/cpubase.pas | 4 ++--
 compiler/sparc/cpubase.pas     | 4 ++--
 compiler/x86/cpubase.pas       | 4 ++--
 6 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/compiler/arm/cpubase.pas b/compiler/arm/cpubase.pas
index 5e150b3028..6c0b2392ee 100644
--- a/compiler/arm/cpubase.pas
+++ b/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
diff --git a/compiler/m68k/cpubase.pas b/compiler/m68k/cpubase.pas
index 6c839ef2a5..4f41c5cadd 100644
--- a/compiler/m68k/cpubase.pas
+++ b/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
diff --git a/compiler/powerpc/cpubase.pas b/compiler/powerpc/cpubase.pas
index 1c396febac..3f108077cb 100644
--- a/compiler/powerpc/cpubase.pas
+++ b/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
diff --git a/compiler/powerpc64/cpubase.pas b/compiler/powerpc64/cpubase.pas
index 664f4a733c..fb8179c995 100644
--- a/compiler/powerpc64/cpubase.pas
+++ b/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
diff --git a/compiler/sparc/cpubase.pas b/compiler/sparc/cpubase.pas
index 73e53a81cd..a686533dcc 100644
--- a/compiler/sparc/cpubase.pas
+++ b/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
diff --git a/compiler/x86/cpubase.pas b/compiler/x86/cpubase.pas
index 4b44a86f72..e1300e6d11 100644
--- a/compiler/x86/cpubase.pas
+++ b/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