small typos
This commit is contained in:
parent
b654c8fe00
commit
d5c21324a4
@ -2419,14 +2419,16 @@ YAP_RunGoalOnce(Term t)
|
|||||||
Term out;
|
Term out;
|
||||||
yamop *old_CP = CP;
|
yamop *old_CP = CP;
|
||||||
Int oldPrologMode = LOCAL_PrologMode;
|
Int oldPrologMode = LOCAL_PrologMode;
|
||||||
|
yhandle_t CSlot;
|
||||||
|
|
||||||
BACKUP_MACHINE_REGS();
|
BACKUP_MACHINE_REGS();
|
||||||
Yap_InitYaamRegs( 0 );
|
Yap_InitYaamRegs( 0 );
|
||||||
|
CSlot = Yap_StartSlots();
|
||||||
LOCAL_PrologMode = UserMode;
|
LOCAL_PrologMode = UserMode;
|
||||||
// Yap_heap_regs->yap_do_low_level_trace=true;
|
// Yap_heap_regs->yap_do_low_level_trace=true;
|
||||||
out = Yap_RunTopGoal(t);
|
out = Yap_RunTopGoal(t);
|
||||||
LOCAL_PrologMode = oldPrologMode;
|
LOCAL_PrologMode = oldPrologMode;
|
||||||
|
Yap_CloseSlots(CSlot);
|
||||||
if (!(oldPrologMode & UserCCallMode)) {
|
if (!(oldPrologMode & UserCCallMode)) {
|
||||||
/* called from top-level */
|
/* called from top-level */
|
||||||
LOCAL_AllowRestart = FALSE;
|
LOCAL_AllowRestart = FALSE;
|
||||||
|
@ -46,7 +46,6 @@ static bool indexer(Term inp);
|
|||||||
static bool getenc(Term inp);
|
static bool getenc(Term inp);
|
||||||
static bool typein( Term inp );
|
static bool typein( Term inp );
|
||||||
static bool dqf( Term t2 );
|
static bool dqf( Term t2 );
|
||||||
static bool bqf( Term t2 );
|
|
||||||
|
|
||||||
static void newFlag( Term fl, Term val );
|
static void newFlag( Term fl, Term val );
|
||||||
static Int current_prolog_flag(USES_REGS1);
|
static Int current_prolog_flag(USES_REGS1);
|
||||||
|
Reference in New Issue
Block a user