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

keep trying to fix atoms

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-12-04 23:01:30 +00:00
parent 0d749059a4
commit 2665f71112
17 changed files with 1362 additions and 610 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
include/YapError.h
View File

@@ -121,14 +121,6 @@ typedef enum
UNKNOWN_ERROR
} yap_error_number;
#define LOCAL_ERROR(v) \
if (H + 2*(v) > ASP-1024) { \
LOCAL_Error_TYPE = OUT_OF_STACK_ERROR;\
LOCAL_Error_Term = t;\
LOCAL_Error_Size = 2*(v)*sizeof(CELL);\
return 0L; \
}
#define JMP_LOCAL_ERROR(v, LAB) \
if (H + 2*(v) > ASP-1024) { \
LOCAL_Error_TYPE = OUT_OF_STACK_ERROR;\
@@ -137,6 +129,22 @@ typedef enum
goto LAB; \
}
#define LOCAL_ERROR(v) \
if (H + (v) > ASP-1024) { \
LOCAL_Error_TYPE = OUT_OF_STACK_ERROR;\
LOCAL_Error_Term = t;\
LOCAL_Error_Size = 2*(v)*sizeof(CELL);\
return NULL; \
}
#define LOCAL_TERM_ERROR(v) \
if (H + (v) > ASP-1024) { \
LOCAL_Error_TYPE = OUT_OF_STACK_ERROR;\
LOCAL_Error_Term = t;\
LOCAL_Error_Size = 2*(v)*sizeof(CELL);\
return 0L; \
}
#define AUX_ERROR(t, n, s, TYPE) \
if (s + (n+1) > (TYPE *)AuxSp) { \
LOCAL_Error_TYPE = OUT_OF_AUXSPACE_ERROR;\