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

fixes

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-12-10 01:09:21 -06:00
parent 5526dc48bf
commit 45a54e2b04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/real/real.c
View File

@ -455,7 +455,7 @@ REAL_term_type( term_t t , int context)
static int static int
merge_dots( term_t t ) merge_dots( term_t t )
{ char so[1025], *ns; { char so[1025], *ns = so;
int loop=TRUE, first = TRUE, arity; int loop=TRUE, first = TRUE, arity;
term_t tmp = PL_new_term_ref(); term_t tmp = PL_new_term_ref();
atom_t name; atom_t name;
@ -472,7 +472,7 @@ merge_dots( term_t t )
} }
if ( PL_get_chars(tmp, &ns, CVT_ATOM|CVT_STRING|BUF_DISCARDABLE|REP_UTF8) ) { if ( PL_get_chars(tmp, &ns, CVT_ATOM|CVT_STRING|BUF_DISCARDABLE|REP_UTF8) ) {
strncat( so, ns, 1024-strlen(so)-1); ns += strlen(ns);
if (!loop) { if (!loop) {
atom_t at = PL_new_atom( so ); atom_t at = PL_new_atom( so );
return PL_put_atom(t, at); return PL_put_atom(t, at);