single initialization for top frame.
This commit is contained in:
parent
f4bda9b043
commit
4aee4df719
5
C/exec.c
5
C/exec.c
|
@ -1034,11 +1034,6 @@ init_stack(int arity, CELL *pt, int top, choiceptr saved_b)
|
||||||
}
|
}
|
||||||
B = (choiceptr)ASP;
|
B = (choiceptr)ASP;
|
||||||
B--;
|
B--;
|
||||||
#ifdef TABLING
|
|
||||||
if (top && GLOBAL_root_dep_fr) {
|
|
||||||
DepFr_cons_cp(GLOBAL_root_dep_fr) = B;
|
|
||||||
}
|
|
||||||
#endif /* TABLING */
|
|
||||||
B->cp_h = H;
|
B->cp_h = H;
|
||||||
B->cp_tr = TR;
|
B->cp_tr = TR;
|
||||||
B->cp_cp = CP;
|
B->cp_cp = CP;
|
||||||
|
|
|
@ -239,6 +239,10 @@ void make_root_frames(void) {
|
||||||
/* root dependency frame */
|
/* root dependency frame */
|
||||||
if (!GLOBAL_root_dep_fr) {
|
if (!GLOBAL_root_dep_fr) {
|
||||||
new_dependency_frame(GLOBAL_root_dep_fr, FALSE, NULL, NULL, NULL, NULL, NULL);
|
new_dependency_frame(GLOBAL_root_dep_fr, FALSE, NULL, NULL, NULL, NULL, NULL);
|
||||||
|
#ifdef TABLING
|
||||||
|
fprintf(stderr,"saved_b=%p\n", B);
|
||||||
|
DepFr_cons_cp(GLOBAL_root_dep_fr) = B;
|
||||||
|
#endif /* TABLING */
|
||||||
}
|
}
|
||||||
#endif /* TABLING */
|
#endif /* TABLING */
|
||||||
}
|
}
|
||||||
|
|
Reference in New Issue