mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-17 09:10:22 +02:00
Update Gnulib to v0.0-5158-g7d06b32; remove strcase' and
version-etc-fsf'.
* m4/gnulib-cache.m4: Remove `strcase' and `version-etc-fsf'. * configure.ac (POTENTIAL_GCC_CFLAGS): Remove `-Wundef'. * libguile/script.c: Don't include <version-etc.h>.
This commit is contained in:
parent
eb0ffdd819
commit
dd7d0148f2
64 changed files with 1362 additions and 1252 deletions
|
@ -172,15 +172,16 @@ extern char *tzname[];
|
|||
#define add(n, f) \
|
||||
do \
|
||||
{ \
|
||||
int _n = (n); \
|
||||
int _delta = width - _n; \
|
||||
int _incr = _n + (_delta > 0 ? _delta : 0); \
|
||||
if ((size_t) _incr >= maxsize - i) \
|
||||
size_t _n = (n); \
|
||||
size_t _w = (width < 0 ? 0 : width); \
|
||||
size_t _incr = _n < _w ? _w : _n; \
|
||||
if (_incr >= maxsize - i) \
|
||||
return 0; \
|
||||
if (p) \
|
||||
{ \
|
||||
if (digits == 0 && _delta > 0) \
|
||||
if (digits == 0 && _n < _w) \
|
||||
{ \
|
||||
size_t _delta = width - _n; \
|
||||
if (pad == L_('0')) \
|
||||
memset_zero (p, _delta); \
|
||||
else \
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue