From c56ad7a80d1d5f30e41bd2b836b0dfd81048bede Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Thu, 17 Jun 2010 00:29:46 +0100
Subject: [PATCH] fix NStringToList

---
 C/adtdefs.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/adtdefs.c b/C/adtdefs.c
index d27947c68..6b8651b25 100755
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -1135,10 +1135,10 @@ Term
 Yap_NStringToList(char *s, size_t len)
 {
   Term t;
-  char *cp = s + len;
+  unsigned char *cp = (unsigned char *)s + len;
 
   t = MkAtomTerm(AtomNil);
-  while (cp > s) {
+  while (cp > (unsigned char *)s) {
     t = MkPairTerm(MkIntegerTerm(*--cp), t);
   }
   return t;