Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e3253f79
Commit
e3253f79
authored
Mar 14, 1997
by
sof
Browse files
[project @ 1997-03-14 03:24:12 by sof]
Nil_closure renamed
parent
9c81cf3d
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/runtime/c-as-asm/HpOverflow.lc
View file @
e3253f79
...
...
@@ -410,11 +410,11 @@ PruneSparks(STG_NO_ARGS)
/* HACK! This clause should actually never happen HWL */
if ( (SPARK_NODE(spark) == NULL) ||
(SPARK_NODE(spark) == Prel
ud
e_Z91Z93_closure) ) {
(SPARK_NODE(spark) == Prel
Bas
e_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 Prel
ud
e_Z91Z93_closure\n", spark);
fprintf(RTSflags.GcFlags.statsFile,"PruneSparks: Warning: spark @ 0x%lx points to NULL or Prel
Bas
e_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,
Prel
ud
e_Z91Z93_closure,SPARK_NODE(spark),0);
Prel
Bas
e_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) == Prel
ud
e_Z91Z93_closure) ) {
(SPARK_NODE(spark) == Prel
Bas
e_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 Prel
ud
e_Z91Z93_closure\n", spark);
fprintf(RTSflags.GcFlags.statsFile,"PruneSparks: Warning: spark @ 0x%lx points to NULL or Prel
Bas
e_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,
Prel
ud
e_Z91Z93_closure,SPARK_NODE(spark),0);
Prel
Bas
e_Z91Z93_closure,SPARK_NODE(spark),0);
SPARK_NODE(spark) = Prel
ud
e_Z91Z93_closure;
SPARK_NODE(spark) = Prel
Bas
e_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,
Prel
ud
e_Z91Z93_closure,SPARK_NODE(spark),0);
Prel
Bas
e_Z91Z93_closure,SPARK_NODE(spark),0);
SPARK_NODE(spark) = Prel
ud
e_Z91Z93_closure;
SPARK_NODE(spark) = Prel
Bas
e_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,Prel
ud
e_Z91Z93_closure);
DumpGranEvent(SP_PRUNED,Prel
Bas
e_Z91Z93_closure);
^^^^^^^^^^^ should be a TSO
# endif
}
...
...
@@ -729,19 +729,19 @@ rtsBool do_full_collection;
Will & Phil 95/10
*/
for(stack = AvailableStack; stack != Prel
ud
e_Z91Z93_closure; stack = next) {
for(stack = AvailableStack; stack != Prel
Bas
e_Z91Z93_closure; stack = next) {
next = STKO_LINK(stack);
FREEZE_MUT_HDR(stack, ImMutArrayOfPtrs_info);
MUTUPLE_CLOSURE_SIZE(stack) = MUTUPLE_VHS;
}
for(tso = AvailableTSO; tso != Prel
ud
e_Z91Z93_closure; tso = next) {
for(tso = AvailableTSO; tso != Prel
Bas
e_Z91Z93_closure; tso = next) {
next = TSO_LINK(tso);
FREEZE_MUT_HDR(tso, ImMutArrayOfPtrs_info);
MUTUPLE_CLOSURE_SIZE(tso) = MUTUPLE_VHS;
}
AvailableStack = AvailableTSO = Prel
ud
e_Z91Z93_closure;
AvailableStack = AvailableTSO = Prel
Bas
e_Z91Z93_closure;
PruneSparks();
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment