projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9c81cf3
)
[project @ 1997-03-14 03:24:12 by sof]
author
sof
<unknown>
Fri, 14 Mar 1997 03:24:12 +0000
(
03:24
+0000)
committer
sof
<unknown>
Fri, 14 Mar 1997 03:24:12 +0000
(
03:24
+0000)
Nil_closure renamed
ghc/runtime/c-as-asm/HpOverflow.lc
patch
|
blob
|
history
diff --git
a/ghc/runtime/c-as-asm/HpOverflow.lc
b/ghc/runtime/c-as-asm/HpOverflow.lc
index
16b80bb
..
45deca6
100644
(file)
--- 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) ||
/* 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) )
# 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 */
}
# 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,
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++;
DisposeSpark(spark);
prunedSparks++;
@@
-554,11
+554,11
@@
PruneSparks(STG_NO_ARGS)
/* HACK! This clause should actually never happen HWL */
if ( (SPARK_NODE(spark) == NULL) ||
/* 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) )
# 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))) {
# 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,
/* 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);
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,
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]++;
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++);*/
/* 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
}
^^^^^^^^^^^ should be a TSO
# endif
}
@@
-729,19
+729,19
@@
rtsBool do_full_collection;
Will & Phil 95/10
*/
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;
}
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;
}
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();
PruneSparks();