# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 936305571 0
# Node ID 5051c1d824fa83e7b88cc6cc56a428cb6c95a825
# Parent  170d491fe7038c2b4e545c6f90d1a49c2ef88c41
(Fhash_table_weakness): Replaces F_hash_table_weak.
(cmpfn_eql, sxhash): Use XFLOAT_DATA.

diff -r 170d491fe703 -r 5051c1d824fa src/fns.c
--- 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);