buffer output when exiting absmi.

This commit is contained in:
Vítor Santos Costa 2012-04-12 23:52:25 +01:00
parent af7510a67b
commit 683377b520
3 changed files with 7 additions and 0 deletions

View File

@ -1066,6 +1066,7 @@ do_goal(Term t, yamop *CodeAdr, int arity, CELL *pt, int top USES_REGS)
S = CellPtr (RepPredProp (PredPropByFunc (Yap_MkFunctor(AtomCall, 1),0))); /* A1 mishaps */ S = CellPtr (RepPredProp (PredPropByFunc (Yap_MkFunctor(AtomCall, 1),0))); /* A1 mishaps */
out = exec_absmi(top PASS_REGS); out = exec_absmi(top PASS_REGS);
Yap_flush();
// if (out) { // if (out) {
// out = Yap_GetFromSlot(sl); // out = Yap_GetFromSlot(sl);
// } // }

View File

@ -498,6 +498,7 @@ void STD_PROTO(Yap_init_optyap_preds,(void));
/* pl-file.c */ /* pl-file.c */
struct PL_local_data *Yap_InitThreadIO(int wid); struct PL_local_data *Yap_InitThreadIO(int wid);
void Yap_flush(void);
static inline static inline
yamop * yamop *

View File

@ -4671,6 +4671,11 @@ EndPredDefs
#if __YAP_PROLOG__ #if __YAP_PROLOG__
void Yap_flush(void)
{
flush_output(0);
}
void * void *
Yap_GetStreamHandle(Atom at) Yap_GetStreamHandle(Atom at)
{ GET_LD { GET_LD