Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5761:a9fd35f939a5 5762:427a72c6ee17
2475 (number)) 2475 (number))
2476 { 2476 {
2477 retry: 2477 retry:
2478 2478
2479 if (FIXNUMP (number)) return make_integer (XFIXNUM (number) + 1); 2479 if (FIXNUMP (number)) return make_integer (XFIXNUM (number) + 1);
2480 if (CHARP (number)) return make_integer (XCHAR (number) + 1); 2480 if (CHARP (number)) return make_integer ((EMACS_INT) XCHAR (number) + 1);
2481 if (MARKERP (number)) return make_integer (marker_position (number) + 1); 2481 if (MARKERP (number)) return make_integer (marker_position (number) + 1);
2482 if (FLOATP (number)) return make_float (XFLOAT_DATA (number) + 1.0); 2482 if (FLOATP (number)) return make_float (XFLOAT_DATA (number) + 1.0);
2483 #ifdef HAVE_BIGNUM 2483 #ifdef HAVE_BIGNUM
2484 if (BIGNUMP (number)) 2484 if (BIGNUMP (number))
2485 { 2485 {
2519 (number)) 2519 (number))
2520 { 2520 {
2521 retry: 2521 retry:
2522 2522
2523 if (FIXNUMP (number)) return make_integer (XFIXNUM (number) - 1); 2523 if (FIXNUMP (number)) return make_integer (XFIXNUM (number) - 1);
2524 if (CHARP (number)) return make_integer (XCHAR (number) - 1); 2524 if (CHARP (number)) return make_integer ((EMACS_INT) XCHAR (number) - 1);
2525 if (MARKERP (number)) return make_integer (marker_position (number) - 1); 2525 if (MARKERP (number)) return make_integer (marker_position (number) - 1);
2526 if (FLOATP (number)) return make_float (XFLOAT_DATA (number) - 1.0); 2526 if (FLOATP (number)) return make_float (XFLOAT_DATA (number) - 1.0);
2527 #ifdef HAVE_BIGNUM 2527 #ifdef HAVE_BIGNUM
2528 if (BIGNUMP (number)) 2528 if (BIGNUMP (number))
2529 { 2529 {