diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-07-14 17:25:16 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-07-14 17:25:16 +0000 |
| commit | 9d22ffb878c9b0b35b383a002a911741075973ea (patch) | |
| tree | e5093f9b58deb938e01dc1735bcad3ea9c977e48 /compiler/sparc | |
| parent | f587442e03429a44b4bf4d112203c614c9e570eb (diff) | |
| download | fpc-9d22ffb878c9b0b35b383a002a911741075973ea.tar.gz | |
* changed result type of dwarf_reg from byte to shortint to avoid
warning about comparison which can never be true
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@4183 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/sparc')
| -rw-r--r-- | compiler/sparc/cpubase.pas | 4 |
1 files changed, 2 insertions, 2 deletions
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 |