From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 2 Sep 1999 20:52:51 +0000 (+0000)
Subject: (Fhash_table_weakness): Replaces F_hash_table_weak.
X-Git-Tag: emacs-pretest-21.0.90~6947
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e84b1dea004703c0d39700fb10b306f648c5ac16;p=emacs.git

(Fhash_table_weakness): Replaces F_hash_table_weak.
(cmpfn_eql, sxhash): Use XFLOAT_DATA.
---

diff --git a/src/fns.c b/src/fns.c
index 37c71c25f6c..8294d3b38d8 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3430,7 +3430,7 @@ cmpfn_eql (h, key1, hash1, key2, hash2)
 {
   return (FLOATP (key1)
 	  && FLOATP (key2)
-	  && XFLOAT (key1)->data == XFLOAT (key2)->data);
+	  && XFLOAT_DATA (key1) == XFLOAT_DATA (key2));
 }
 
 
@@ -4151,8 +4151,8 @@ sxhash (obj, depth)
 
     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-test", Fhash_table_test, Shash_table_test, 1, 1, 0,
 }
 
   
-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 @@ syms_of_fns ()
   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);