From d3f52d3f612a42e9f953be0c1f0a34e0dd358fee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sat, 19 Jun 2010 14:36:12 +0100
Subject: [PATCH] fix SWI to be able to include gmp.h

---
 include/SWI-Prolog.h | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/include/SWI-Prolog.h b/include/SWI-Prolog.h
index 2a801db81..866210545 100755
--- a/include/SWI-Prolog.h
+++ b/include/SWI-Prolog.h
@@ -20,6 +20,19 @@ extern "C" {
 //=== includes ===============================================================
 #ifdef          _YAP_NOT_INSTALLED_
 #include	"config.h"
+
+#ifdef __cplusplus
+}
+#endif
+
+#if USE_GMP
+#include <gmp.h>
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
 #include	"YapInterface.h"
 #else
 #include	<Yap/config.h>
@@ -359,6 +372,7 @@ extern X_API int PL_get_arg(int, term_t, term_t);
 extern X_API int _PL_get_arg(int, term_t, term_t);
 extern X_API int PL_get_atom(term_t, atom_t *);
 extern X_API int PL_get_atom_chars(term_t, char **);
+extern X_API int PL_get_atom_nchars(term_t, char **, size_t *);
 extern X_API int PL_get_bool(term_t, int *);
 extern X_API int PL_get_chars(term_t, char **, unsigned);
 extern X_API int PL_get_nchars(term_t, size_t *, char **, unsigned);
@@ -564,8 +578,6 @@ PL_EXPORT(int) 		PL_release_stream(IOSTREAM *s);
 
 #if USE_GMP
 
-#include <gmp.h>
-
 PL_EXPORT(int)		PL_get_mpz(term_t t, mpz_t mpz);
 PL_EXPORT(int)		PL_unify_mpz(term_t t, mpz_t mpz);
 PL_EXPORT(int)		PL_get_mpq(term_t t, mpq_t mpz);