119 lines
2.0 KiB
C
119 lines
2.0 KiB
C
|
// SWI stuff that is needed everywhere
|
||
|
|
|
||
|
|
#ifndef PL_BASIC_H
|
||
|
|
|
||
|
|
#define PL_BASIC_H
|
||
|
|
|
||
|
|
#if USE_GMP
|
||
|
|
#define O_GMP 1
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define O_LOCALE 1
|
||
|
|
|
||
|
|
#ifdef __WINDOWS__
|
||
|
|
#include <windows.h>
|
||
|
|
#include <windows/uxnt.h>
|
||
|
|
#define O_HASDRIVES 1
|
||
|
|
#define O_HASSHARES 1
|
||
|
|
#define EMULATE_DLOPEN 1
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef PL_CONSOLE
|
||
|
|
#define PL_KERNEL 1
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef __MINGW32__
|
||
|
|
#define O_XOS 1
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef __unix__
|
||
|
|
#if defined(_AIX) || defined(__APPLE__) || defined(__unix) || defined(__BEOS__) || defined(__NetBSD__)
|
||
|
|
#define __unix__ 1
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef THREADS
|
||
|
|
#define O_PLMT 1
|
||
|
|
#else
|
||
|
|
#ifdef _REENTRANT
|
||
|
|
#undef _REENTRANT
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(__GNUC__) && !defined(MAY_ALIAS)
|
||
|
|
#define MAY_ALIAS __attribute__ ((__may_alias__))
|
||
|
|
#else
|
||
|
|
#define MAY_ALIAS
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef PL_HAVE_TERM_T
|
||
|
|
#define PL_HAVE_TERM_T
|
||
|
|
typedef uintptr_t term_t;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if _WIN32
|
||
|
|
#ifndef THREADS
|
||
|
|
typedef int pthread_t;
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if !defined(_FLI_H_INCLUDED)
|
||
|
|
|
||
|
|
typedef int bool;
|
||
|
|
|
||
|
|
|
||
|
|
typedef struct DB_STRUCT *record_t;
|
||
|
|
typedef struct mod_entry *module_t;
|
||
|
|
typedef uintptr_t atom_t;
|
||
|
|
|
||
|
|
typedef int (*PL_dispatch_hook_t)(int fd);
|
||
|
|
|
||
|
|
typedef struct pred_entry *predicate_t;
|
||
|
|
|
||
|
|
typedef uintptr_t PL_fid_t; /* opaque foreign context handle */
|
||
|
|
#define fid_t PL_fid_t /* avoid AIX name-clash */
|
||
|
|
|
||
|
|
typedef uintptr_t word; /* Anonymous 4 byte object */
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef COMMON
|
||
|
|
#define COMMON(X) X
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
#define GLOBAL_LD (LOCAL_PL_local_data_p)
|
||
|
|
|
||
|
|
#if !defined(O_PLMT) && !defined(YAPOR)
|
||
|
|
#define LOCAL_LD (GLOBAL_LD)
|
||
|
|
#define LD (GLOBAL_LD)
|
||
|
|
#define ARG1_LD void
|
||
|
|
#define ARG_LD
|
||
|
|
#define GET_LD
|
||
|
|
#define PRED_LD
|
||
|
|
#define PASS_LD
|
||
|
|
#define PASS_LD1
|
||
|
|
#define IGNORE_LD
|
||
|
|
|
||
|
|
#define REGS_FROM_LD
|
||
|
|
#else
|
||
|
|
|
||
|
|
#define LOCAL_LD (__PL_ld)
|
||
|
|
#define LD LOCAL_LD
|
||
|
|
|
||
|
|
#define GET_LD CACHE_REGS struct PL_local_data *__PL_ld = GLOBAL_LD;
|
||
|
|
#define ARG1_LD struct PL_local_data *__PL_ld
|
||
|
|
|
||
|
|
#define ARG_LD , ARG1_LD
|
||
|
|
#define PASS_LD1 LD
|
||
|
|
#define PASS_LD , LD
|
||
|
|
#define PRED_LD GET_LD
|
||
|
|
#define IGNORE_LD (void)__PL_ld;
|
||
|
|
|
||
|
|
#define REGS_FROM_LD struct regstore_t *regcache = __PL_ld->reg_cache;
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|