diff options
| author | simonmar <unknown> | 2001-02-13 11:11:06 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-02-13 11:11:06 +0000 |
| commit | 66501562de9d34aed2ef662da6b0c17795e0dab5 (patch) | |
| tree | 17caa375042304f293641bf07f736173c5b13edb /ghc/rts/Interpreter.c | |
| parent | 7b76c2c11ad38257b1b0afd54db4634e7c0c7522 (diff) | |
| download | haskell-66501562de9d34aed2ef662da6b0c17795e0dab5.tar.gz | |
[project @ 2001-02-13 11:11:06 by simonmar]
make this compile with profiling on (it probably won't work, though).
Diffstat (limited to 'ghc/rts/Interpreter.c')
| -rw-r--r-- | ghc/rts/Interpreter.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c index f371862e28..c7500efd9f 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; } |