fix bad pruning in meta-call
This commit is contained in:
parent
3aa994313b
commit
5dbaeedf08
@ -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 */
|
||||
|
@ -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
|
Reference in New Issue
Block a user