From c41995636762bee762e4dd0450d898eb837d91dd Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Sun, 5 Jan 2003 20:39:53 +0000
Subject: [PATCH] * warnings about FreeTemp already free fixed with appropriate
 registers handling

---
 compiler/sparc/cpubase.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/compiler/sparc/cpubase.pas b/compiler/sparc/cpubase.pas
index 0f73426971..7dc9ce2b95 100644
--- a/compiler/sparc/cpubase.pas
+++ b/compiler/sparc/cpubase.pas
@@ -351,8 +351,8 @@ used, because contains a lot of unnessary fields.}
                                  Constants
 *****************************************************************************}
 
-CONST
-  general_registers = [R_L0..R_L7];
+const
+  general_registers = [R_G0..R_I7];
   { legEND:                                                                }
   { xxxregs = set of all possibly used registers of that type in the code  }
   {           generator                                                    }
@@ -371,11 +371,11 @@ CONST
   usableregsmm=[];
   c_countusableregsmm=8;
   
-  firstsaveintreg = R_G0;
+  firstsaveintreg = R_I0;
   lastsaveintreg = R_I7;
   firstsavefpureg = R_F0;
   lastsavefpureg = R_F31;
-  firstsavemmreg = R_G0;
+  firstsavemmreg = R_I0;
   lastsavemmreg = R_I7;
   lowsavereg = R_G0;
   highsavereg = R_I7;
@@ -523,7 +523,10 @@ function flags_to_cond(const f:TResFlags):TAsmCond;
 END.
 {
   $Log$
-  Revision 1.16  2002-10-28 20:59:17  mazen
+  Revision 1.17  2003-01-05 20:39:53  mazen
+  * warnings about FreeTemp already free fixed with appropriate registers handling
+
+  Revision 1.16  2002/10/28 20:59:17  mazen
   * TOpSize values changed S_L --> S_SW
 
   Revision 1.15  2002/10/28 20:37:44  mazen