Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents 697ef44129c6
children 11054d720c21
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
177 /* mod the value down to 32-bit range */ 177 /* mod the value down to 32-bit range */
178 /* #### change for 64-bit machines */ 178 /* #### change for 64-bit machines */
179 return (unsigned long) fmod (extract_float (obj), 4e9); 179 return (unsigned long) fmod (extract_float (obj), 4e9);
180 } 180 }
181 181
182 static const struct lrecord_description float_description[] = {
183 { XD_END }
184 };
185
182 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float, 186 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float,
183 mark_float, print_float, 0, float_equal, 187 mark_float, print_float, 0, float_equal,
184 float_hash, struct Lisp_Float); 188 float_hash, float_description,
189 struct Lisp_Float);
185 190
186 /* Extract a Lisp number as a `double', or signal an error. */ 191 /* Extract a Lisp number as a `double', or signal an error. */
187 192
188 double 193 double
189 extract_float (Lisp_Object num) 194 extract_float (Lisp_Object num)