Mercurial > hg > xemacs-beta

diff src/data.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
line wrap: on
line diff
--- a/src/data.c	Wed Aug 08 12:15:04 2001 +0000
+++ b/src/data.c	Mon Aug 13 04:46:48 2001 +0000
@@ -720,7 +720,8 @@
     }
   else if (BIT_VECTORP (array))
     {
-      if (idx >= bit_vector_length (XBIT_VECTOR (array))) goto range_error;
+      if (idx >= (EMACS_INT) bit_vector_length (XBIT_VECTOR (array)))
+	goto range_error;
       return make_int (bit_vector_bit (XBIT_VECTOR (array), idx));
     }
   else if (STRINGP (array))
@@ -774,7 +775,8 @@
     }
   else if (BIT_VECTORP (array))
     {
-      if (idx >= bit_vector_length (XBIT_VECTOR (array))) goto range_error;
+      if (idx >= (EMACS_INT) bit_vector_length (XBIT_VECTOR (array)))
+	goto range_error;
       CHECK_BIT (newval);
       set_bit_vector_bit (XBIT_VECTOR (array), idx, !ZEROP (newval));
     }
@@ -1609,12 +1611,12 @@
 	  internal_equal (w1->list, w2->list, depth + 1));
 }
 
-static unsigned long
+static Hash_Code
 weak_list_hash (Lisp_Object obj, int depth)
 {
   struct weak_list *w = XWEAK_LIST (obj);
 
-  return HASH2 ((unsigned long) w->type,
+  return HASH2 ((Hash_Code) w->type,
 		internal_hash (w->list, depth + 1));
 }