Mercurial > hg > xemacs-beta

comparison src/number.c @ 4962:e813cf16c015

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 05:29:05 -0600
parents bd169a24a554 6ef8256a020a
children 16112448d484
comparison
equal deleted inserted replaced
4961:b90f8cf474e0 4962:e813cf16c015
72 #else 72 #else
73 #define BIGNUM_FINALIZE 0 73 #define BIGNUM_FINALIZE 0
74 #endif 74 #endif
75 75
76 static int 76 static int
77 bignum_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) 77 bignum_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
78 int UNUSED (foldcase))
78 { 79 {
79 return bignum_eql (XBIGNUM_DATA (obj1), XBIGNUM_DATA (obj2)); 80 return bignum_eql (XBIGNUM_DATA (obj1), XBIGNUM_DATA (obj2));
80 } 81 }
81 82
82 static Hashcode 83 static Hashcode
164 #else 165 #else
165 #define RATIO_FINALIZE 0 166 #define RATIO_FINALIZE 0
166 #endif 167 #endif
167 168
168 static int 169 static int
169 ratio_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) 170 ratio_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
171 int UNUSED (foldcase))
170 { 172 {
171 return ratio_eql (XRATIO_DATA (obj1), XRATIO_DATA (obj2)); 173 return ratio_eql (XRATIO_DATA (obj1), XRATIO_DATA (obj2));
172 } 174 }
173 175
174 static Hashcode 176 static Hashcode
268 #else 270 #else
269 #define BIGFLOAT_FINALIZE 0 271 #define BIGFLOAT_FINALIZE 0
270 #endif 272 #endif
271 273
272 static int 274 static int
273 bigfloat_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) 275 bigfloat_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
276 int UNUSED (foldcase))
274 { 277 {
275 return bigfloat_eql (XBIGFLOAT_DATA (obj1), XBIGFLOAT_DATA (obj2)); 278 return bigfloat_eql (XBIGFLOAT_DATA (obj1), XBIGFLOAT_DATA (obj2));
276 } 279 }
277 280
278 static Hashcode 281 static Hashcode