From 0d004c1e35c5e2241b4a0419f826fc201244c372 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 3 Feb 2004 19:48:06 +0000
Subject: [PATCH]   * fixed and re-enabled temps in registers

---
 compiler/nbas.pas   |  7 +++++--
 compiler/ncgbas.pas | 10 +++++++++-
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/compiler/nbas.pas b/compiler/nbas.pas
index 89eef28e59..902d8e13fe 100644
--- a/compiler/nbas.pas
+++ b/compiler/nbas.pas
@@ -671,7 +671,7 @@ implementation
     constructor ttempcreatenode.create_reg(const _restype: ttype; _size: longint; _temptype: ttemptype);
       begin
         create(_restype,_size,_temptype);
-//        may_be_in_reg:=true;
+        may_be_in_reg:=true;
       end;
 
     constructor ttempcreatenode.create(const _restype: ttype; _size: longint; _temptype: ttemptype);
@@ -1002,7 +1002,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.77  2004-02-03 17:56:14  jonas
+  Revision 1.78  2004-02-03 19:48:06  jonas
+    * fixed and re-enabled temps in registers
+
+  Revision 1.77  2004/02/03 17:56:14  jonas
     * disabled temps in registers for now, because the register allocator
       can't handle it yet in some cases
 
diff --git a/compiler/ncgbas.pas b/compiler/ncgbas.pas
index a6934dd765..335d443600 100644
--- a/compiler/ncgbas.pas
+++ b/compiler/ncgbas.pas
@@ -441,12 +441,17 @@ interface
               else
                 tg.UnGetTemp(exprasmlist,tempinfo^.loc.ref);
             end;
+          LOC_CREGISTER,
           LOC_REGISTER:
             begin
               if release_to_normal then
                 tempinfo^.loc.loc := LOC_REGISTER
               else
                 begin
+                  { make sure the register allocator doesn't reuse the }
+                  { register e.g. in the middle of a loop              }
+                  cg.a_load_reg_reg(exprasmlist,OS_INT,OS_INT,tempinfo^.loc.reg,
+                    tempinfo^.loc.reg);
                   { !!tell rgobj this register is no longer a regvar!! }
                   cg.ungetregister(exprasmlist,tempinfo^.loc.reg);
                 end;
@@ -466,7 +471,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.53  2004-02-03 17:55:50  jonas
+  Revision 1.54  2004-02-03 19:48:06  jonas
+    * fixed and re-enabled temps in registers
+
+  Revision 1.53  2004/02/03 17:55:50  jonas
     * cleanup
 
   Revision 1.52  2004/02/03 16:46:51  jonas