errors
This commit is contained in:
parent
8f72db3b56
commit
c959ceeb1d
@ -442,6 +442,7 @@ restart_aux:
|
||||
static Int atom_codes(USES_REGS1) {
|
||||
Term t1;
|
||||
t1 = Deref(ARG1);
|
||||
LOCAL_Error_TYPE = 0;
|
||||
restart_aux:
|
||||
if (IsAtomTerm(t1)) {
|
||||
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)HR))) {
|
||||
*curslot++ = TermNil;
|
||||
*curslot++ = TermFreeTerm;
|
||||
}
|
||||
TrailTerm(TR++) = (CELL)curslot++;
|
||||
}
|
||||
|
Reference in New Issue
Block a user