From: simonmar <unknown>
Date: Tue, 25 Apr 2000 14:57:39 +0000 (+0000)
Subject: [project @ 2000-04-25 14:57:39 by simonmar]
X-Git-Tag: Approximately_9120_patches~4615
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=78edf8c95325edf57f5b87fd85f924ce1dfdb200;p=ghc-hetmet.git

[project @ 2000-04-25 14:57:39 by simonmar]
Fix bug in rts_apply when profiling.

This fixes Sven's foreign export dynamic/profiling bug.
---

diff --git a/ghc/rts/RtsAPI.c b/ghc/rts/RtsAPI.c
index 9690743..7ab8b44 100644
--- a/ghc/rts/RtsAPI.c
+++ b/ghc/rts/RtsAPI.c
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: RtsAPI.c,v 1.15 2000/04/05 13:53:33 panne Exp $
+ * $Id: RtsAPI.c,v 1.16 2000/04/25 14:57:39 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -196,7 +196,7 @@ HaskellObj
 rts_apply (HaskellObj f, HaskellObj arg)
 {
   StgAP_UPD *ap = (StgAP_UPD *)allocate(AP_sizeW(1));
-  ap->header.info = &AP_UPD_info;
+  SET_HDR(ap, &AP_UPD_info, CCS_SYSTEM);
   ap->n_args = 1;
   ap->fun    = f;
   ap->payload[0] = (P_)arg;