X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStgCRun.c;h=6d3109aa6b80c9a9c5a3945cb50f2b7ef4592dea;hb=5bca0638e5f11da2545f0401f7ffc4abf394c973;hp=016275eb73f622c9eb9da06f5b2e14d9cd6e0839;hpb=eff316f25357221991b4cd17dd02439478101d6d;p=ghc-hetmet.git

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;