From e3253f7937b4a594f53302a7a2604fcf275740fe Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 14 Mar 1997 03:24:12 +0000 Subject: [PATCH] [project @ 1997-03-14 03:24:12 by sof] Nil_closure renamed --- ghc/runtime/c-as-asm/HpOverflow.lc | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/ghc/runtime/c-as-asm/HpOverflow.lc b/ghc/runtime/c-as-asm/HpOverflow.lc index 16b80bb..45deca6 100644 --- a/ghc/runtime/c-as-asm/HpOverflow.lc +++ b/ghc/runtime/c-as-asm/HpOverflow.lc @@ -410,11 +410,11 @@ PruneSparks(STG_NO_ARGS) /* HACK! This clause should actually never happen HWL */ if ( (SPARK_NODE(spark) == NULL) || - (SPARK_NODE(spark) == Prelude_Z91Z93_closure) ) { + (SPARK_NODE(spark) == PrelBase_Z91Z93_closure) ) { # if defined(GRAN_CHECK) && defined(GRAN) if ( RTSflags.GcFlags.giveStats && (RTSflags.GranFlags.debug & 0x40) ) - fprintf(RTSflags.GcFlags.statsFile,"PruneSparks: Warning: spark @ 0x%lx points to NULL or Prelude_Z91Z93_closure\n", spark); + fprintf(RTSflags.GcFlags.statsFile,"PruneSparks: Warning: spark @ 0x%lx points to NULL or PrelBase_Z91Z93_closure\n", spark); # endif /* prune it below */ } @@ -434,7 +434,7 @@ PruneSparks(STG_NO_ARGS) if(RTSflags.GranFlags.granSimStats_Sparks) /* DumpRawGranEvent(CURRENT_PROC,SP_PRUNED,(W_) spark); */ DumpRawGranEvent(CurrentProc,0,SP_PRUNED, - Prelude_Z91Z93_closure,SPARK_NODE(spark),0); + PrelBase_Z91Z93_closure,SPARK_NODE(spark),0); DisposeSpark(spark); prunedSparks++; @@ -554,11 +554,11 @@ PruneSparks(STG_NO_ARGS) /* HACK! This clause should actually never happen HWL */ if ( (SPARK_NODE(spark) == NULL) || - (SPARK_NODE(spark) == Prelude_Z91Z93_closure) ) { + (SPARK_NODE(spark) == PrelBase_Z91Z93_closure) ) { # if defined(GRAN_CHECK) && defined(GRAN) if ( RTSflags.GcFlags.giveStats && (RTSflags.GranFlags.debug & 0x40) ) - fprintf(RTSflags.GcFlags.statsFile,"PruneSparks: Warning: spark @ 0x%lx points to NULL or Prelude_Z91Z93_closure\n", spark); + fprintf(RTSflags.GcFlags.statsFile,"PruneSparks: Warning: spark @ 0x%lx points to NULL or PrelBase_Z91Z93_closure\n", spark); # endif /* prune it below */ } else if (SHOULD_SPARK(SPARK_NODE(spark))) { @@ -593,9 +593,9 @@ PruneSparks(STG_NO_ARGS) /* By now we know that the spark has to be pruned */ if(RTSflags.GranFlags.granSimStats_Sparks) DumpRawGranEvent(CurrentProc,0,SP_PRUNED, - Prelude_Z91Z93_closure,SPARK_NODE(spark),0); + PrelBase_Z91Z93_closure,SPARK_NODE(spark),0); - SPARK_NODE(spark) = Prelude_Z91Z93_closure; + SPARK_NODE(spark) = PrelBase_Z91Z93_closure; curr_spark[proc][pool] = SPARK_NEXT(spark); prunedSparks[proc][pool]++; DisposeSpark(spark); @@ -614,9 +614,9 @@ PruneSparks(STG_NO_ARGS) if ( spark != NULL ) { if(RTSflags.GranFlags.granSimStats_Sparks) DumpRawGranEvent(CurrentProc,0,SP_PRUNED, - Prelude_Z91Z93_closure,SPARK_NODE(spark),0); + PrelBase_Z91Z93_closure,SPARK_NODE(spark),0); - SPARK_NODE(spark) = Prelude_Z91Z93_closure; + SPARK_NODE(spark) = PrelBase_Z91Z93_closure; curr_spark[proc][pool] = SPARK_NEXT(spark); prunedSparks[proc][pool]++; @@ -681,7 +681,7 @@ PruneSparks(STG_NO_ARGS) /* ToDo: Fix log entries for pruned sparks in GUM */ if(RTSflags.GranFlags.granSimStats_Sparks) /* DumpSparkGranEvent(SP_PRUNED, threadId++);*/ - DumpGranEvent(SP_PRUNED,Prelude_Z91Z93_closure); + DumpGranEvent(SP_PRUNED,PrelBase_Z91Z93_closure); ^^^^^^^^^^^ should be a TSO # endif } @@ -729,19 +729,19 @@ rtsBool do_full_collection; Will & Phil 95/10 */ - for(stack = AvailableStack; stack != Prelude_Z91Z93_closure; stack = next) { + for(stack = AvailableStack; stack != PrelBase_Z91Z93_closure; stack = next) { next = STKO_LINK(stack); FREEZE_MUT_HDR(stack, ImMutArrayOfPtrs_info); MUTUPLE_CLOSURE_SIZE(stack) = MUTUPLE_VHS; } - for(tso = AvailableTSO; tso != Prelude_Z91Z93_closure; tso = next) { + for(tso = AvailableTSO; tso != PrelBase_Z91Z93_closure; tso = next) { next = TSO_LINK(tso); FREEZE_MUT_HDR(tso, ImMutArrayOfPtrs_info); MUTUPLE_CLOSURE_SIZE(tso) = MUTUPLE_VHS; } - AvailableStack = AvailableTSO = Prelude_Z91Z93_closure; + AvailableStack = AvailableTSO = PrelBase_Z91Z93_closure; PruneSparks(); -- 1.7.10.4