From: simonmar <unknown>
Date: Tue, 27 Jul 1999 13:29:08 +0000 (+0000)
Subject: [project @ 1999-07-27 13:29:08 by simonmar]
X-Git-Tag: Approximately_9120_patches~5944
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5bca0638e5f11da2545f0401f7ffc4abf394c973

[project @ 1999-07-27 13:29:08 by simonmar]
fix typo in hppa1.1 support.
---

diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index 016275e..6d3109a 100644
--- a/ghc/rts/StgCRun.c
+++ b/ghc/rts/StgCRun.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.6 1999/07/06 16:40:27 sewardj Exp $
+ * $Id: StgCRun.c,v 1.7 1999/07/27 13:29:08 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -203,7 +203,7 @@ StgThreadReturnCode
 StgRun(StgFunPtr f) 
 {
     StgChar space[RESERVED_C_STACK_BYTES+16*sizeof(long)+10*sizeof(double)];
-    StgThredReturnCode ret;
+    StgThreadReturnCode ret;
 
     __asm__ volatile ("ldo %0(%%r30),%%r19\n"
 		      "\tstw %%r3, 0(0,%%r19)\n"
@@ -276,9 +276,9 @@ StgRun(StgFunPtr f)
 		      "\tldo 32(%%r19),%%r19\n"
 		      "\tfldds -16(0,%%r19),%%fr20\n"
 		      "\tfldds  -8(0,%%r19),%%fr21\n" 
-		      : "=r" (ret) /* result */
-                      : "n" (-(116 * sizeof(long) + 10 * sizeof(double))) 
-		      : "%r19"
+		         : "=r" (ret)
+		         : "n" (-(116 * sizeof(long) + 10 * sizeof(double)))
+		         : "%r19"
 		      );
 
     return ret;