comparison src/number.h @ 5865:a45722e74335

Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 12 Mar 2015 16:27:13 +0000
parents 750fab17b299
children
comparison
equal deleted inserted replaced
5856:27876789edc5 5865:a45722e74335
99 } while (0) 99 } while (0)
100 100
101 #if SIZEOF_EMACS_INT == SIZEOF_LONG 101 #if SIZEOF_EMACS_INT == SIZEOF_LONG
102 # define bignum_fits_emacs_int_p(b) bignum_fits_long_p(b) 102 # define bignum_fits_emacs_int_p(b) bignum_fits_long_p(b)
103 # define bignum_to_emacs_int(b) bignum_to_long(b) 103 # define bignum_to_emacs_int(b) bignum_to_long(b)
104 # define bignum_set_emacs_int bignum_set_long
105 # define make_bignum_emacs_uint(b) make_bignum_un(b)
104 #elif SIZEOF_EMACS_INT == SIZEOF_INT 106 #elif SIZEOF_EMACS_INT == SIZEOF_INT
105 # define bignum_fits_emacs_int_p(b) bignum_fits_int_p(b) 107 # define bignum_fits_emacs_int_p(b) bignum_fits_int_p(b)
106 # define bignum_to_emacs_int(b) bignum_to_int(b) 108 # define bignum_to_emacs_int(b) bignum_to_int(b)
109 # define bignum_set_emacs_int bignum_set_long
110 # define make_bignum_emacs_uint(b) make_bignum_un(b)
107 #else 111 #else
108 # define bignum_fits_emacs_int_p(b) bignum_fits_llong_p(b) 112 # define bignum_fits_emacs_int_p(b) bignum_fits_llong_p(b)
109 # define bignum_to_emacs_int(b) bignum_to_llong(b) 113 # define bignum_to_emacs_int(b) bignum_to_llong(b)
114 # define bignum_set_emacs_int bignum_set_llong
115 # define make_bignum_emacs_uint(b) make_bignum_ull(b)
110 #endif 116 #endif
111 117
112 extern Lisp_Object make_bignum (long); 118 extern Lisp_Object make_bignum (long);
113 extern Lisp_Object make_bignum_un (unsigned long); 119 extern Lisp_Object make_bignum_un (unsigned long);
114 extern Lisp_Object make_bignum_ll (long long); 120 extern Lisp_Object make_bignum_ll (long long);