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

fix NStringToList

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-06-17 00:29:46 +01:00
parent 6e67a84ab0
commit c56ad7a80d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/adtdefs.c
View File

@ -1135,10 +1135,10 @@ Term
Yap_NStringToList(char *s, size_t len) Yap_NStringToList(char *s, size_t len)
{ {
Term t; Term t;
char *cp = s + len; unsigned char *cp = (unsigned char *)s + len;
t = MkAtomTerm(AtomNil); t = MkAtomTerm(AtomNil);
while (cp > s) { while (cp > (unsigned char *)s) {
t = MkPairTerm(MkIntegerTerm(*--cp), t); t = MkPairTerm(MkIntegerTerm(*--cp), t);
} }
return t; return t;