From b917897ef4604b169d6414b7f172a41d2ea28a97 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Fri, 17 Jan 2003 12:03:45 +0000
Subject: [PATCH]   * Optalign conditional code adapted to record Tregister

---
 compiler/ncgcal.pas | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/compiler/ncgcal.pas b/compiler/ncgcal.pas
index 603225cd6e..25ba5a418a 100644
--- a/compiler/ncgcal.pas
+++ b/compiler/ncgcal.pas
@@ -650,16 +650,18 @@ implementation
                 and nested procedures
               }
               inc(push_size,12);
-              emit_reg_reg(A_MOV,S_L,R_ESP,R_EDI);
+              r.enum:=R_ESP:
+              r2.enum:=R_EDI;
+              emit_reg_reg(A_MOV,S_L,r,r2);
               if (push_size mod 8)=0 then
-                emit_const_reg(A_AND,S_L,$fffffff8,R_ESP)
+                emit_const_reg(A_AND,S_L,$fffffff8,r)
               else
                 begin
-                   emit_const_reg(A_SUB,S_L,push_size,R_ESP);
-                   emit_const_reg(A_AND,S_L,$fffffff8,R_ESP);
-                   emit_const_reg(A_SUB,S_L,push_size,R_ESP);
+                   emit_const_reg(A_SUB,S_L,push_size,r);
+                   emit_const_reg(A_AND,S_L,$fffffff8,r);
+                   emit_const_reg(A_SUB,S_L,push_size,r);
                 end;
-              emit_reg(A_PUSH,S_L,R_EDI);
+              emit_reg(A_PUSH,S_L,r2);
            end
          else
            pop_esp:=false;
@@ -1248,8 +1250,9 @@ implementation
            tppcprocinfo(procinfo).maxpushedparasize:=pushedparasize;
 {$endif powerpc}
 {$ifdef OPTALIGN}
+         r.enum:=R_ESP;
          if pop_esp then
-           emit_reg(A_POP,S_L,R_ESP);
+           emit_reg(A_POP,S_L,r);
 {$endif OPTALIGN}
       dont_call:
          pushedparasize:=oldpushedparasize;
@@ -1569,7 +1572,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.33  2003-01-08 18:43:56  daniel
+  Revision 1.34  2003-01-17 12:03:45  daniel
+    * Optalign conditional code adapted to record Tregister
+
+  Revision 1.33  2003/01/08 18:43:56  daniel
    * Tregister changed into a record
 
   Revision 1.32  2002/12/15 22:50:00  florian