mingw compilation

This commit is contained in:
U-Khasa\Vitor 2009-07-18 13:38:38 -07:00
parent 869671fb1b
commit 2020a31362
4 changed files with 6 additions and 4 deletions

View File

@ -87,7 +87,9 @@ typedef unsigned __int64 uint64_t;
#else
#include <inttypes.h> /* more portable than stdint.h */
#endif
#if !defined(_MSC_VER)
typedef uintptr_t PL_fid_t; /* opaque foreign context handle */
#endif
typedef void *function_t;
@ -425,7 +427,7 @@ extern X_API void PL_erase(record_t);
extern X_API int PL_action(int,...);
extern X_API void *PL_malloc(int);
extern X_API void PL_free(void *);
extern X_API int PL_eval_expression_to_int_64_ex(term_t t, int64_t *val);
extern X_API int PL_eval_expression_to_int64_ex(term_t t, int64_t *val);
#define PL_register_foreign(name, arity, function, flags) PL_register_foreign_in_module(NULL, (name), (arity), (function), (flags))

View File

@ -47,7 +47,7 @@
#include <stddef.h>
#ifdef __WINDOWS__
typedef __int64 int64_t;
#if (_MSC_VER < 1300)
#if (_MSC_VER < 1300) && !defined(__MINGW32__)
typedef long intptr_t;
typedef unsigned long uintptr_t;
#endif

View File

@ -2195,7 +2195,7 @@ PL_free(void *obj)
}
X_API int
PL_eval_expression_to_int_64_ex(term_t t, int64_t *val)
PL_eval_expression_to_int64_ex(term_t t, int64_t *val)
{
Term res = Yap_Eval(Yap_GetFromSlot(t));
if (!res) {

@ -1 +1 @@
Subproject commit c325e4564bb8d4e32c27f2061df85f13d315974e
Subproject commit e071f01c1d9015e6d3fabc73092a6e902541485a