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

fix bug in big num to string

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 15:09:54 +00:00
parent 6e9e383914
commit e1dcdf0728
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/bignum.c
View File

@ -360,11 +360,11 @@ Yap_OpaqueTermToString(Term t, char *str, size_t max)
{ {
size_t str_index = 0; size_t str_index = 0;
CELL * li = RepAppl(t); CELL * li = RepAppl(t);
unsigned char *ptr = (unsigned char *)StringOfTerm(AbsAppl(li));
if (li[0] == (CELL)FunctorString) { if (li[0] == (CELL)FunctorString) {
str_index += sprintf(& str[str_index], "\""); str_index += sprintf(& str[str_index], "\"");
do { do {
utf8proc_int32_t chr; utf8proc_int32_t chr;
unsigned char *ptr = (unsigned char *)StringOfTerm(AbsAppl(li));
ptr += get_utf8(ptr, &chr); ptr += get_utf8(ptr, &chr);
if (chr == '\0') break; if (chr == '\0') break;
str_index += sprintf(str+str_index, "%C", chr); str_index += sprintf(str+str_index, "%C", chr);