Mercurial > hg > xemacs-beta
comparison src/number-gmp.h @ 2551:9f70af3ac939
[xemacs-hg @ 2005-02-03 16:14:02 by james]
Commit Olivier Galibert's dumper updates for bignums and use them.
See xemacs-patches message with ID <ps8y685c6p.fsf@diannao.ittc.ku.edu>.
| author | james |
|---|---|
| date | Thu, 03 Feb 2005 16:14:08 +0000 |
| parents | 04bc9d2f42c7 |
| children | ee35a8fdcfcd |
comparison
equal
deleted
inserted
replaced
| 2550:317f30471f4e | 2551:9f70af3ac939 |
|---|---|
| 150 #define ratio_set_double(r,f) mpq_set_d (r, f) | 150 #define ratio_set_double(r,f) mpq_set_d (r, f) |
| 151 #define ratio_set_bignum(r,b) mpq_set_z (r, b) | 151 #define ratio_set_bignum(r,b) mpq_set_z (r, b) |
| 152 #define ratio_set_bigfloat(r,f) mpq_set_f (r, f) | 152 #define ratio_set_bigfloat(r,f) mpq_set_f (r, f) |
| 153 #define ratio_set_long_ulong(r,num,den) mpq_set_si (r, num, den) | 153 #define ratio_set_long_ulong(r,num,den) mpq_set_si (r, num, den) |
| 154 #define ratio_set_ulong_ulong(r,num,den) mpq_set_ui (r, num, den) | 154 #define ratio_set_ulong_ulong(r,num,den) mpq_set_ui (r, num, den) |
| 155 /* FIXME: Why does this canonicalize, but the previous 2 don't? */ | |
| 155 #define ratio_set_bignum_bignum(r,num,den) do { \ | 156 #define ratio_set_bignum_bignum(r,num,den) do { \ |
| 156 mpz_set (mpq_numref (r), num); \ | 157 mpz_set (mpq_numref (r), num); \ |
| 157 mpz_set (mpq_denref (r), den); \ | 158 mpz_set (mpq_denref (r), den); \ |
| 158 mpq_canonicalize (r); \ | 159 mpq_canonicalize (r); \ |
| 159 } while (0) | 160 } while (0) |