errors
This commit is contained in:
parent
8f72db3b56
commit
c959ceeb1d
@ -442,6 +442,7 @@ restart_aux:
|
|||||||
static Int atom_codes(USES_REGS1) {
|
static Int atom_codes(USES_REGS1) {
|
||||||
Term t1;
|
Term t1;
|
||||||
t1 = Deref(ARG1);
|
t1 = Deref(ARG1);
|
||||||
|
LOCAL_Error_TYPE = 0;
|
||||||
restart_aux:
|
restart_aux:
|
||||||
if (IsAtomTerm(t1)) {
|
if (IsAtomTerm(t1)) {
|
||||||
Term tf = Yap_AtomToListOfCodes(t1 PASS_REGS);
|
Term tf = Yap_AtomToListOfCodes(t1 PASS_REGS);
|
||||||
|
@ -467,7 +467,7 @@ push_registers(Int num_regs, yamop *nextop USES_REGS)
|
|||||||
(
|
(
|
||||||
(*curslot < (CELL)LOCAL_GlobalBase &&
|
(*curslot < (CELL)LOCAL_GlobalBase &&
|
||||||
*curslot > (CELL)HR))) {
|
*curslot > (CELL)HR))) {
|
||||||
*curslot++ = TermNil;
|
*curslot++ = TermFreeTerm;
|
||||||
}
|
}
|
||||||
TrailTerm(TR++) = (CELL)curslot++;
|
TrailTerm(TR++) = (CELL)curslot++;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user