From: ken <unknown>
Date: Tue, 24 Jul 2001 06:02:21 +0000 (+0000)
Subject: [project @ 2001-07-24 06:02:21 by ken]
X-Git-Tag: Approximately_9120_patches~1439
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f67093863e39083d979df087b3c1e358f5829b9c;p=ghc-hetmet.git

[project @ 2001-07-24 06:02:21 by ken]
Fix typo in StgRun() for the Alpha
---

diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index be58430..d5abf20 100644
--- a/ghc/rts/StgCRun.c
+++ b/ghc/rts/StgCRun.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.23 2000/12/04 12:31:21 simonmar Exp $
+ * $Id: StgCRun.c,v 1.24 2001/07/24 06:02:21 ken Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -393,7 +393,7 @@ StgRun(StgFunPtr f, StgRegTable *basereg)
                	      ".globl " STG_RETURN "\n"
                       STG_RETURN ":\n\t"
 		      "lda %0,($14)\n\t"  /* save R1 */
-               	      "lda $30,%0($30)\n\t"
+               	      "lda $30,%1($30)\n\t"
                	      "ldq $9,-8($30)\n\t"
                	      "ldq $10,-16($30)\n\t"
                	      "ldq $11,-24($30)\n\t"