bad call to longjmp
This commit is contained in:
parent
51b99388e7
commit
4574cdb4df
@ -299,7 +299,7 @@ static Term VarNames(VarEntry *p, Term l USES_REGS) {
|
|||||||
VarNames(p->VarLeft, l PASS_REGS) PASS_REGS));
|
VarNames(p->VarLeft, l PASS_REGS) PASS_REGS));
|
||||||
if (HR > ASP - 4096) {
|
if (HR > ASP - 4096) {
|
||||||
save_machine_regs();
|
save_machine_regs();
|
||||||
longjmp(*LOCAL_IOBotch, 1);
|
longjmp(LOCAL_IOBotch, 1);
|
||||||
}
|
}
|
||||||
return (o);
|
return (o);
|
||||||
} else {
|
} else {
|
||||||
@ -329,7 +329,7 @@ static Term Singletons(VarEntry *p, Term l USES_REGS) {
|
|||||||
Singletons(p->VarLeft, l PASS_REGS) PASS_REGS));
|
Singletons(p->VarLeft, l PASS_REGS) PASS_REGS));
|
||||||
if (HR > ASP - 4096) {
|
if (HR > ASP - 4096) {
|
||||||
save_machine_regs();
|
save_machine_regs();
|
||||||
longjmp(*LOCAL_IOBotch, 1);
|
longjmp(LOCAL_IOBotch, 1);
|
||||||
}
|
}
|
||||||
return (o);
|
return (o);
|
||||||
} else {
|
} 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));
|
Variables(p->VarRight, Variables(p->VarLeft, l PASS_REGS) PASS_REGS));
|
||||||
if (HR > ASP - 4096) {
|
if (HR > ASP - 4096) {
|
||||||
save_machine_regs();
|
save_machine_regs();
|
||||||
siglongjmp(*LOCAL_IOBotch, 1);
|
siglongjmp(LOCAL_IOBotch, 1);
|
||||||
}
|
}
|
||||||
return (o);
|
return (o);
|
||||||
} else {
|
} else {
|
||||||
|
Reference in New Issue
Block a user