trail check on C entry: make sure we don't have unhandled trail overflows.

This commit is contained in:
Costa Vitor 2009-06-26 14:08:15 -05:00
parent 772d091a70
commit 026a666055

View File

@ -7339,7 +7339,7 @@ Yap_absmi(int inp)
\************************************************************************/
BOp(call_cpred, Osbpp);
check_trail(TR);
if (!(PREG->u.Osbpp.p->PredFlags & (SafePredFlag|HiddenPredFlag))) {
CACHE_Y_AS_ENV(YREG);
check_stack(NoStackCall, H);
@ -7387,6 +7387,7 @@ Yap_absmi(int inp)
/* execute Label */
BOp(execute_cpred, pp);
check_trail(TR);
{
PredEntry *pt0;