Mercurial > hg > xemacs-beta

comparison src/doprnt.c @ 2272:4ec724310f33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-14 20:54:29 by james] Eliminate gcc shadow warnings.
author james
date Tue, 14 Sep 2004 20:54:37 +0000
parents 5753220a0f80
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2271:0dfff19d20da 2272:4ec724310f33
596 #else 596 #else
597 if (!INT_OR_FLOATP (obj)) 597 if (!INT_OR_FLOATP (obj))
598 #endif 598 #endif
599 { 599 {
600 /* WARNING! This MUST be big enough for the sprintf below */ 600 /* WARNING! This MUST be big enough for the sprintf below */
601 CIbyte message[48]; 601 CIbyte msg[48];
602 sprintf (message, 602 sprintf (msg,
603 "format specifier %%%c doesn't match argument type", 603 "format specifier %%%c doesn't match argument type",
604 ch); 604 ch);
605 syntax_error (message, Qnil); 605 syntax_error (msg, Qnil);
606 } 606 }
607 else if (strchr (double_converters, ch)) 607 else if (strchr (double_converters, ch))
608 { 608 {
609 #ifdef WITH_NUMBER_TYPES 609 #ifdef WITH_NUMBER_TYPES
610 if (INTP (obj) || FLOATP (obj)) 610 if (INTP (obj) || FLOATP (obj))
718 a = (Ichar) arg.l; 718 a = (Ichar) arg.l;
719 719
720 if (!valid_ichar_p (a)) 720 if (!valid_ichar_p (a))
721 { 721 {
722 /* WARNING! This MUST be big enough for the sprintf below */ 722 /* WARNING! This MUST be big enough for the sprintf below */
723 CIbyte message[60]; 723 CIbyte msg[60];
724 sprintf (message, "invalid character value %d to %%c spec", 724 sprintf (msg, "invalid character value %d to %%c spec",
725 a); 725 a);
726 syntax_error (message, Qnil); 726 syntax_error (msg, Qnil);
727 } 727 }
728 728
729 charlen = set_itext_ichar (charbuf, a); 729 charlen = set_itext_ichar (charbuf, a);
730 doprnt_2 (stream, charbuf, charlen, spec->minwidth, 730 doprnt_2 (stream, charbuf, charlen, spec->minwidth,
731 -1, spec->minus_flag, spec->zero_flag); 731 -1, spec->minus_flag, spec->zero_flag);