paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed result type of dwarf_reg from byte to shortint to avoid

Browse Source 
warning about comparison which can never be true

git-svn-id: trunk@4183 -
This commit is contained in:
Jonas Maebe 2006-07-14 17:25:16 +00:00
parent a12f293781
commit 90cacb4cf5
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/cpubase.pas
View File

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

4
compiler/m68k/cpubase.pas
View File

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

4
compiler/powerpc/cpubase.pas
View File

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

4
compiler/powerpc64/cpubase.pas
View File

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

4
compiler/sparc/cpubase.pas
View File

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

4
compiler/x86/cpubase.pas
View File

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