From: simonmar <unknown>
Date: Tue, 13 Feb 2001 11:11:06 +0000 (+0000)
Subject: [project @ 2001-02-13 11:11:06 by simonmar]
X-Git-Tag: Approximately_9120_patches~2655
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=66501562de9d34aed2ef662da6b0c17795e0dab5;p=ghc-hetmet.git

[project @ 2001-02-13 11:11:06 by simonmar]
make this compile with profiling on (it probably won't work, though).
---

diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c
index f371862..c7500ef 100644
--- a/ghc/rts/Interpreter.c
+++ b/ghc/rts/Interpreter.c
@@ -5,8 +5,8 @@
  * Copyright (c) 1994-2000.
  *
  * $RCSfile: Interpreter.c,v $
- * $Revision: 1.18 $
- * $Date: 2001/02/12 12:44:11 $
+ * $Revision: 1.19 $
+ * $Date: 2001/02/13 11:11:06 $
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
@@ -562,7 +562,7 @@ StgThreadReturnCode interpretBCO ( Capability* cap )
                  ap = (StgAP_UPD*)allocate_UPD(request);
                  StackWord(-1) = (W_)ap;
                  ap->n_args = n_payload;
-                 SET_HDR(ap, &stg_AP_UPD_info, ??)
+                 SET_HDR(ap, &stg_AP_UPD_info, CCS_SYSTEM/*ToDo*/)
                  iSp --;
                  goto nextInsn;
               }