Mercurial > hg > xemacs-beta

comparison src/opaque.c @ 5125:b5df3737028a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 01:58:04 -0600
parents 623d57b7fbe8 6ef8256a020a
children a9c41067dd88
comparison
equal deleted inserted replaced
5124:623d57b7fbe8 5125:b5df3737028a
90 } 90 }
91 91
92 /* This will not work correctly for opaques with subobjects! */ 92 /* This will not work correctly for opaques with subobjects! */
93 93
94 static int 94 static int
95 equal_opaque (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) 95 equal_opaque (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
96 int UNUSED (foldcase))
96 { 97 {
97 Bytecount size; 98 Bytecount size;
98 return ((size = XOPAQUE_SIZE (obj1)) == XOPAQUE_SIZE (obj2) && 99 return ((size = XOPAQUE_SIZE (obj1)) == XOPAQUE_SIZE (obj2) &&
99 !memcmp (XOPAQUE_DATA (obj1), XOPAQUE_DATA (obj2), size)); 100 !memcmp (XOPAQUE_DATA (obj1), XOPAQUE_DATA (obj2), size));
100 } 101 }
134 "#<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x%lx) 0x%lx>", 135 "#<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x%lx) 0x%lx>",
135 (long)(p->ptr), (unsigned long) p); 136 (long)(p->ptr), (unsigned long) p);
136 } 137 }
137 138
138 static int 139 static int
139 equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) 140 equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
141 int UNUSED (foldcase))
140 { 142 {
141 return (XOPAQUE_PTR (obj1)->ptr == XOPAQUE_PTR (obj2)->ptr); 143 return (XOPAQUE_PTR (obj1)->ptr == XOPAQUE_PTR (obj2)->ptr);
142 } 144 }
143 145
144 static Hashcode 146 static Hashcode