handles in SWI and changes in exports

This commit is contained in:
Vitor Santos Costa
2013-11-20 22:29:51 +00:00
parent 61e78d9963
commit d75e6b56e5
4 changed files with 68 additions and 78 deletions

View File

@@ -294,7 +294,7 @@ typedef struct foreign_context *control_t;
#define PRED_IMPL(name, arity, fname, flags) \
foreign_t \
pl_ ## fname ## _va(term_t PL__t0, int PL__ac, control_t PL__ctx)
pl_ ## fname ## arity ## _va(term_t PL__t0, int PL__ac, control_t PL__ctx)
#define CTX_CNTRL ForeignControl(PL__ctx)
#define CTX_PTR ForeignContextPtr(PL__ctx)
@@ -304,7 +304,7 @@ typedef struct foreign_context *control_t;
#define BeginPredDefs(id) \
const PL_extension PL_predicates_from_ ## id[] = {
#define PRED_DEF(name, arity, fname, flags) \
{ name, arity, pl_ ## fname ## _va, (flags)|PL_FA_VARARGS },
{ name, arity, pl_ ## fname ## arity ## _va, (flags)|PL_FA_VARARGS },
#define EndPredDefs \
{ NULL, 0, NULL, 0 } \
};

View File

@@ -231,6 +231,7 @@ typedef struct YAP_pred_entry *YAP_PredEntryPtr;
/* this should be opaque to the user */
typedef struct {
unsigned long b;
YAP_Int CurSlot;
struct yami *p, *cp;
} YAP_dogoalinfo;