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

recover slots

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-08-16 13:30:51 +00:00
parent dc080f4d45
commit 2ab46f753d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@ -754,8 +754,10 @@ p_read2 ( USES_REGS1 )
Int out; Int out;
if (!Yap_getInputStream(Yap_InitSlot(Deref(ARG8) PASS_REGS), &inp_stream)) { if (!Yap_getInputStream(Yap_InitSlot(Deref(ARG8) PASS_REGS), &inp_stream)) {
Yap_RecoverSlots(1 PASS_REGS);
return(FALSE); return(FALSE);
} }
Yap_RecoverSlots(1 PASS_REGS);
out = do_read(inp_stream, 8 PASS_REGS); out = do_read(inp_stream, 8 PASS_REGS);
return out; return out;
} }
@ -1094,8 +1096,10 @@ p_encoding ( USES_REGS1 )
IOSTREAM *st; IOSTREAM *st;
Term t = Deref(ARG2); Term t = Deref(ARG2);
if (!PL_get_stream_handle(Yap_InitSlot(Deref(ARG1) PASS_REGS), &st)) { if (!PL_get_stream_handle(Yap_InitSlot(Deref(ARG1) PASS_REGS), &st)) {
Yap_RecoverSlots(1 PASS_REGS);
return FALSE; return FALSE;
} }
Yap_RecoverSlots(1 PASS_REGS);
if (IsVarTerm(t)) { if (IsVarTerm(t)) {
return Yap_unify(ARG2, MkIntegerTerm(st->encoding)); return Yap_unify(ARG2, MkIntegerTerm(st->encoding));
} }