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
75bd5baf
Commit
75bd5baf
authored
Mar 14, 1997
by
sof
Browse files
[project @ 1997-03-14 03:39:59 by sof]
Nil_closure renamed
parent
e3253f79
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/runtime/c-as-asm/StgDebug.lc
View file @
75bd5baf
...
...
@@ -2062,8 +2062,8 @@ P_ node;
if (node==NULL) {
fprintf(stderr,"NULL\n");
return;
} else if (node==Prel
ud
e_Z91Z93_closure) {
fprintf(stderr,"Prel
ud
e_Z91Z93_closure\n");
} else if (node==Prel
Bas
e_Z91Z93_closure) {
fprintf(stderr,"Prel
Bas
e_Z91Z93_closure\n");
return;
} else if (node==MUT_NOT_LINKED) {
fprintf(stderr,"MUT_NOT_LINKED\n");
...
...
@@ -2206,7 +2206,7 @@ P_ node;
if (verbose & 0x1) { G_PRINT_NODE(node); fprintf(stderr, "\n"); }
else fprintf(stderr, "0x%#lx, ", node);
if (node==NULL || node==Prel
ud
e_Z91Z93_closure || node==MUT_NOT_LINKED) {
if (node==NULL || node==Prel
Bas
e_Z91Z93_closure || node==MUT_NOT_LINKED) {
return;
}
G_MUT(MUT_LINK(node), verbose);
...
...
@@ -2305,13 +2305,13 @@ I_ verbose;
P_ x;
fprintf(stderr,"Thread Queue: ");
for (x=closure; x!=Prel
ud
e_Z91Z93_closure; x=TSO_LINK(x))
for (x=closure; x!=Prel
Bas
e_Z91Z93_closure; x=TSO_LINK(x))
if (verbose)
G_TSO(x,0);
else
fprintf(stderr," %#lx",x);
if (closure==Prel
ud
e_Z91Z93_closure)
if (closure==Prel
Bas
e_Z91Z93_closure)
fprintf(stderr,"NIL\n");
else
fprintf(stderr,"\n");
...
...
@@ -2326,8 +2326,8 @@ P_ closure;
I_ verbose;
{
if (closure==Prel
ud
e_Z91Z93_closure) {
fprintf(stderr,"TSO at %#lx is Prel
ud
e_Z91Z93_closure!\n");
if (closure==Prel
Bas
e_Z91Z93_closure) {
fprintf(stderr,"TSO at %#lx is Prel
Bas
e_Z91Z93_closure!\n");
return;
}
...
...
@@ -2913,13 +2913,13 @@ I_ verbose;
P_ x;
fprintf(stderr,"Thread Queue: ");
for (x=closure; x!=Prel
ud
e_Z91Z93_closure; x=TSO_LINK(x))
for (x=closure; x!=Prel
Bas
e_Z91Z93_closure; x=TSO_LINK(x))
if (verbose)
DEBUG_TSO(x,0);
else
fprintf(stderr," 0x%x",x);
if (closure==Prel
ud
e_Z91Z93_closure)
if (closure==Prel
Bas
e_Z91Z93_closure)
fprintf(stderr,"NIL\n");
else
fprintf(stderr,"\n");
...
...
@@ -2934,8 +2934,8 @@ P_ closure;
I_ verbose;
{
if (closure==Prel
ud
e_Z91Z93_closure) {
fprintf(stderr,"TSO at 0x%x is Prel
ud
e_Z91Z93_closure!\n");
if (closure==Prel
Bas
e_Z91Z93_closure) {
fprintf(stderr,"TSO at 0x%x is Prel
Bas
e_Z91Z93_closure!\n");
return;
}
...
...
ghc/runtime/main/GranSim.lc
View file @
75bd5baf
...
...
@@ -494,9 +494,9 @@ eventq event;
char str_tso[16], str_node[16];
sprintf(str_tso,((EVENT_TSO(event)==Prel
ud
e_Z91Z93_closure) ? "______" : "%#6lx"),
sprintf(str_tso,((EVENT_TSO(event)==Prel
Bas
e_Z91Z93_closure) ? "______" : "%#6lx"),
EVENT_TSO(event));
sprintf(str_node,((EVENT_NODE(event)==Prel
ud
e_Z91Z93_closure) ? "______" : "%#6lx"),
sprintf(str_node,((EVENT_NODE(event)==Prel
Bas
e_Z91Z93_closure) ? "______" : "%#6lx"),
EVENT_NODE(event));
if (event==NULL)
...
...
@@ -528,7 +528,7 @@ print_spark(spark)
{
char str[16];
sprintf(str,((SPARK_NODE(spark)==Prel
ud
e_Z91Z93_closure) ? "______" : "%#6lx"),
sprintf(str,((SPARK_NODE(spark)==Prel
Bas
e_Z91Z93_closure) ? "______" : "%#6lx"),
(W_) SPARK_NODE(spark));
if (spark==NULL)
...
...
@@ -577,18 +577,18 @@ First some auxiliary routines.
void
ActivateNextThread (PROC proc)
{
ASSERT(RunnableThreadsHd[proc]!=Prel
ud
e_Z91Z93_closure);
ASSERT(RunnableThreadsHd[proc]!=Prel
Bas
e_Z91Z93_closure);
RunnableThreadsHd[proc] = TSO_LINK(RunnableThreadsHd[proc]);
if(RunnableThreadsHd[proc]==Prel
ud
e_Z91Z93_closure) {
if(RunnableThreadsHd[proc]==Prel
Bas
e_Z91Z93_closure) {
MAKE_IDLE(proc);
RunnableThreadsTl[proc] = Prel
ud
e_Z91Z93_closure;
RunnableThreadsTl[proc] = Prel
Bas
e_Z91Z93_closure;
} else {
CurrentTime[proc] += RTSflags.GranFlags.gran_threadcontextswitchtime;
if (RTSflags.GranFlags.granSimStats &&
(!RTSflags.GranFlags.Light || (RTSflags.GranFlags.debug & 0x20000)))
DumpRawGranEvent(proc,0,GR_SCHEDULE,RunnableThreadsHd[proc],
Prel
ud
e_Z91Z93_closure,0);
Prel
Bas
e_Z91Z93_closure,0);
}
}
\end{code}
...
...
@@ -615,7 +615,7 @@ W_ liveness;
if (RTSflags.GranFlags.granSimStats_Heap) {
DumpRawGranEvent(CurrentProc,0,GR_ALLOC,CurrentTSO,
Prel
ud
e_Z91Z93_closure,n);
Prel
Bas
e_Z91Z93_closure,n);
}
TSO_EXECTIME(CurrentTSO) += RTSflags.GranFlags.gran_heapalloc_cost;
...
...
@@ -743,8 +743,8 @@ P_ node;
}
}
# endif
TSO_LINK(CurrentTSO) = Prel
ud
e_Z91Z93_closure;
/* CurrentTSO = Prel
ud
e_Z91Z93_closure; */
TSO_LINK(CurrentTSO) = Prel
Bas
e_Z91Z93_closure;
/* CurrentTSO = Prel
Bas
e_Z91Z93_closure; */
/* ThreadQueueHd is now the next TSO to schedule or NULL */
/* CurrentTSO is pointed to by the FETCHNODE event */
...
...
@@ -772,7 +772,7 @@ P_ node;
} else {
TSO_TYPE(CurrentTSO) |= FETCH_MASK_TSO;
}
CurrentTSO = Prel
ud
e_Z91Z93_closure;
CurrentTSO = Prel
Bas
e_Z91Z93_closure;
}
# endif
}
...
...
@@ -794,13 +794,13 @@ P_ node;
{
/* ++SparksAvail; Nope; do that in add_to_spark_queue */
if(RTSflags.GranFlags.granSimStats_Sparks)
DumpRawGranEvent(CurrentProc,(PROC)0,SP_SPARK,Prel
ud
e_Z91Z93_closure,node,
DumpRawGranEvent(CurrentProc,(PROC)0,SP_SPARK,Prel
Bas
e_Z91Z93_closure,node,
spark_queue_len(CurrentProc,ADVISORY_POOL)-1);
/* Force the PE to take notice of the spark */
if(RTSflags.GranFlags.DoAlwaysCreateThreads) {
new_event(CurrentProc,CurrentProc,CurrentTime[CurrentProc],
FINDWORK,Prel
ud
e_Z91Z93_closure,Prel
ud
e_Z91Z93_closure,NULL);
FINDWORK,Prel
Bas
e_Z91Z93_closure,Prel
Bas
e_Z91Z93_closure,NULL);
if (CurrentTime[CurrentProc]<TimeOfNextEvent)
TimeOfNextEvent = CurrentTime[CurrentProc];
}
...
...
@@ -834,7 +834,7 @@ I_ identifier;
/* ++SparksAvail; Nope; do that in add_to_spark_queue */
if(RTSflags.GranFlags.granSimStats_Sparks)
DumpRawGranEvent(proc,0,SP_SPARKAT,Prel
ud
e_Z91Z93_closure,SPARK_NODE(spark),
DumpRawGranEvent(proc,0,SP_SPARKAT,Prel
Bas
e_Z91Z93_closure,SPARK_NODE(spark),
spark_queue_len(proc,ADVISORY_POOL));
if (proc!=CurrentProc) {
...
...
@@ -850,10 +850,10 @@ I_ identifier;
/* Need CurrentTSO in event field to associate costs with creating
spark even in a GrAnSim Light setup */
new_event(proc,CurrentProc,exporttime,
MOVESPARK,CurrentTSO,Prel
ud
e_Z91Z93_closure,spark);
MOVESPARK,CurrentTSO,Prel
Bas
e_Z91Z93_closure,spark);
else
new_event(proc,CurrentProc,exporttime,
MOVESPARK,Prel
ud
e_Z91Z93_closure,Prel
ud
e_Z91Z93_closure,spark);
MOVESPARK,Prel
Bas
e_Z91Z93_closure,Prel
Bas
e_Z91Z93_closure,spark);
/* Bit of a hack to treat placed sparks the same as stolen sparks */
++OutstandingFishes[proc];
...
...
@@ -861,7 +861,7 @@ I_ identifier;
MOVESPARK into the sparkq!) */
if(RTSflags.GranFlags.DoAlwaysCreateThreads) {
new_event(CurrentProc,CurrentProc,exporttime+1,
FINDWORK,Prel
ud
e_Z91Z93_closure,Prel
ud
e_Z91Z93_closure,NULL);
FINDWORK,Prel
Bas
e_Z91Z93_closure,Prel
Bas
e_Z91Z93_closure,NULL);
}
if (exporttime<TimeOfNextEvent)
...
...
@@ -895,7 +895,7 @@ GranSimBlock(P_ tso, PROC proc, P_ node)
CurrentTime[proc] += RTSflags.GranFlags.gran_threadqueuetime;
ActivateNextThread(proc);
TSO_LINK(tso) = Prel
ud
e_Z91Z93_closure; /* not really necessary; only for testing */
TSO_LINK(tso) = Prel
Bas
e_Z91Z93_closure; /* not really necessary; only for testing */
}
#endif /* GRAN */
...
...
@@ -965,7 +965,7 @@ DumpGranEvent(name, tso)
enum gran_event_types name;
P_ tso;
{
DumpRawGranEvent(CURRENT_PROC, (PROC)0, name, tso, Prel
ud
e_Z91Z93_closure, 0);
DumpRawGranEvent(CURRENT_PROC, (PROC)0, name, tso, Prel
Bas
e_Z91Z93_closure, 0);
}
void
...
...
@@ -984,8 +984,8 @@ I_ len;
#endif
id = tso == NULL ? -1 : TSO_ID(tso);
if (node==Prel
ud
e_Z91Z93_closure)
strcpy(node_str,"________"); /* "Prel
ud
e_Z91Z93_closure"); */
if (node==Prel
Bas
e_Z91Z93_closure)
strcpy(node_str,"________"); /* "Prel
Bas
e_Z91Z93_closure"); */
else
sprintf(node_str,"0x%-6lx",node);
...
...
@@ -1082,7 +1082,7 @@ I_ len;
return;
id = tso == NULL ? -1 : TSO_ID(tso);
if (node==Prel
ud
e_Z91Z93_closure)
if (node==Prel
Bas
e_Z91Z93_closure)
strcpy(node_str,"________"); /* "Z91Z93_closure"); */
else
sprintf(node_str,"0x%-6lx",node);
...
...
@@ -1253,7 +1253,7 @@ TIME v;
return;
#endif
DumpGranEvent(GR_TERMINATE, Prel
ud
e_Z91Z93_closure);
DumpGranEvent(GR_TERMINATE, Prel
Bas
e_Z91Z93_closure);
if (sizeof(TIME) == 4) {
putc('\0', gr_file);
...
...
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