This commit is contained in:
Vitor Santos Costa 2016-10-28 12:23:51 -05:00
parent 8f72db3b56
commit c959ceeb1d
2 changed files with 2 additions and 1 deletions

View File

@ -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);

View File

@ -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++;
}