bad call to longjmp

This commit is contained in:
Vitor Santos Costa 2017-08-27 22:04:36 +01:00
parent 51b99388e7
commit 4574cdb4df

View File

@ -299,7 +299,7 @@ static Term VarNames(VarEntry *p, Term l USES_REGS) {
VarNames(p->VarLeft, l PASS_REGS) PASS_REGS));
if (HR > ASP - 4096) {
save_machine_regs();
longjmp(*LOCAL_IOBotch, 1);
longjmp(LOCAL_IOBotch, 1);
}
return (o);
} else {
@ -329,7 +329,7 @@ static Term Singletons(VarEntry *p, Term l USES_REGS) {
Singletons(p->VarLeft, l PASS_REGS) PASS_REGS));
if (HR > ASP - 4096) {
save_machine_regs();
longjmp(*LOCAL_IOBotch, 1);
longjmp(LOCAL_IOBotch, 1);
}
return (o);
} else {
@ -354,7 +354,7 @@ static Term Variables(VarEntry *p, Term l USES_REGS) {
Variables(p->VarRight, Variables(p->VarLeft, l PASS_REGS) PASS_REGS));
if (HR > ASP - 4096) {
save_machine_regs();
siglongjmp(*LOCAL_IOBotch, 1);
siglongjmp(LOCAL_IOBotch, 1);
}
return (o);
} else {