fix bad pruning in meta-call

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

View File

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

View File

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

@ -1 +1 @@
Subproject commit 9995994768d968c6059f255cd3077abdd34e61a1 Subproject commit 5b577c8414aeaba18c2eb9eff987060fa9df96d8

@ -1 +1 @@
Subproject commit c62502891b02569fc9d6b7fe90b9373c6d3c2f92 Subproject commit 3ea73d3b1d23631a3545a9578539ea7e3df567f6

@ -1 +1 @@
Subproject commit 1743351432230388c7b7c877d2a8b3d7bae190fa Subproject commit f96cfb7533c57789fa25db64b73c09aa7269d244

@ -1 +1 @@
Subproject commit 0bac35ec257cecca8f4cef9e3bcb4384637e38f0 Subproject commit 0593a65587ffbada6b6679204d0254a2a46b1535

@ -1 +1 @@
Subproject commit 42164151ac5f3a016cf50aba58b577ae84fd4495 Subproject commit 9ff05eaf6a47d856f0e43c14ddb105f2bedcbafb

@ -1 +1 @@
Subproject commit 3ed10e016db8d5f6c925f922c3d744dc10039f4a Subproject commit 2505370b84226fb21d71cfa447bc1c1ada9b5d22

@ -1 +1 @@
Subproject commit 18647f78aa21d494aceac0dcaaac6fc6699f0df0 Subproject commit 22db6b08d5ee26235e7ab22da194e2b4edadf4a7