diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix error handling

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-09-25 10:57:26 +01:00
parent 4336b2ba88
commit b871f6676e
145 changed files with 4466 additions and 7508 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
os/readterm.c.cpp
View File

@@ -614,22 +614,22 @@ resetScanner( struct renv *old_renv, int inp_stream, int why, TokEntry *tokstar
setBackQuotesFlag( old_renv->bq );
// running out of memory
if (LOCAL_Error_TYPE == OUT_OF_TRAIL_ERROR) {
if (LOCAL_Error_TYPE == RESOURCE_ERROR_TRAIL) {
LOCAL_Error_TYPE = YAP_NO_ERROR;
if (!Yap_growtrail (sizeof(CELL) * K16, FALSE)) {
return false;
}
} else if (LOCAL_Error_TYPE == OUT_OF_AUXSPACE_ERROR) {
} else if (LOCAL_Error_TYPE == RESOURCE_ERROR_AUXILIARY_STACK) {
LOCAL_Error_TYPE = YAP_NO_ERROR;
if (!Yap_ExpandPreAllocCodeSpace(0, NULL, TRUE)) {
return false;
}
} else if (LOCAL_Error_TYPE == OUT_OF_HEAP_ERROR) {
} else if (LOCAL_Error_TYPE == RESOURCE_ERROR_HEAP) {
LOCAL_Error_TYPE = YAP_NO_ERROR;
if (!Yap_growheap(FALSE, 0, NULL)) {
return false;
}
} else if (LOCAL_Error_TYPE == OUT_OF_STACK_ERROR) {
} else if (LOCAL_Error_TYPE == RESOURCE_ERROR_STACK) {
LOCAL_Error_TYPE = YAP_NO_ERROR;
if (!Yap_gcl(LOCAL_Error_Size, nargs, ENV, CP)) {
return false;