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

fix bad pruning in meta-call

Browse Source
This commit is contained in:
Vítor Santos Costa
2013-11-16 23:08:17 +00:00
parent 3aa994313b
commit 5dbaeedf08
9 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
C/absmi.c
View File

@@ -13512,7 +13512,7 @@ Yap_absmi(int inp)
#endif /* LOW_LEVEL_TRACER */
WRITEBACK_Y_AS_ENV();
/* setup GB */
ENV_YREG[E_CB] = (CELL) b_ptr;
ENV_YREG[E_CB] = (CELL) B;
#ifdef YAPOR
SCH_check_requests();
#endif /* YAPOR */

6
C/iopreds.c
View File

@@ -118,7 +118,7 @@ Yap_InitPlIO (void)
*/
static int newline = TRUE;
#if DEBUG_YAP
#ifdef DEBUG
static int eolflg = 1;
@@ -1088,7 +1088,7 @@ Yap_InitBackIO (void)
{
}
#if DEBUG_YAP
#ifdef DEBUG
static Int
p_write_string( USES_REGS1 )
{
@@ -1116,7 +1116,7 @@ Yap_InitIOPreds(void)
Yap_InitCPred ("$get_read_error_handler", 1, p_get_read_error_handler, SafePredFlag|SyncPredFlag);
Yap_InitCPred ("$read", 7, p_read, SyncPredFlag|UserCPredFlag);
Yap_InitCPred ("$read", 8, p_read2, SyncPredFlag|UserCPredFlag);
#if DEBUG_YAP
#ifdef DEBUG
Yap_InitCPred ("write_string", 2, p_write_string, SyncPredFlag|UserCPredFlag);
#endif
Yap_InitCPred ("$start_line", 1, p_startline, SafePredFlag|SyncPredFlag);