avoid some name clashes (obs from Roberto Bagnara)
This commit is contained in:
parent
84097e4598
commit
4c45f8c4b1
@ -269,19 +269,6 @@ typedef struct foreign_context *control_t;
|
||||
foreign_t \
|
||||
pl_ ## fname ## _va(term_t PL__t0, int PL__ac, control_t PL__ctx)
|
||||
|
||||
#define Arg(N) (PL__t0+((n)-1))
|
||||
#define A1 (PL__t0)
|
||||
#define A2 (PL__t0+1)
|
||||
#define A3 (PL__t0+2)
|
||||
#define A3 (PL__t0+2)
|
||||
#define A4 (PL__t0+3)
|
||||
#define A5 (PL__t0+4)
|
||||
#define A6 (PL__t0+5)
|
||||
#define A7 (PL__t0+6)
|
||||
#define A8 (PL__t0+7)
|
||||
#define A9 (PL__t0+8)
|
||||
#define A10 (PL__t0+9)
|
||||
|
||||
#define CTX_CNTRL ForeignControl(PL__ctx)
|
||||
#define CTX_PTR ForeignContextPtr(PL__ctx)
|
||||
#define CTX_INT ForeignContextInt(PL__ctx)
|
||||
@ -574,9 +561,6 @@ PL_EXPORT(int) PL_release_stream(IOSTREAM *s);
|
||||
|
||||
#endif
|
||||
|
||||
#define succeed return TRUE
|
||||
#define fail return FALSE
|
||||
|
||||
extern X_API const char *PL_cwd(void);
|
||||
|
||||
void swi_install(void);
|
||||
|
@ -10,6 +10,20 @@
|
||||
#include <SWI-Prolog.h>
|
||||
typedef int bool;
|
||||
|
||||
#define Arg(N) (PL__t0+((n)-1))
|
||||
#define A1 (PL__t0)
|
||||
#define A2 (PL__t0+1)
|
||||
#define A3 (PL__t0+2)
|
||||
#define A3 (PL__t0+2)
|
||||
#define A4 (PL__t0+3)
|
||||
#define A5 (PL__t0+4)
|
||||
#define A6 (PL__t0+5)
|
||||
#define A7 (PL__t0+6)
|
||||
#define A8 (PL__t0+7)
|
||||
#define A9 (PL__t0+8)
|
||||
#define A10 (PL__t0+9)
|
||||
|
||||
|
||||
/* atom_t macro layer */
|
||||
#define NULL_ATOM ((atom_t)0)
|
||||
#if __YAP_PROLOG__
|
||||
|
Reference in New Issue
Block a user