trail check on C entry: make sure we don't have unhandled trail overflows.
This commit is contained in:
parent
772d091a70
commit
026a666055
@ -7339,7 +7339,7 @@ Yap_absmi(int inp)
|
|||||||
\************************************************************************/
|
\************************************************************************/
|
||||||
|
|
||||||
BOp(call_cpred, Osbpp);
|
BOp(call_cpred, Osbpp);
|
||||||
|
check_trail(TR);
|
||||||
if (!(PREG->u.Osbpp.p->PredFlags & (SafePredFlag|HiddenPredFlag))) {
|
if (!(PREG->u.Osbpp.p->PredFlags & (SafePredFlag|HiddenPredFlag))) {
|
||||||
CACHE_Y_AS_ENV(YREG);
|
CACHE_Y_AS_ENV(YREG);
|
||||||
check_stack(NoStackCall, H);
|
check_stack(NoStackCall, H);
|
||||||
@ -7387,6 +7387,7 @@ Yap_absmi(int inp)
|
|||||||
|
|
||||||
/* execute Label */
|
/* execute Label */
|
||||||
BOp(execute_cpred, pp);
|
BOp(execute_cpred, pp);
|
||||||
|
check_trail(TR);
|
||||||
{
|
{
|
||||||
PredEntry *pt0;
|
PredEntry *pt0;
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user