From 1e72dd2d7863bbe52905eab047d7221451c1f966 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 25 Oct 2003 10:37:26 +0000
Subject: [PATCH]   * fixed compilation of ppc compiler

---
 compiler/powerpc/aasmcpu.pas  | 15 +++++++++------
 compiler/powerpc/agppcgas.pas | 11 +++++++----
 compiler/powerpc/agppcmpw.pas | 15 +++++++++------
 3 files changed, 25 insertions(+), 16 deletions(-)

diff --git a/compiler/powerpc/aasmcpu.pas b/compiler/powerpc/aasmcpu.pas
index b39aa3197e..559b9423f8 100644
--- a/compiler/powerpc/aasmcpu.pas
+++ b/compiler/powerpc/aasmcpu.pas
@@ -110,7 +110,7 @@ uses cutils,rgobj;
       begin
         if opidx>=ops then
          ops:=opidx+1;
-        with oper[opidx] do
+        with oper[opidx]^ do
          begin
            if typ=top_ref then
             dispose(ref);
@@ -351,7 +351,7 @@ uses cutils,rgobj;
       begin
         { we don't insert any more nops than necessary }
         is_nop :=
-          ((opcode=A_MR) and (oper[0].typ=top_reg) and (oper[1].typ=top_reg) and (oper[0].reg=oper[1].reg));
+          ((opcode=A_MR) and (oper[0]^.typ=top_reg) and (oper[1]^.typ=top_reg) and (oper[0]^.reg=oper[1]^.reg));
       end;
 
 
@@ -361,9 +361,9 @@ uses cutils,rgobj;
                    (opcode = A_EXTSB) or
                    (opcode = A_EXTSH) or
                    ((opcode = A_RLWINM) and
-                    (oper[2].val = 0) and
-                    (oper[4].val = 31) and
-                    (oper[3].val in [31-8+1,31-16+1]));
+                    (oper[2]^.val = 0) and
+                    (oper[4]^.val = 31) and
+                    (oper[3]^.val in [31-8+1,31-16+1]));
       end;
 
 
@@ -466,7 +466,10 @@ uses cutils,rgobj;
 end.
 {
   $Log$
-  Revision 1.18  2003-10-01 20:34:49  peter
+  Revision 1.19  2003-10-25 10:37:26  florian
+    * fixed compilation of ppc compiler
+
+  Revision 1.18  2003/10/01 20:34:49  peter
     * procinfo unit contains tprocinfo
     * cginfo renamed to cgbase
     * moved cgmessage to verbose
diff --git a/compiler/powerpc/agppcgas.pas b/compiler/powerpc/agppcgas.pas
index 9d1ad32114..7c294de135 100644
--- a/compiler/powerpc/agppcgas.pas
+++ b/compiler/powerpc/agppcgas.pas
@@ -265,8 +265,8 @@ unit agppcgas;
                s:=cond2str(op,taicpu(hp).condition)+',';
           end;
 
-          if (taicpu(hp).oper[0].typ <> top_none) then
-            s:=s+getopstr_jmp(taicpu(hp).oper[0]);
+          if (taicpu(hp).oper[0]^.typ <> top_none) then
+            s:=s+getopstr_jmp(taicpu(hp).oper[0]^);
         end
       else
         { process operands }
@@ -285,7 +285,7 @@ unit agppcgas;
                    // debug code
                    // writeln(s);
                    // writeln(taicpu(hp).fileinfo.line);
-                   s:=s+sep+getopstr(taicpu(hp).oper[i]);
+                   s:=s+sep+getopstr(taicpu(hp).oper[i]^);
                    sep:=',';
                 end;
             end;
@@ -298,7 +298,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.31  2003-10-01 20:34:49  peter
+  Revision 1.32  2003-10-25 10:37:26  florian
+    * fixed compilation of ppc compiler
+
+  Revision 1.31  2003/10/01 20:34:49  peter
     * procinfo unit contains tprocinfo
     * cginfo renamed to cgbase
     * moved cgmessage to verbose
diff --git a/compiler/powerpc/agppcmpw.pas b/compiler/powerpc/agppcmpw.pas
index 94cb0eed4a..b6749465bf 100644
--- a/compiler/powerpc/agppcmpw.pas
+++ b/compiler/powerpc/agppcmpw.pas
@@ -294,8 +294,8 @@ var
              else
                s:=cond2str(op,taicpu(hp).condition)+',';
           end;
-          if (taicpu(hp).oper[0].typ <> top_none) then
-            s:=s+getopstr_jmp(taicpu(hp).oper[0]);
+          if (taicpu(hp).oper[0]^.typ <> top_none) then
+            s:=s+getopstr_jmp(taicpu(hp).oper[0]^);
           if use_PR then
             if (op=A_BL) or (op=A_BLA) then
               s:=s+'[PR]';
@@ -305,7 +305,7 @@ var
         begin
           case op of
              A_MFSPR:
-               case taicpu(hp).oper[1].reg of
+               case taicpu(hp).oper[1]^.reg of
                   NR_CR:
                     begin
                        op:=A_MFCR;
@@ -320,7 +320,7 @@ var
                     internalerror(2002100701);
                end;
              A_MTSPR:
-               case taicpu(hp).oper[1].reg of
+               case taicpu(hp).oper[1]^.reg of
                   NR_CR:
                     begin
                        op:=A_MTCR;
@@ -341,7 +341,7 @@ var
                sep:=#9;
                for i:=0 to taicpu(hp).ops-1 do
                  begin
-                   s:=s+sep+getopstr(taicpu(hp).oper[i]);
+                   s:=s+sep+getopstr(taicpu(hp).oper[i]^);
                    sep:=',';
                  end;
             end;
@@ -1337,7 +1337,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.26  2003-10-01 20:34:49  peter
+  Revision 1.27  2003-10-25 10:37:26  florian
+    * fixed compilation of ppc compiler
+
+  Revision 1.26  2003/10/01 20:34:49  peter
     * procinfo unit contains tprocinfo
     * cginfo renamed to cgbase
     * moved cgmessage to verbose