From ae0004b26003431180edb214f2f6175022ab8bf4 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 20 Nov 2000 11:15:41 +0000 Subject: [PATCH] [project @ 2000-11-20 11:15:41 by simonmar] remove #warn --- ghc/rts/Evaluator.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c index 03a1548..0ae503e 100644 --- a/ghc/rts/Evaluator.c +++ b/ghc/rts/Evaluator.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-2000. * * $RCSfile: Evaluator.c,v $ - * $Revision: 1.59 $ - * $Date: 2000/11/07 13:30:41 $ + * $Revision: 1.60 $ + * $Date: 2000/11/20 11:15:41 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" @@ -1561,7 +1561,6 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 ) } obj = ap->fun; #ifdef EAGER_BLACKHOLING -#warn LAZY_BLACKHOLING is default for StgHugs #error Dont know if EAGER_BLACKHOLING works in StgHugs { /* superfluous - but makes debugging easier */ @@ -1878,7 +1877,6 @@ static inline void PopUpdateFrame ( StgClosure* obj ) fprintf(stderr,"gSp = %p\tgSu = %p\n\n", gSp, gSu); ); #ifdef EAGER_BLACKHOLING -#warn LAZY_BLACKHOLING is default for StgHugs #error Dont know if EAGER_BLACKHOLING works in StgHugs ASSERT(get_itbl(gSu->updatee)->type == BLACKHOLE || get_itbl(gSu->updatee)->type == SE_BLACKHOLE -- 1.7.10.4