diff options
| author | simonmar <unknown> | 2001-01-29 17:23:41 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-01-29 17:23:41 +0000 |
| commit | ee3e75b51e5a86dda79bb990a83bfaa49915a22a (patch) | |
| tree | 5080e94899a9e26ff6ee637e7af13ffd6474d302 /ghc/rts/Storage.h | |
| parent | 489aed0633fced729097280d760db9d497481846 (diff) | |
| download | haskell-ee3e75b51e5a86dda79bb990a83bfaa49915a22a.tar.gz | |
[project @ 2001-01-29 17:23:40 by simonmar]
Remove the old Hugs CAF code, install our own (minimal, somewhat
cryptic, but better commented) CAF reversion story. See
Storage.c:newCaf() for the details.
Diffstat (limited to 'ghc/rts/Storage.h')
| -rw-r--r-- | ghc/rts/Storage.h | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ghc/rts/Storage.h b/ghc/rts/Storage.h index e32e9ada7c..b834df4895 100644 --- a/ghc/rts/Storage.h +++ b/ghc/rts/Storage.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Storage.h,v 1.24 2001/01/26 14:36:40 simonpj Exp $ + * $Id: Storage.h,v 1.25 2001/01/29 17:23:41 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -534,9 +534,6 @@ static __inline__ StgOffset THUNK_SELECTOR_sizeW ( void ) static __inline__ StgOffset BLACKHOLE_sizeW ( void ) { return sizeofW(StgHeader) + MIN_UPD_SIZE; } -static __inline__ StgOffset CAF_sizeW ( void ) -{ return sizeofW(StgCAF); } - /* -------------------------------------------------------------------------- * Sizes of closures * ------------------------------------------------------------------------*/ |