From 5bca0638e5f11da2545f0401f7ffc4abf394c973 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 27 Jul 1999 13:29:08 +0000
Subject: [PATCH] [project @ 1999-07-27 13:29:08 by simonmar] fix typo in
hppa1.1 support.
---
ghc/rts/StgCRun.c | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index 016275eb73f6..6d3109aa6b80 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;
--
GitLab