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

fix trouble with extension of latin1 characters.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-07-21 11:11:19 +01:00
parent b61d69ffe8
commit 73c89b096d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/stdpreds.c
View File

@ -852,7 +852,6 @@ p_char_code(void)
Yap_Error(INSTANTIATION_ERROR,t0,"char_code/2"); Yap_Error(INSTANTIATION_ERROR,t0,"char_code/2");
return(FALSE); return(FALSE);
} else if (!IsIntegerTerm(t1)) { } else if (!IsIntegerTerm(t1)) {
fprintf(stderr,"hello\n"),
Yap_Error(TYPE_ERROR_INTEGER,t1,"char_code/2"); Yap_Error(TYPE_ERROR_INTEGER,t1,"char_code/2");
return(FALSE); return(FALSE);
} else { } else {
@ -918,7 +917,7 @@ ch_to_wide(char *base, char *charp)
return NULL; return NULL;
} }
for (i=n; i > 0; i--) { for (i=n; i > 0; i--) {
nb[i-1] = base[i-1]; nb[i-1] = (unsigned char)base[i-1];
} }
return nb+n; return nb+n;
} }