diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mingw compilation

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/SWI-Prolog.h
View File

@ -87,7 +87,9 @@ typedef unsigned __int64 uint64_t;
#else #else
#include <inttypes.h> /* more portable than stdint.h */ #include <inttypes.h> /* more portable than stdint.h */
#endif #endif
#if !defined(_MSC_VER)
typedef uintptr_t PL_fid_t; /* opaque foreign context handle */ typedef uintptr_t PL_fid_t; /* opaque foreign context handle */
#endif
typedef void *function_t; 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 int PL_action(int,...);
extern X_API void *PL_malloc(int); extern X_API void *PL_malloc(int);
extern X_API void PL_free(void *); 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)) #define PL_register_foreign(name, arity, function, flags) PL_register_foreign_in_module(NULL, (name), (arity), (function), (flags))

2
include/SWI-Stream.h
View File

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

2
library/yap2swi/yap2swi.c
View File

@ -2195,7 +2195,7 @@ PL_free(void *obj)
} }
X_API int 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)); Term res = Yap_Eval(Yap_GetFromSlot(t));
if (!res) { if (!res) {

2
packages/chr

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