From 976aa043781f51a752fb9ee601969d91c785aa83 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 9 Feb 2009 09:47:02 +0000
Subject: [PATCH]   * fixed ppc/ppc64 compilation after r12719

git-svn-id: trunk@12730 -
---
 compiler/powerpc/cgcpu.pas   | 2 +-
 compiler/ppcgen/ngppcset.pas | 4 ++--
 compiler/ppcgen/rgcpu.pas    | 6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/powerpc/cgcpu.pas b/compiler/powerpc/cgcpu.pas
index 7cc7d00690..ca573757b5 100644
--- a/compiler/powerpc/cgcpu.pas
+++ b/compiler/powerpc/cgcpu.pas
@@ -221,7 +221,7 @@ const
                 end;
               LOC_REFERENCE:
                 begin
-                   reference_reset_base(ref,location^.reference.index,location^.reference.offset,cgpara.alignment);
+                   reference_reset_base(ref,location^.reference.index,location^.reference.offset,paraloc.alignment);
                    g_concatcopy(list,tmpref,ref,sizeleft);
                    if assigned(location^.next) then
                      internalerror(2005010710);
diff --git a/compiler/ppcgen/ngppcset.pas b/compiler/ppcgen/ngppcset.pas
index b6e92053a0..02b5993c35 100644
--- a/compiler/ppcgen/ngppcset.pas
+++ b/compiler/ppcgen/ngppcset.pas
@@ -122,11 +122,11 @@ implementation
         { create reference, indexreg := indexreg * sizeof(jtentry) (= 4) }
         mulfactor:=4;
         cg.a_op_const_reg(current_asmdata.CurrAsmList, OP_MUL, OS_INT, mulfactor, indexreg);
-        reference_reset_symbol(href, table, (-aint(min_)) * mulfactor);
+        reference_reset_symbol(href, table, (-aint(min_)) * mulfactor, 4);
 
         hregister:=cg.getaddressregister(current_asmdata.CurrAsmList);
         cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,hregister);
-        reference_reset_base(href,hregister,0);
+        reference_reset_base(href,hregister,0,4);
         href.index:=indexreg;
         indexreg:=cg.getaddressregister(current_asmdata.CurrAsmList);
         cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_S32,OS_ADDR,href,indexreg);
diff --git a/compiler/ppcgen/rgcpu.pas b/compiler/ppcgen/rgcpu.pas
index d0d1279d7b..60598a45d0 100644
--- a/compiler/ppcgen/rgcpu.pas
+++ b/compiler/ppcgen/rgcpu.pas
@@ -48,7 +48,7 @@ unit rgcpu;
   implementation
 
     uses
-      verbose, cutils,
+      verbose, cutils,globtype,
       cgobj,
       procinfo;
 
@@ -77,7 +77,7 @@ unit rgcpu;
             else
               hreg:=cg.getintregister(helplist,OS_ADDR);
 
-            reference_reset(tmpref);
+            reference_reset(tmpref,sizeof(aint));
             tmpref.offset:=spilltemp.offset;
             tmpref.refaddr := addr_higha;
             ins:=taicpu.op_reg_reg_ref(A_ADDIS,hreg,spilltemp.base,tmpref);
@@ -127,7 +127,7 @@ unit rgcpu;
               end
             else
               hreg:=cg.getintregister(helplist,OS_ADDR);
-            reference_reset(tmpref);
+            reference_reset(tmpref,sizeof(aint));
             tmpref.offset:=spilltemp.offset;
             tmpref.refaddr := addr_higha;
             ins:=taicpu.op_reg_reg_ref(A_ADDIS,hreg,spilltemp.base,tmpref);