Mercurial > hg > xemacs-beta

comparison src/opaque.c @ 5934:e2fae7783046 cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lots of use of EMACS_INT, a few others, to eliminate all pointer truncation warnings
author Henry Thompson <ht@markup.co.uk>
date Sat, 12 Dec 2015 19:08:46 +0000
parents 308d34e9f07d
children
comparison
equal deleted inserted replaced
5933:c1e8f3294298 5934:e2fae7783046
129 const Lisp_Opaque_Ptr *p = XOPAQUE_PTR (obj); 129 const Lisp_Opaque_Ptr *p = XOPAQUE_PTR (obj);
130 130
131 write_fmt_string 131 write_fmt_string
132 (printcharfun, 132 (printcharfun,
133 "#<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x%lx) 0x%x>", 133 "#<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x%lx) 0x%x>",
134 (long)(p->ptr), LISP_OBJECT_UID (obj)); 134 (EMACS_INT)(p->ptr), LISP_OBJECT_UID (obj));
135 } 135 }
136 136
137 static int 137 static int
138 equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth), 138 equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
139 int UNUSED (foldcase)) 139 int UNUSED (foldcase))