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 */
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 */

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);

@ -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