From: ken <unknown>
Date: Sat, 22 Sep 2001 10:49:31 +0000 (+0000)
Subject: [project @ 2001-09-22 10:49:31 by ken]
X-Git-Tag: Approximately_9120_patches~938
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0e25b971fb86cd91767644301dcfa2c1c413e3a8;hp=a9429ca7251683af223eb28460668d4bb0391535;p=ghc-hetmet.git

[project @ 2001-09-22 10:49:31 by ken]
wibble
---

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index 03e0ee4..85273a8 100644
--- a/ghc/rts/Adjustor.c
+++ b/ghc/rts/Adjustor.c
@@ -233,7 +233,7 @@ createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr)
   <04>: 46100412	mov	a0, a2
   <08>: a61b0020	ldq     a0, 0x20(pv)	# load up hptr
   <0c>: 46730415	mov	a3, a5
-  <10>: a77b0028	ldq     t12, 0x28(pv)	# load up wptr
+  <10>: a77b0028	ldq     pv, 0x28(pv)	# load up wptr
   <14>: 46310413	mov	a1, a3
   <18>: 6bfb----	jmp     (pv), <hint>	# jump to wptr (with hint)
   <1c>: 00000000				# padding for alignment