Mercurial > hg > xemacs-beta

comparison src/bytecode.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 13e3d7ae7155
children fdefd0186b75
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
1597 /* out */ 1597 /* out */
1598 Opbyte * const program, 1598 Opbyte * const program,
1599 int * const program_length, 1599 int * const program_length,
1600 int * const varbind_count) 1600 int * const varbind_count)
1601 { 1601 {
1602 size_t instructions_length = XSTRING_LENGTH (instructions); 1602 Bytecount instructions_length = XSTRING_LENGTH (instructions);
1603 size_t comfy_size = 2 * instructions_length; 1603 Element_Count comfy_size = (Element_Count) (2 * instructions_length);
1604 1604
1605 int * const icounts = alloca_array (int, comfy_size); 1605 int * const icounts = alloca_array (int, comfy_size);
1606 int * icounts_ptr = icounts; 1606 int * icounts_ptr = icounts;
1607 1607
1608 /* We maintain a table of jumps in the source code. */ 1608 /* We maintain a table of jumps in the source code. */
1994 internal_equal (f1->arglist, f2->arglist, depth + 1) && 1994 internal_equal (f1->arglist, f2->arglist, depth + 1) &&
1995 internal_equal (f1->doc_and_interactive, 1995 internal_equal (f1->doc_and_interactive,
1996 f2->doc_and_interactive, depth + 1)); 1996 f2->doc_and_interactive, depth + 1));
1997 } 1997 }
1998 1998
1999 static unsigned long 1999 static Hash_Code
2000 compiled_function_hash (Lisp_Object obj, int depth) 2000 compiled_function_hash (Lisp_Object obj, int depth)
2001 { 2001 {
2002 Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (obj); 2002 Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (obj);
2003 return HASH3 ((f->flags.documentationp << 2) + 2003 return HASH3 ((f->flags.documentationp << 2) +
2004 (f->flags.interactivep << 1) + 2004 (f->flags.interactivep << 1) +