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

get rid of aliasing warnings.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-02 09:18:51 +00:00
parent d42f4daed0
commit 7f3e510992
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/PLStream/pl-fmt.c
View File

@ -201,7 +201,7 @@ static int emit_rubber(format_state *state);
word word
pl_format_predicate(term_t chr, term_t descr) pl_format_predicate(term_t chr, term_t descr)
{ int c; { int c;
predicate_t proc; predicate_t proc = NULL;
Symbol s; Symbol s;
int arity; int arity;
@ -507,7 +507,10 @@ do_format(IOSTREAM *fd, PL_chars_t *fmt, int argc, term_t argv)
case 'g': /* shortest of 'f' and 'e' */ case 'g': /* shortest of 'f' and 'e' */
case 'G': /* shortest of 'f' and 'E' */ case 'G': /* shortest of 'f' and 'E' */
{ number n; { number n;
union {
tmp_buffer b; tmp_buffer b;
buffer b1;
} u;
NEED_ARG; NEED_ARG;
if ( !valueExpression(argv, &n PASS_LD) ) if ( !valueExpression(argv, &n PASS_LD) )
@ -519,11 +522,11 @@ do_format(IOSTREAM *fd, PL_chars_t *fmt, int argc, term_t argv)
} }
SHIFT; SHIFT;
initBuffer(&b); initBuffer(&u.b);
formatFloat(c, arg, &n, (Buffer)&b); formatFloat(c, arg, &n, &u.b1);
clearNumber(&n); clearNumber(&n);
outstring0(&state, baseBuffer(&b, char)); outstring0(&state, baseBuffer(&u.b, char));
discardBuffer(&b); discardBuffer(&u.b);
here++; here++;
break; break;
} }