Mercurial > hg > xemacs-beta

comparison src/opaque.c @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents a86b2b5e0111
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
122 print_opaque_ptr (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 122 print_opaque_ptr (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
123 { 123 {
124 const Lisp_Opaque_Ptr *p = XOPAQUE_PTR (obj); 124 const Lisp_Opaque_Ptr *p = XOPAQUE_PTR (obj);
125 char buf[200]; 125 char buf[200];
126 126
127 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (opaque_ptr, adr=0x%lx) 0x%lx>", 127 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x%lx) 0x%lx>",
128 (long)(p->ptr), (unsigned long) p); 128 (long)(p->ptr), (unsigned long) p);
129 write_c_string (buf, printcharfun); 129 write_c_string (buf, printcharfun);
130 } 130 }
131 131
132 static int 132 static int
139 hash_opaque_ptr (Lisp_Object obj, int depth) 139 hash_opaque_ptr (Lisp_Object obj, int depth)
140 { 140 {
141 return (unsigned long) XOPAQUE_PTR (obj)->ptr; 141 return (unsigned long) XOPAQUE_PTR (obj)->ptr;
142 } 142 }
143 143
144 DEFINE_LRECORD_IMPLEMENTATION ("opaque_ptr", opaque_ptr, 144 DEFINE_LRECORD_IMPLEMENTATION ("opaque-ptr", opaque_ptr,
145 0, print_opaque_ptr, 0, 145 0, print_opaque_ptr, 0,
146 equal_opaque_ptr, hash_opaque_ptr, 0, 146 equal_opaque_ptr, hash_opaque_ptr, 0,
147 Lisp_Opaque_Ptr); 147 Lisp_Opaque_Ptr);
148 148
149 Lisp_Object 149 Lisp_Object