Mercurial > emacs

changeset 25495:5051c1d824fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fhash_table_weakness): Replaces F_hash_table_weak. (cmpfn_eql, sxhash): Use XFLOAT_DATA.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 02 Sep 1999 20:52:51 +0000
parents 170d491fe703
children c19107a5df88
files src/fns.c
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Thu Sep 02 20:52:48 1999 +0000
+++ b/src/fns.c	Thu Sep 02 20:52:51 1999 +0000
@@ -3430,7 +3430,7 @@
 {
   return (FLOATP (key1)
 	  && FLOATP (key2)
-	  && XFLOAT (key1)->data == XFLOAT (key2)->data);
+	  && XFLOAT_DATA (key1) == XFLOAT_DATA (key2));
 }
 
 
@@ -4151,8 +4151,8 @@
 
     case Lisp_Float:
       {
-	unsigned char *p = (unsigned char *) &XFLOAT (obj)->data;
-	unsigned char *e = p + sizeof XFLOAT (obj)->data;
+	unsigned char *p = (unsigned char *) &XFLOAT_DATA (obj);
+	unsigned char *e = p + sizeof XFLOAT_DATA (obj);
 	for (hash = 0; p < e; ++p)
 	  hash = SXHASH_COMBINE (hash, *p);
 	break;
@@ -4416,7 +4416,8 @@
 }
 
   
-DEFUN ("hash-table-weak", Fhash_table_weak, Shash_table_weak, 1, 1, 0,
+DEFUN ("hash-table-weakness", Fhash_table_weakness, Shash_table_weakness,
+       1, 1, 0,
   "Return the weakness of TABLE.")
   (table)
        Lisp_Object table;
@@ -4569,7 +4570,7 @@
   defsubr (&Shash_table_rehash_threshold);
   defsubr (&Shash_table_size);
   defsubr (&Shash_table_test);
-  defsubr (&Shash_table_weak);
+  defsubr (&Shash_table_weakness);
   defsubr (&Shash_table_p);
   defsubr (&Sclrhash);
   defsubr (&Sgethash);