fix error handling
This commit is contained in:
@@ -3671,7 +3671,7 @@
|
||||
if (pt1+d1 > ENV || pt1+d1 > (CELL *)B) { \
|
||||
saveregs(); \
|
||||
if (!Yap_gcl((1+d1)*sizeof(CELL), 3, YREG, NEXTOP(NEXTOP((*_PREG),e),Osbmp))) { \
|
||||
Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
|
||||
Yap_NilError(RESOURCE_ERROR_STACK,LOCAL_ErrorMessage); \
|
||||
setregs(); \
|
||||
BACK(); \
|
||||
} else { \
|
||||
@@ -3824,7 +3824,7 @@
|
||||
if (pt1+d1 > ENV || pt1+d1 > (CELL *)B) { \
|
||||
saveregs(); \
|
||||
if (!Yap_gcl((1+d1)*sizeof(CELL), 3, YREG, NEXTOP(NEXTOP((*_PREG),e),Osbmp))) { \
|
||||
Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
|
||||
Yap_NilError(RESOURCE_ERROR_STACK,LOCAL_ErrorMessage); \
|
||||
setregs(); \
|
||||
BACK(); \
|
||||
} else { \
|
||||
|
Reference in New Issue
Block a user