diff options
| author | simonmar <unknown> | 2003-01-08 12:37:45 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-01-08 12:37:45 +0000 |
| commit | 63366c1a6368fa8fe5532d16db01810c5576f14f (patch) | |
| tree | 1e9923b928635d5aacc6176907e20e1e77430254 /ghc | |
| parent | 7a156bdfc2b3ba1b406f96a3a68abb0d076410b0 (diff) | |
| download | haskell-63366c1a6368fa8fe5532d16db01810c5576f14f.tar.gz | |
[project @ 2003-01-08 12:37:45 by simonmar]
stg_BCO_entry needs to be extern now.
Diffstat (limited to 'ghc')
| -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; |