Mercurial > hg > xemacs-beta

comparison src/number.h @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children b5df3737028a
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
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_LISP_OBJECT (bignum, Lisp_Bignum); 79 DECLARE_LISP_OBJECT (bignum, Lisp_Bignum);
158 /********************************** Ratios **********************************/ 158 /********************************** Ratios **********************************/
159 #ifdef HAVE_RATIO 159 #ifdef HAVE_RATIO
160 160
161 struct Lisp_Ratio 161 struct Lisp_Ratio
162 { 162 {
163 struct lrecord_header lheader; 163 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
164 ratio data; 164 ratio data;
165 }; 165 };
166 typedef struct Lisp_Ratio Lisp_Ratio; 166 typedef struct Lisp_Ratio Lisp_Ratio;
167 167
168 DECLARE_LISP_OBJECT (ratio, Lisp_Ratio); 168 DECLARE_LISP_OBJECT (ratio, Lisp_Ratio);
232 232
233 /******************************** Bigfloats *********************************/ 233 /******************************** Bigfloats *********************************/
234 #ifdef HAVE_BIGFLOAT 234 #ifdef HAVE_BIGFLOAT
235 struct Lisp_Bigfloat 235 struct Lisp_Bigfloat
236 { 236 {
237 struct lrecord_header lheader; 237 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
238 bigfloat bf; 238 bigfloat bf;
239 }; 239 };
240 typedef struct Lisp_Bigfloat Lisp_Bigfloat; 240 typedef struct Lisp_Bigfloat Lisp_Bigfloat;
241 241
242 DECLARE_LISP_OBJECT (bigfloat, Lisp_Bigfloat); 242 DECLARE_LISP_OBJECT (bigfloat, Lisp_Bigfloat);