diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

My first attempt to synchronize OPTYap with CVS

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@921 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
ricroc 2003-11-07 17:50:01 +00:00
parent 36e9ff7588
commit ab1a1a0219
1 changed files with 45 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
C/absmi.c
View File

@ -397,8 +397,8 @@ Yap_absmi(int inp)
* choicepoint for the current B */ * choicepoint for the current B */
restore_yaam_regs(PREG->u.ld.d); restore_yaam_regs(PREG->u.ld.d);
restore_at_least_one_arg(PREG->u.ld.s); restore_at_least_one_arg(PREG->u.ld.s);
#if defined(SBA) && defined(FROZEN_STACKS) #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -429,7 +429,7 @@ Yap_absmi(int inp)
/* After trust, cut should be pointing at the new top /* After trust, cut should be pointing at the new top
* choicepoint */ * choicepoint */
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -484,7 +484,7 @@ Yap_absmi(int inp)
restore_yaam_regs(PREG->u.ld.d); restore_yaam_regs(PREG->u.ld.d);
restore_args(PREG->u.ld.s); restore_args(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -503,7 +503,7 @@ Yap_absmi(int inp)
SCH_last_alternative(PREG, B_YREG); SCH_last_alternative(PREG, B_YREG);
restore_args(PREG->u.ld.s); restore_args(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -515,7 +515,7 @@ Yap_absmi(int inp)
/* After trust, cut should be pointing at the new top /* After trust, cut should be pointing at the new top
* choicepoint */ * choicepoint */
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -629,7 +629,7 @@ Yap_absmi(int inp)
restore_yaam_regs(PREG->u.ld.d); restore_yaam_regs(PREG->u.ld.d);
restore_args(PREG->u.ld.s); restore_args(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -648,7 +648,7 @@ Yap_absmi(int inp)
SCH_last_alternative(PREG, B_YREG); SCH_last_alternative(PREG, B_YREG);
restore_args(PREG->u.ld.s); restore_args(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -660,7 +660,7 @@ Yap_absmi(int inp)
/* After trust, cut should be pointing at the new top /* After trust, cut should be pointing at the new top
* choicepoint */ * choicepoint */
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -711,7 +711,7 @@ Yap_absmi(int inp)
CACHE_Y(B); CACHE_Y(B);
restore_yaam_regs(PREG->u.ld.d); restore_yaam_regs(PREG->u.ld.d);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -729,7 +729,7 @@ Yap_absmi(int inp)
if (SCH_top_shared_cp(B)) { if (SCH_top_shared_cp(B)) {
SCH_last_alternative(PREG, B_YREG); SCH_last_alternative(PREG, B_YREG);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -739,7 +739,7 @@ Yap_absmi(int inp)
pop_yaam_regs(); pop_yaam_regs();
S_YREG = (CELL *)(B_YREG+1); S_YREG = (CELL *)(B_YREG+1);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -776,7 +776,7 @@ Yap_absmi(int inp)
restore_yaam_regs(PREG->u.ld.d); restore_yaam_regs(PREG->u.ld.d);
ARG1 = B_YREG->cp_a1; ARG1 = B_YREG->cp_a1;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -795,7 +795,7 @@ Yap_absmi(int inp)
SCH_last_alternative(PREG, B_YREG); SCH_last_alternative(PREG, B_YREG);
ARG1 = B_YREG->cp_a1; ARG1 = B_YREG->cp_a1;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -806,7 +806,7 @@ Yap_absmi(int inp)
ARG1 = B_YREG->cp_a1; ARG1 = B_YREG->cp_a1;
S_YREG = &(B_YREG->cp_a2); S_YREG = &(B_YREG->cp_a2);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -852,7 +852,7 @@ Yap_absmi(int inp)
ARG1 = B_YREG->cp_a1; ARG1 = B_YREG->cp_a1;
ARG2 = B_YREG->cp_a2; ARG2 = B_YREG->cp_a2;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -872,7 +872,7 @@ Yap_absmi(int inp)
ARG1 = B_YREG->cp_a1; ARG1 = B_YREG->cp_a1;
ARG2 = B_YREG->cp_a2; ARG2 = B_YREG->cp_a2;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -884,7 +884,7 @@ Yap_absmi(int inp)
ARG2 = B_YREG->cp_a2; ARG2 = B_YREG->cp_a2;
S_YREG = &(B_YREG->cp_a3); S_YREG = &(B_YREG->cp_a3);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -934,7 +934,7 @@ Yap_absmi(int inp)
ARG2 = B_YREG->cp_a2; ARG2 = B_YREG->cp_a2;
ARG3 = B_YREG->cp_a3; ARG3 = B_YREG->cp_a3;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -955,7 +955,7 @@ Yap_absmi(int inp)
ARG2 = B_YREG->cp_a2; ARG2 = B_YREG->cp_a2;
ARG3 = B_YREG->cp_a3; ARG3 = B_YREG->cp_a3;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -968,7 +968,7 @@ Yap_absmi(int inp)
ARG3 = B_YREG->cp_a3; ARG3 = B_YREG->cp_a3;
S_YREG = &(B_YREG->cp_a4); S_YREG = &(B_YREG->cp_a4);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -1021,7 +1021,7 @@ Yap_absmi(int inp)
ARG3 = B_YREG->cp_a3; ARG3 = B_YREG->cp_a3;
ARG4 = B_YREG->cp_a4; ARG4 = B_YREG->cp_a4;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -1043,7 +1043,7 @@ Yap_absmi(int inp)
ARG3 = B_YREG->cp_a3; ARG3 = B_YREG->cp_a3;
ARG4 = B_YREG->cp_a4; ARG4 = B_YREG->cp_a4;
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -1057,7 +1057,7 @@ Yap_absmi(int inp)
ARG4 = B_YREG->cp_a4; ARG4 = B_YREG->cp_a4;
S_YREG = &(B_YREG->cp_a5); S_YREG = &(B_YREG->cp_a5);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -1390,7 +1390,7 @@ Yap_absmi(int inp)
restore_yaam_regs(PREG); restore_yaam_regs(PREG);
restore_args(PREG->u.ld.s); restore_args(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
S_YREG = (CELL *)PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
#else #else
set_cut(S_YREG, B_YREG->cp_b); set_cut(S_YREG, B_YREG->cp_b);
@ -1514,7 +1514,7 @@ Yap_absmi(int inp)
case _table_trust_me: case _table_trust_me:
low_level_trace(retry_pred, ipc->u.lds.p, (CELL *)(((gen_cp_ptr)B)+1)); low_level_trace(retry_pred, ipc->u.lds.p, (CELL *)(((gen_cp_ptr)B)+1));
break; break;
#endif #endif /* TABLING */
case _or_else: case _or_else:
case _or_last: case _or_last:
low_level_trace(retry_or, (PredEntry *)ipc, &(B->cp_a1)); low_level_trace(retry_or, (PredEntry *)ipc, &(B->cp_a1));
@ -1598,7 +1598,7 @@ Yap_absmi(int inp)
if ((ADDR) pt1 >= HeapTop) if ((ADDR) pt1 >= HeapTop)
#else #else
if ((ADDR) pt1 >= Yap_TrailBase) if ((ADDR) pt1 >= Yap_TrailBase)
#endif #endif /* SBA */
{ {
pt1 = (tr_fr_ptr) pt1; pt1 = (tr_fr_ptr) pt1;
goto failloop; goto failloop;
@ -1687,7 +1687,7 @@ Yap_absmi(int inp)
pt[0] = TrailVal(pt0); pt[0] = TrailVal(pt0);
#else #else
pt[0] = TrailTerm(pt0); pt[0] = TrailTerm(pt0);
#endif #endif /* FROZEN_STACKS */
goto failloop; goto failloop;
} }
#endif #endif
@ -1987,12 +1987,11 @@ Yap_absmi(int inp)
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
{ {
choiceptr top_b = PROTECT_FROZEN_B(B); choiceptr top_b = PROTECT_FROZEN_B(B);
#ifdef SBA #ifdef SBA
if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b;
#else #else
if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b;
#endif #endif /* SBA */
else E_YREG = (CELL *)((CELL)E_YREG + ENV_Size(CPREG)); else E_YREG = (CELL *)((CELL)E_YREG + ENV_Size(CPREG));
} }
#else #else
@ -2058,7 +2057,7 @@ Yap_absmi(int inp)
if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b;
#else #else
if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b;
#endif #endif /* SBA */
} }
#else #else
if (E_YREG > (CELL *) B) { if (E_YREG > (CELL *) B) {
@ -2274,7 +2273,7 @@ Yap_absmi(int inp)
if (YREG > (CELL *) top_b || YREG < H) YREG = (CELL *) top_b; if (YREG > (CELL *) top_b || YREG < H) YREG = (CELL *) top_b;
#else #else
if (YREG > (CELL *) top_b) YREG = (CELL *) top_b; if (YREG > (CELL *) top_b) YREG = (CELL *) top_b;
#endif #endif /* SBA */
else YREG = YREG + ENV_Size(CPREG); else YREG = YREG + ENV_Size(CPREG);
} }
#else #else
@ -2300,7 +2299,7 @@ Yap_absmi(int inp)
if (YREG > (CELL *) top_b || YREG < H) YREG = (CELL *) top_b; if (YREG > (CELL *) top_b || YREG < H) YREG = (CELL *) top_b;
#else #else
if (YREG > (CELL *) top_b) YREG = (CELL *) top_b; if (YREG > (CELL *) top_b) YREG = (CELL *) top_b;
#endif #endif /* SBA */
else YREG = YREG + ENV_Size(CPREG); else YREG = YREG + ENV_Size(CPREG);
} }
#else #else
@ -2420,7 +2419,7 @@ Yap_absmi(int inp)
if (YREG > (CELL *) top_b || YREG < H) YREG = (CELL *) top_b; if (YREG > (CELL *) top_b || YREG < H) YREG = (CELL *) top_b;
#else #else
if (YREG > (CELL *) top_b) YREG = (CELL *) top_b; if (YREG > (CELL *) top_b) YREG = (CELL *) top_b;
#endif #endif /* SBA */
else YREG = (CELL *) ((CELL)YREG + ENV_Size(CPREG)); else YREG = (CELL *) ((CELL)YREG + ENV_Size(CPREG));
} }
#else #else
@ -2645,7 +2644,7 @@ Yap_absmi(int inp)
if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b;
#else #else
if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b;
#endif #endif /* SBA */
else E_YREG = (CELL *)((CELL) E_YREG + ENV_Size(CPREG)); else E_YREG = (CELL *)((CELL) E_YREG + ENV_Size(CPREG));
} }
#else #else
@ -3895,10 +3894,10 @@ Yap_absmi(int inp)
YREG[PREG->u.oy.y] = (CELL)(SREG-1); YREG[PREG->u.oy.y] = (CELL)(SREG-1);
} else } else
YREG[PREG->u.oy.y] = d0; YREG[PREG->u.oy.y] = d0;
#endif #endif /* FROZEN_STACKS */
#else #else
YREG[PREG->u.oy.y] = d0; YREG[PREG->u.oy.y] = d0;
#endif #endif /* SBA */
PREG = NEXTOP(PREG, oy); PREG = NEXTOP(PREG, oy);
GONext(); GONext();
ENDD(d0); ENDD(d0);
@ -3935,10 +3934,10 @@ Yap_absmi(int inp)
} else { } else {
YREG[PREG->u.oy.y] = d0; YREG[PREG->u.oy.y] = d0;
} }
#endif #endif /* FROZEN_STACKS */
#else #else
YREG[PREG->u.oy.y] = d0; YREG[PREG->u.oy.y] = d0;
#endif #endif /* SBA */
PREG = NEXTOP(PREG, oy); PREG = NEXTOP(PREG, oy);
GONext(); GONext();
ENDD(d0); ENDD(d0);
@ -5971,7 +5970,7 @@ Yap_absmi(int inp)
if (pt1 > top_b || pt1 < (choiceptr)H) pt1 = top_b; if (pt1 > top_b || pt1 < (choiceptr)H) pt1 = top_b;
#else #else
if (pt1 > top_b) pt1 = top_b; if (pt1 > top_b) pt1 = top_b;
#endif #endif /* SBA */
} }
#else #else
if (pt1 > B) { if (pt1 > B) {
@ -6114,7 +6113,7 @@ Yap_absmi(int inp)
if (YREG > (CELL *) top_b || YREG < H) ASP = (CELL *)top_b; if (YREG > (CELL *) top_b || YREG < H) ASP = (CELL *)top_b;
#else #else
if (YREG > (CELL *) top_b) ASP = (CELL *)top_b; if (YREG > (CELL *) top_b) ASP = (CELL *)top_b;
#endif #endif /* SBA */
else ASP = (CELL *)(((char *)YREG) + PREG->u.sla.s); else ASP = (CELL *)(((char *)YREG) + PREG->u.sla.s);
} }
#else #else
@ -6155,7 +6154,7 @@ Yap_absmi(int inp)
if (YREG > (CELL *) top_b || YREG < H) ASP = (CELL *) top_b; if (YREG > (CELL *) top_b || YREG < H) ASP = (CELL *) top_b;
#else #else
if (YREG > (CELL *) top_b) ASP = (CELL *) top_b; if (YREG > (CELL *) top_b) ASP = (CELL *) top_b;
#endif #endif /* SBA */
else ASP = (CELL *)(((char *)YREG) + PREG->u.sla.s); else ASP = (CELL *)(((char *)YREG) + PREG->u.sla.s);
} }
#else #else
@ -6197,7 +6196,7 @@ Yap_absmi(int inp)
if (YREG > (CELL *) top_b || YREG < H) ASP = (CELL *) top_b; if (YREG > (CELL *) top_b || YREG < H) ASP = (CELL *) top_b;
#else #else
if (YREG > (CELL *) top_b) ASP = (CELL *) top_b; if (YREG > (CELL *) top_b) ASP = (CELL *) top_b;
#endif #endif /* SBA */
else { else {
BEGD(d0); BEGD(d0);
d0 = PREG->u.sdl.s; d0 = PREG->u.sdl.s;
@ -6603,7 +6602,7 @@ Yap_absmi(int inp)
SCH_last_alternative(PREG, B_YREG); SCH_last_alternative(PREG, B_YREG);
restore_at_least_one_arg(PREG->u.ld.s); restore_at_least_one_arg(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B->cp_b); set_cut(S_YREG, B->cp_b);
} }
@ -6613,7 +6612,7 @@ Yap_absmi(int inp)
pop_yaam_regs(); pop_yaam_regs();
pop_at_least_one_arg(PREG->u.ld.s); pop_at_least_one_arg(PREG->u.ld.s);
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS
B_YREG = PROTECT_FROZEN_B(B_YREG); B_YREG = PROTECT_FROZEN_B(B_YREG);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
set_cut(S_YREG, B); set_cut(S_YREG, B);
} }
@ -11223,7 +11222,7 @@ Yap_absmi(int inp)
if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b || E_YREG < H) E_YREG = (CELL *) top_b;
#else #else
if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b; if (E_YREG > (CELL *) top_b) E_YREG = (CELL *) top_b;
#endif #endif /* SBA */
} }
#else #else
if (E_YREG > (CELL *) B) { if (E_YREG > (CELL *) B) {