Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 647:b39c14581166

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-08-13 04:45:47 by ben] removal of unsigned, size_t, etc.
author ben
date Mon, 13 Aug 2001 04:46:48 +0000
parents 023b83f4e54b
children fdefd0186b75
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
173 float_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) 173 float_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
174 { 174 {
175 return (extract_float (obj1) == extract_float (obj2)); 175 return (extract_float (obj1) == extract_float (obj2));
176 } 176 }
177 177
178 static unsigned long 178 static Hash_Code
179 float_hash (Lisp_Object obj, int depth) 179 float_hash (Lisp_Object obj, int depth)
180 { 180 {
181 /* mod the value down to 32-bit range */ 181 /* mod the value down to 32-bit range */
182 /* #### change for 64-bit machines */ 182 /* #### change for 64-bit machines */
183 return (unsigned long) fmod (extract_float (obj), 4e9); 183 return (unsigned long) fmod (extract_float (obj), 4e9);