diff options
| author | simonmar <unknown> | 2001-01-31 11:03:21 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-01-31 11:03:21 +0000 |
| commit | c6309937346772588283a89fc3e72cb01e5386e5 (patch) | |
| tree | 8cc56fdf9cda5a56872b67abc125b2294b0ef5ef | |
| parent | cb7a5414a2414df673c33633076816d1c62afc3e (diff) | |
| download | haskell-c6309937346772588283a89fc3e72cb01e5386e5.tar.gz | |
[project @ 2001-01-31 11:03:21 by simonmar]
disable the gcCAFs debugging routine on GHCi - it conflicts with
GHCi's new CAF reversion mechanism.
| -rw-r--r-- | ghc/rts/GC.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c index 073dc2c61f..8790e6e28c 100644 --- a/ghc/rts/GC.c +++ b/ghc/rts/GC.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: GC.c,v 1.93 2001/01/29 17:23:40 simonmar Exp $ + * $Id: GC.c,v 1.94 2001/01/31 11:03:21 simonmar Exp $ * * (c) The GHC Team 1998-1999 * @@ -743,8 +743,8 @@ void GarbageCollect ( void (*get_roots)(void), rtsBool force_major_gc ) } /* mark the garbage collected CAFs as dead */ -#ifdef DEBUG - if (major_gc) { gcCAFs(); } +#if defined(DEBUG) && !defined(GHCI) + if (major_gc) { gcCAFs(); } /* doesn't work w/ GHCI */ #endif /* zero the scavenged static object list */ |