Mercurial > hg > xemacs-beta

comparison src/chartab.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 190b164ddcac
children fdefd0186b75
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
119 return 0; 119 return 0;
120 120
121 return 1; 121 return 1;
122 } 122 }
123 123
124 static unsigned long 124 static Hash_Code
125 char_table_entry_hash (Lisp_Object obj, int depth) 125 char_table_entry_hash (Lisp_Object obj, int depth)
126 { 126 {
127 Lisp_Char_Table_Entry *cte = XCHAR_TABLE_ENTRY (obj); 127 Lisp_Char_Table_Entry *cte = XCHAR_TABLE_ENTRY (obj);
128 128
129 return internal_array_hash (cte->level2, 96, depth); 129 return internal_array_hash (cte->level2, 96, depth);
411 #endif /* MULE */ 411 #endif /* MULE */
412 412
413 return 1; 413 return 1;
414 } 414 }
415 415
416 static unsigned long 416 static Hash_Code
417 char_table_hash (Lisp_Object obj, int depth) 417 char_table_hash (Lisp_Object obj, int depth)
418 { 418 {
419 Lisp_Char_Table *ct = XCHAR_TABLE (obj); 419 Lisp_Char_Table *ct = XCHAR_TABLE (obj);
420 unsigned long hashval = internal_array_hash (ct->ascii, NUM_ASCII_CHARS, 420 Hash_Code hashval = internal_array_hash (ct->ascii, NUM_ASCII_CHARS,
421 depth); 421 depth);
422 #ifdef MULE 422 #ifdef MULE
423 hashval = HASH2 (hashval, 423 hashval = HASH2 (hashval,
424 internal_array_hash (ct->level1, NUM_LEADING_BYTES, depth)); 424 internal_array_hash (ct->level1, NUM_LEADING_BYTES, depth));
425 #endif /* MULE */ 425 #endif /* MULE */
426 return hashval; 426 return hashval;
1610 return object; 1610 return object;
1611 } 1611 }
1612 1612
1613 int 1613 int
1614 check_category_char (Emchar ch, Lisp_Object table, 1614 check_category_char (Emchar ch, Lisp_Object table,
1615 unsigned int designator, unsigned int not_p) 1615 int designator, int not_p)
1616 { 1616 {
1617 REGISTER Lisp_Object temp; 1617 REGISTER Lisp_Object temp;
1618 Lisp_Char_Table *ctbl; 1618 Lisp_Char_Table *ctbl;
1619 #ifdef ERROR_CHECK_TYPECHECK 1619 #ifdef ERROR_CHECK_TYPECHECK
1620 if (NILP (Fcategory_table_p (table))) 1620 if (NILP (Fcategory_table_p (table)))
1638 */ 1638 */
1639 (position, designator, buffer, category_table)) 1639 (position, designator, buffer, category_table))
1640 { 1640 {
1641 Lisp_Object ctbl; 1641 Lisp_Object ctbl;
1642 Emchar ch; 1642 Emchar ch;
1643 unsigned int des; 1643 int des;
1644 struct buffer *buf = decode_buffer (buffer, 0); 1644 struct buffer *buf = decode_buffer (buffer, 0);
1645 1645
1646 CHECK_INT (position); 1646 CHECK_INT (position);
1647 CHECK_CATEGORY_DESIGNATOR (designator); 1647 CHECK_CATEGORY_DESIGNATOR (designator);
1648 des = XCHAR (designator); 1648 des = XCHAR (designator);
1658 */ 1658 */
1659 (character, designator, category_table)) 1659 (character, designator, category_table))
1660 { 1660 {
1661 Lisp_Object ctbl; 1661 Lisp_Object ctbl;
1662 Emchar ch; 1662 Emchar ch;
1663 unsigned int des; 1663 int des;
1664 1664
1665 CHECK_CATEGORY_DESIGNATOR (designator); 1665 CHECK_CATEGORY_DESIGNATOR (designator);
1666 des = XCHAR (designator); 1666 des = XCHAR (designator);
1667 CHECK_CHAR (character); 1667 CHECK_CHAR (character);
1668 ch = XCHAR (character); 1668 ch = XCHAR (character);