Mercurial > hg > xemacs-beta

comparison src/opaque.c @ 1575:e0ca0b9b1a35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-07-17 13:10:48 by crestani] 2003-06-11 Marcus Crestani <crestani@informatik.uni-tuebingen.de> * opaque.c: added opaque_ptr_description
author crestani
date Thu, 17 Jul 2003 13:10:49 +0000
parents e22b0213b713
children 04bc9d2f42c7
comparison
equal deleted inserted replaced
1574:c58ffeded728 1575:e0ca0b9b1a35
143 hash_opaque_ptr (Lisp_Object obj, int depth) 143 hash_opaque_ptr (Lisp_Object obj, int depth)
144 { 144 {
145 return (unsigned long) XOPAQUE_PTR (obj)->ptr; 145 return (unsigned long) XOPAQUE_PTR (obj)->ptr;
146 } 146 }
147 147
148 static const struct memory_description opaque_ptr_description[] = {
149 { XD_END }
150 };
151
148 DEFINE_LRECORD_IMPLEMENTATION ("opaque-ptr", opaque_ptr, 152 DEFINE_LRECORD_IMPLEMENTATION ("opaque-ptr", opaque_ptr,
149 0, /*dumpable-flag*/ 153 0, /*dumpable-flag*/
150 0, print_opaque_ptr, 0, 154 0, print_opaque_ptr, 0,
151 equal_opaque_ptr, hash_opaque_ptr, 155 equal_opaque_ptr, hash_opaque_ptr,
152 0, Lisp_Opaque_Ptr); 156 opaque_ptr_description, Lisp_Opaque_Ptr);
153 157
154 Lisp_Object 158 Lisp_Object
155 make_opaque_ptr (void *val) 159 make_opaque_ptr (void *val)
156 { 160 {
157 Lisp_Object res = alloc_managed_lcrecord (Vopaque_ptr_free_list); 161 Lisp_Object res = alloc_managed_lcrecord (Vopaque_ptr_free_list);