procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fformat): Correctly format EMACS_UINT values.

Browse source
This commit is contained in:
Andreas Schwab 2007-11-15 23:38:14 +00:00
parent 9b6112e8c3
commit 0f860bd793
2 changed files with 29 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/ChangeLog
View file

@ -1,5 +1,7 @@
2007-11-15 Andreas Schwab <schwab@suse.de>
* editfns.c (Fformat): Correctly format EMACS_INT values.
* keyboard.c (Fevent_symbol_parse_modifiers): Fix declaration.
2007-11-15 Stefan Monnier <monnier@iro.umontreal.ca>

42
src/editfns.c
View file

@ -3801,23 +3801,35 @@ usage: (format STRING &rest OBJECTS) */)
format - this_format_start);
this_format[format - this_format_start] = 0;
if (INTEGERP (args[n]))
{
if (format[-1] == 'd')
sprintf (p, this_format, XINT (args[n]));
/* Don't sign-extend for octal or hex printing. */
else
sprintf (p, this_format, XUINT (args[n]));
}
else if (format[-1] == 'e' || format[-1] == 'f' || format[-1] == 'g')
if (format[-1] == 'e' || format[-1] == 'f' || format[-1] == 'g')
sprintf (p, this_format, XFLOAT_DATA (args[n]));
else if (format[-1] == 'd')
/* Maybe we should use "%1.0f" instead so it also works
for values larger than MAXINT. */
sprintf (p, this_format, (EMACS_INT) XFLOAT_DATA (args[n]));
else
/* Don't sign-extend for octal or hex printing. */
sprintf (p, this_format, (EMACS_UINT) XFLOAT_DATA (args[n]));
{
if (sizeof (EMACS_INT) > sizeof (int))
{
/* Insert 'l' before format spec. */
this_format[format - this_format_start]
= this_format[format - this_format_start - 1];
this_format[format - this_format_start - 1] = 'l';
this_format[format - this_format_start + 1] = 0;
}
if (INTEGERP (args[n]))
{
if (format[-1] == 'd')
sprintf (p, this_format, XINT (args[n]));
/* Don't sign-extend for octal or hex printing. */
else
sprintf (p, this_format, XUINT (args[n]));
}
else if (format[-1] == 'd')
/* Maybe we should use "%1.0f" instead so it also works
for values larger than MAXINT. */
sprintf (p, this_format, (EMACS_INT) XFLOAT_DATA (args[n]));
else
/* Don't sign-extend for octal or hex printing. */
sprintf (p, this_format, (EMACS_UINT) XFLOAT_DATA (args[n]));
}
if (p > buf
&& multibyte