Mercurial > hg > xemacs-beta

comparison src/number.h @ 5133:444a448b2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge branch ben-lisp-object into default branch
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 06:47:37 -0600
parents b5df3737028a
children 53b88477345d
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
69 /********************************* Bignums **********************************/ 69 /********************************* Bignums **********************************/
70 #ifdef HAVE_BIGNUM 70 #ifdef HAVE_BIGNUM
71 71
72 struct Lisp_Bignum 72 struct Lisp_Bignum
73 { 73 {
74 struct lrecord_header lheader; 74 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
75 bignum data; 75 bignum data;
76 }; 76 };
77 typedef struct Lisp_Bignum Lisp_Bignum; 77 typedef struct Lisp_Bignum Lisp_Bignum;
78 78
79 DECLARE_LRECORD (bignum, Lisp_Bignum); 79 DECLARE_LISP_OBJECT (bignum, Lisp_Bignum);
80 #define XBIGNUM(x) XRECORD (x, bignum, Lisp_Bignum) 80 #define XBIGNUM(x) XRECORD (x, bignum, Lisp_Bignum)
81 #define wrap_bignum(p) wrap_record (p, bignum) 81 #define wrap_bignum(p) wrap_record (p, bignum)
82 #define BIGNUMP(x) RECORDP (x, bignum) 82 #define BIGNUMP(x) RECORDP (x, bignum)
83 #define CHECK_BIGNUM(x) CHECK_RECORD (x, bignum) 83 #define CHECK_BIGNUM(x) CHECK_RECORD (x, bignum)
84 #define CONCHECK_BIGNUM(x) CONCHECK_RECORD (x, bignum) 84 #define CONCHECK_BIGNUM(x) CONCHECK_RECORD (x, bignum)
157 /********************************** Ratios **********************************/ 157 /********************************** Ratios **********************************/
158 #ifdef HAVE_RATIO 158 #ifdef HAVE_RATIO
159 159
160 struct Lisp_Ratio 160 struct Lisp_Ratio
161 { 161 {
162 struct lrecord_header lheader; 162 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
163 ratio data; 163 ratio data;
164 }; 164 };
165 typedef struct Lisp_Ratio Lisp_Ratio; 165 typedef struct Lisp_Ratio Lisp_Ratio;
166 166
167 DECLARE_LRECORD (ratio, Lisp_Ratio); 167 DECLARE_LISP_OBJECT (ratio, Lisp_Ratio);
168 #define XRATIO(x) XRECORD (x, ratio, Lisp_Ratio) 168 #define XRATIO(x) XRECORD (x, ratio, Lisp_Ratio)
169 #define wrap_ratio(p) wrap_record (p, ratio) 169 #define wrap_ratio(p) wrap_record (p, ratio)
170 #define RATIOP(x) RECORDP (x, ratio) 170 #define RATIOP(x) RECORDP (x, ratio)
171 #define CHECK_RATIO(x) CHECK_RECORD (x, ratio) 171 #define CHECK_RATIO(x) CHECK_RECORD (x, ratio)
172 #define CONCHECK_RATIO(x) CONCHECK_RECORD (x, ratio) 172 #define CONCHECK_RATIO(x) CONCHECK_RECORD (x, ratio)
231 231
232 /******************************** Bigfloats *********************************/ 232 /******************************** Bigfloats *********************************/
233 #ifdef HAVE_BIGFLOAT 233 #ifdef HAVE_BIGFLOAT
234 struct Lisp_Bigfloat 234 struct Lisp_Bigfloat
235 { 235 {
236 struct lrecord_header lheader; 236 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
237 bigfloat bf; 237 bigfloat bf;
238 }; 238 };
239 typedef struct Lisp_Bigfloat Lisp_Bigfloat; 239 typedef struct Lisp_Bigfloat Lisp_Bigfloat;
240 240
241 DECLARE_LRECORD (bigfloat, Lisp_Bigfloat); 241 DECLARE_LISP_OBJECT (bigfloat, Lisp_Bigfloat);
242 #define XBIGFLOAT(x) XRECORD (x, bigfloat, Lisp_Bigfloat) 242 #define XBIGFLOAT(x) XRECORD (x, bigfloat, Lisp_Bigfloat)
243 #define wrap_bigfloat(p) wrap_record (p, bigfloat) 243 #define wrap_bigfloat(p) wrap_record (p, bigfloat)
244 #define BIGFLOATP(x) RECORDP (x, bigfloat) 244 #define BIGFLOATP(x) RECORDP (x, bigfloat)
245 #define CHECK_BIGFLOAT(x) CHECK_RECORD (x, bigfloat) 245 #define CHECK_BIGFLOAT(x) CHECK_RECORD (x, bigfloat)
246 #define CONCHECK_BIGFLOAT(x) CONCHECK_RECORD (x, bigfloat) 246 #define CONCHECK_BIGFLOAT(x) CONCHECK_RECORD (x, bigfloat)