copy exception term early on to avoid dangling pointers.
This commit is contained in:
parent
8e7695a42c
commit
de1fb3e2c5
2
C/exec.c
2
C/exec.c
@ -1491,7 +1491,7 @@ JumpToEnv(Term t) {
|
|||||||
CELL *env;
|
CELL *env;
|
||||||
choiceptr first_func = NULL, B0 = B;
|
choiceptr first_func = NULL, B0 = B;
|
||||||
|
|
||||||
if (!Yap_SetGlobalVal(AtomHandleThrow,t))
|
if (!(t = Yap_SetGlobalVal(AtomHandleThrow,t)))
|
||||||
return FALSE;
|
return FALSE;
|
||||||
do {
|
do {
|
||||||
/* find the first choicepoint that may be a catch */
|
/* find the first choicepoint that may be a catch */
|
||||||
|
Reference in New Issue
Block a user