Mercurial > hg > xemacs-beta

diff src/data.c @ 5762:427a72c6ee17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate several compiler (clang) warnings.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sun, 15 Sep 2013 23:47:37 +0900
parents 70a3f4ff8da8
children 3bfcdeb65578
line wrap: on
line diff
--- a/src/data.c	Sun Sep 08 21:48:09 2013 +0200
+++ b/src/data.c	Sun Sep 15 23:47:37 2013 +0900
@@ -2477,7 +2477,7 @@
  retry:
 
   if (FIXNUMP    (number)) return make_integer (XFIXNUM (number) + 1);
-  if (CHARP   (number)) return make_integer (XCHAR (number) + 1);
+  if (CHARP   (number)) return make_integer ((EMACS_INT) XCHAR (number) + 1);
   if (MARKERP (number)) return make_integer (marker_position (number) + 1);
   if (FLOATP  (number)) return make_float (XFLOAT_DATA (number) + 1.0);
 #ifdef HAVE_BIGNUM
@@ -2521,7 +2521,7 @@
  retry:
 
   if (FIXNUMP    (number)) return make_integer (XFIXNUM (number) - 1);
-  if (CHARP   (number)) return make_integer (XCHAR (number) - 1);
+  if (CHARP   (number)) return make_integer ((EMACS_INT) XCHAR (number) - 1);
   if (MARKERP (number)) return make_integer (marker_position (number) - 1);
   if (FLOATP  (number)) return make_float (XFLOAT_DATA (number) - 1.0);
 #ifdef HAVE_BIGNUM