From 431b9fac8154176995150e51893ea675291ed77c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 31 Aug 2002 21:38:02 +0000
Subject: [PATCH]   * fixed a_call_ref (it should load ctr, not lr)

---
 compiler/powerpc/cgcpu.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/powerpc/cgcpu.pas b/compiler/powerpc/cgcpu.pas
index ef113bf892..1035a717b9 100644
--- a/compiler/powerpc/cgcpu.pas
+++ b/compiler/powerpc/cgcpu.pas
@@ -270,7 +270,7 @@ const
         list.concat(taicpu.op_reg_ref(A_STW,R_TOC,href));
         tmpreg := get_scratch_reg_int(list);
         a_load_ref_reg(list,OS_ADDR,ref,tmpreg);
-        list.concat(taicpu.op_reg(A_MTLR,tmpreg));
+        list.concat(taicpu.op_reg_reg(A_MTSPR,R_CTR,tmpreg));
         free_scratch_reg(list,tmpreg);
         a_reg_dealloc(list,R_0);
         list.concat(taicpu.op_none(A_BCCTRL));
@@ -1688,7 +1688,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.47  2002-08-31 21:30:45  florian
+  Revision 1.48  2002-08-31 21:38:02  jonas
+    * fixed a_call_ref (it should load ctr, not lr)
+
+  Revision 1.47  2002/08/31 21:30:45  florian
     * fixed several problems caused by Jonas' commit :)
 
   Revision 1.46  2002/08/31 19:25:50  jonas