(Ffont_fill_gstring, Fget_font_glyphs): Fix compilation warnings.

diff --git a/src/ChangeLog b/src/ChangeLog
index 259fbd47a145a28a2f8bd2d3870cea8f59d6822c..bfe82a0d2a81fd2174f009bbc7f68d1561ce98d1 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-16  Eli Zaretskii  <eliz@gnu.org>
+
+       * font.c (Ffont_fill_gstring, Fget_font_glyphs): Fix compilation
+       warnings.
+
 2008-02-15  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * .gdbinit: Don't set `args', it breaks gdb --args.

diff --git a/src/font.c b/src/font.c
index 14fa808dbc44103b001e0ade448b5ac45b099580..3dedaf56f58694841e43694fa6e34e1235a90b9d 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -3494,10 +3494,13 @@ FONT-OBJECT may be nil if GSTRING already already contains one.  */)
       for (i = 0; i < len; i++)
        {
          Lisp_Object g = LGSTRING_GLYPH (gstring, i);
+         /* Shut up GCC warning in comparison with
+            MOST_POSITIVE_FIXNUM below.  */
+         EMACS_INT cod;
 
          c = STRING_CHAR_ADVANCE (p);
-         code = font->driver->encode_char (font, c);
-         if (code > MOST_POSITIVE_FIXNUM || code == FONT_INVALID_CODE)
+         cod = code = font->driver->encode_char (font, c);
+         if (cod > MOST_POSITIVE_FIXNUM || code == FONT_INVALID_CODE)
            break;
          LGLYPH_SET_FROM (g, i);
          LGLYPH_SET_TO (g, i);
@@ -3520,10 +3523,13 @@ FONT-OBJECT may be nil if GSTRING already already contains one.  */)
       for (i = 0; i < len; i++)
        {
          Lisp_Object g = LGSTRING_GLYPH (gstring, i);
+         /* Shut up GCC warning in comparison with
+            MOST_POSITIVE_FIXNUM below.  */
+         EMACS_INT cod;
 
          FETCH_CHAR_ADVANCE (c, pos, pos_byte);
-         code = font->driver->encode_char (font, c);
-         if (code > MOST_POSITIVE_FIXNUM || code == FONT_INVALID_CODE)
+         cod = code = font->driver->encode_char (font, c);
+         if (cod > MOST_POSITIVE_FIXNUM || code == FONT_INVALID_CODE)
            break;
          LGLYPH_SET_FROM (g, i);
          LGLYPH_SET_TO (g, i);
@@ -3961,13 +3967,14 @@ Each element is a vector [GLYPH-CODE LBEARING RBEARING WIDTH ASCENT DESCENT].  *
       Lisp_Object val;
       int c = XINT (ch);
       unsigned code;
+      EMACS_INT cod;
       struct font_metrics metrics;
 
-      code = font->driver->encode_char (font, c);
+      cod = code = font->driver->encode_char (font, c);
       if (code == FONT_INVALID_CODE)
        continue;
       val = Fmake_vector (make_number (6), Qnil);
-      if (code <= MOST_POSITIVE_FIXNUM)
+      if (cod <= MOST_POSITIVE_FIXNUM)
        ASET (val, 0, make_number (code));
       else
        ASET (val, 0, Fcons (make_number (code >> 16),