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
ed8efd10
Commit
ed8efd10
authored
Mar 14, 1997
by
sof
Browse files
[project @ 1997-03-14 05:03:43 by sof]
Nil_closure renamed
parent
8cacdfdd
Changes
6
Hide whitespace changes
Inline
Side-by-side
ghc/runtime/gum/FetchMe.lhc
View file @
ed8efd10
...
...
@@ -41,7 +41,7 @@ STGFUN(FetchMe_entry)
rGA = FETCHME_GA(Node);
ASSERT(rGA->loc.gc.gtid != mytid);
TSO_LINK(CurrentTSO) = Prel
ud
e_Z91Z93_closure;
TSO_LINK(CurrentTSO) = Prel
Bas
e_Z91Z93_closure;
SET_INFO_PTR(Node, FMBQ_info);
FMBQ_ENTRIES(Node) = (W_) CurrentTSO;
...
...
ghc/runtime/gum/HLComms.lc
View file @
ed8efd10
...
...
@@ -116,7 +116,7 @@ blockFetch(P_ bf, P_ bh)
{
switch (INFO_TYPE(INFO_PTR(bh))) {
case INFO_BH_TYPE:
BF_LINK(bf) = Prel
ud
e_Z91Z93_closure;
BF_LINK(bf) = Prel
Bas
e_Z91Z93_closure;
SET_INFO_PTR(bh, BQ_info);
BQ_ENTRIES(bh) = (W_) bf;
...
...
@@ -172,7 +172,7 @@ processFetches()
P_ ip;
globalAddr rga;
for (bf = PendingFetches; bf != Prel
ud
e_Z91Z93_closure; bf = next) {
for (bf = PendingFetches; bf != Prel
Bas
e_Z91Z93_closure; bf = next) {
next = BF_LINK(bf);
/*
...
...
@@ -218,7 +218,7 @@ processFetches()
sendResume(&rga, size, graph);
}
}
PendingFetches = Prel
ud
e_Z91Z93_closure;
PendingFetches = Prel
Bas
e_Z91Z93_closure;
}
\end{code}
...
...
@@ -650,7 +650,7 @@ processResume(GLOBAL_TASK_ID sender)
if (INFO_TYPE(INFO_PTR(old)) == INFO_FMBQ_TYPE) {
for(tso = (P_) FMBQ_ENTRIES(old);
TSO_LINK(tso) != Prel
ud
e_Z91Z93_closure;
TSO_LINK(tso) != Prel
Bas
e_Z91Z93_closure;
tso = TSO_LINK(tso))
;
}
...
...
ghc/runtime/gum/Pack.lc
View file @
ed8efd10
...
...
@@ -1282,10 +1282,10 @@ char *type;
*size = *ptrs = *nonptrs = *vhs = 0;
strcpy(type,"ERROR in get_closure_info");
return;
} else if (closure==Prel
ud
e_Z91Z93_closure) {
/* fprintf(stderr, "Qagh {get_closure_info}Daq: Prel
ud
e_Z91Z93_closure closure\n"); */
} else if (closure==Prel
Bas
e_Z91Z93_closure) {
/* fprintf(stderr, "Qagh {get_closure_info}Daq: Prel
Bas
e_Z91Z93_closure closure\n"); */
*size = *ptrs = *nonptrs = *vhs = 0;
strcpy(type,"Prel
ud
e_Z91Z93_closure");
strcpy(type,"Prel
Bas
e_Z91Z93_closure");
return;
};
...
...
ghc/runtime/gum/RBH.lc
View file @
ed8efd10
...
...
@@ -174,7 +174,7 @@ convertFromRBH(closure) /* The corresponding function in GUM is: */
P_ closure;
{
P_ ip = (P_) INFO_PTR(closure);
P_ bqe, rbh_save = Prel
ud
e_Z91Z93_closure;
P_ bqe, rbh_save = Prel
Bas
e_Z91Z93_closure;
int isSpec;
#if defined(GCap) || defined(GCgn)
rtsBool linked = IS_MUTABLE(ip) && MUT_LINK(closure) != MUT_NOT_LINKED;
...
...
@@ -236,7 +236,7 @@ P_ closure;
}
/* Put data from special RBH save closures back into the closure */
if ( rbh_save == Prel
ud
e_Z91Z93_closure ) {
if ( rbh_save == Prel
Bas
e_Z91Z93_closure ) {
fprintf(stderr,"convertFromRBH: No RBH_Save_? closure found at end of BQ!\n");
EXIT(EXIT_FAILURE);
} else {
...
...
ghc/runtime/gum/Unpack.lc
View file @
ed8efd10
...
...
@@ -56,7 +56,7 @@ CommonUp(P_ src, P_ dst)
bqe = (P_) GEN_RBH_BQ(src);
break;
case INFO_FETCHME_TYPE:
bqe = Prel
ud
e_Z91Z93_closure;
bqe = Prel
Bas
e_Z91Z93_closure;
break;
case INFO_FMBQ_TYPE:
bqe = (P_) FMBQ_ENTRIES(src);
...
...
ghc/runtime/main/main.lc
View file @
ed8efd10
...
...
@@ -263,33 +263,33 @@ Manager's requirements.
#endif
#ifdef CONCURRENT
AvailableStack = AvailableTSO = Prel
ud
e_Z91Z93_closure;
AvailableStack = AvailableTSO = Prel
Bas
e_Z91Z93_closure;
# if defined(GRAN) /* HWL */
/* Moved in here from ScheduleThreads, to handle a restart_main
(because of a signal) properly. */
for (i=0; i<RTSflags.GranFlags.proc; i++)
{
RunnableThreadsHd[i] = RunnableThreadsTl[i] = Prel
ud
e_Z91Z93_closure;
WaitThreadsHd[i] = WaitThreadsTl[i] = Prel
ud
e_Z91Z93_closure;
RunnableThreadsHd[i] = RunnableThreadsTl[i] = Prel
Bas
e_Z91Z93_closure;
WaitThreadsHd[i] = WaitThreadsTl[i] = Prel
Bas
e_Z91Z93_closure;
PendingSparksHd[i][REQUIRED_POOL] = PendingSparksHd[i][ADVISORY_POOL] =
PendingSparksTl[i][REQUIRED_POOL] = PendingSparksTl[i][ADVISORY_POOL] =
NULL;
}
# else
RunnableThreadsHd = RunnableThreadsTl = Prel
ud
e_Z91Z93_closure;
WaitingThreadsHd = WaitingThreadsTl = Prel
ud
e_Z91Z93_closure;
RunnableThreadsHd = RunnableThreadsTl = Prel
Bas
e_Z91Z93_closure;
WaitingThreadsHd = WaitingThreadsTl = Prel
Bas
e_Z91Z93_closure;
PendingSparksHd[REQUIRED_POOL] =
PendingSparksTl[REQUIRED_POOL] = PendingSparksBase[REQUIRED_POOL];
PendingSparksHd[ADVISORY_POOL] =
PendingSparksTl[ADVISORY_POOL] = PendingSparksBase[ADVISORY_POOL];
# endif
CurrentTSO = Prel
ud
e_Z91Z93_closure;
CurrentTSO = Prel
Bas
e_Z91Z93_closure;
# ifdef PAR
RunParallelSystem(TopClosure);
# else
STKO_LINK(MainStkO) = Prel
ud
e_Z91Z93_closure;
STKO_LINK(MainStkO) = Prel
Bas
e_Z91Z93_closure;
ScheduleThreads(TopClosure);
# endif /* PAR */
...
...
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