Mercurial > hg > xemacs-beta
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); |