From: simonmar <unknown>
Date: Mon, 25 Apr 2005 13:45:40 +0000 (+0000)
Subject: [project @ 2005-04-25 13:45:40 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~676
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6d6a95746e34f60bb27bc5c7c598838d13bb1961;p=ghc-hetmet.git

[project @ 2005-04-25 13:45:40 by simonmar]
Yet another StgClosure that should be StgThunk
---

diff --git a/ghc/rts/RtsAPI.c b/ghc/rts/RtsAPI.c
index d196c91..0a6b42e 100644
--- a/ghc/rts/RtsAPI.c
+++ b/ghc/rts/RtsAPI.c
@@ -199,9 +199,9 @@ rts_mkString (char *s)
 HaskellObj
 rts_apply (HaskellObj f, HaskellObj arg)
 {
-    StgClosure *ap;
+    StgThunk *ap;
 
-    ap = (StgClosure *)allocate(sizeofW(StgClosure) + 2);
+    ap = (StgThunk *)allocate(sizeofW(StgThunk) + 2);
     SET_HDR(ap, (StgInfoTable *)&stg_ap_2_upd_info, CCS_SYSTEM);
     ap->payload[0] = f;
     ap->payload[1] = arg;