diff options
| -rw-r--r-- | ghc/rts/StgMiscClosures.hc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc index 71f7ef77b8..6433a90e74 100644 --- a/ghc/rts/StgMiscClosures.hc +++ b/ghc/rts/StgMiscClosures.hc @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: StgMiscClosures.hc,v 1.82 2002/12/13 19:14:58 wolfgang Exp $ + * $Id: StgMiscClosures.hc,v 1.83 2003/01/08 12:37:45 simonmar Exp $ * * (c) The GHC Team, 1998-2002 * @@ -234,8 +234,8 @@ IF_(stg_apply_interp_entry) INFO_TABLE_FUN_GEN(stg_BCO_info,stg_BCO_entry,4,0, 0,0,0, /* no SRT */ ARG_BCO, 0/*dummy arity*/, 0/*dummy bitmap*/, NULL/*slow_apply*/, - BCO,,IF_,"BCO","BCO"); -IF_(stg_BCO_entry) { + BCO,,EF_,"BCO","BCO"); +FN_(stg_BCO_entry) { FB_ // entering a BCO means "apply it", same as a function Sp -= 2; |