Error Handler

This commit is contained in:
Vítor Santos Costa
2015-09-29 23:43:02 +01:00
parent 4c368a59d3
commit 34fe3e6ded
5 changed files with 23 additions and 6 deletions

View File

@@ -38,9 +38,10 @@
struct yami *Yap_Error__(const char *file, const char *function, int lineno, yap_error_number err,YAP_Term wheret, ...);
#define Yap_Error( id, t, ...) Yap_Error__(__FILE__, __FUNCTION__, __LINE__, id, t, __VA_ARGS__)
#define Yap_NilError( id, ...) Yap_Error__(__FILE__, __FUNCTION__, __LINE__, id, TermNil, __VA_ARGS__)
#define Yap_Error( id, inp, ...) Yap_Error__(__FILE__, __FUNCTION__, __LINE__, id, inp, __VA_ARGS__)
#define JMP_LOCAL_ERROR(v, LAB) \
if (H + 2 * (v) > ASP - 1024) { \

View File

@@ -1899,9 +1899,9 @@ extern X_API void YAP_Write(YAP_Term t,FILE *s,int);
extern X_API FILE * YAP_TermToStream(YAP_Term t);
extern X_API int YAP_InitConsult(int mode, const char *filename);
extern X_API int YAP_InitConsult(int mode, const char *filename, int *previous_sno);
extern X_API void YAP_EndConsult(int s);
extern X_API void YAP_EndConsult(int s, int *previous_sno);
#ifndef _PL_STREAM_H
// if we don't know what a stream is, just don't assume nothing about the pointer