Mercurial > hg > xemacs-beta
diff src/glyphs.c @ 5762:427a72c6ee17
Eliminate several compiler (clang) warnings.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Sun, 15 Sep 2013 23:47:37 +0900 |
| parents | 3192994c49ca |
| children | 0f2338afbabf |
line wrap: on
line diff
--- a/src/glyphs.c Sun Sep 08 21:48:09 2013 +0200 +++ b/src/glyphs.c Sun Sep 15 23:47:37 2013 +0900 @@ -2637,8 +2637,8 @@ static void check_valid_xbm_inline (Lisp_Object data) { - Lisp_Object width, height, bits, args[2]; - unsigned long i_width, i_height; + Lisp_Object width, height, bits; + EMACS_INT i_width, i_height; if (!CONSP (data) || !CONSP (XCDR (data)) || @@ -2658,9 +2658,9 @@ if (!FIXNUMP (height) || XREALFIXNUM (height) < 0) invalid_argument ("Height must be a natural number", height); - i_width = (unsigned long) XREALFIXNUM (width); - i_height = (unsigned long) XREALFIXNUM (height); - if (i_width * i_height / 8UL > string_char_length (bits)) + i_width = XREALFIXNUM (width); + i_height = XREALFIXNUM (height); + if (i_width * i_height / 8 > string_char_length (bits)) invalid_argument ("data is too short for width and height", vector3 (width, height, bits)); }