Mercurial > hg > xemacs-beta
comparison src/specifier.h @ 5120:d1247f3cc363 ben-lisp-object
latest work on lisp-object workspace;
more changes eliminating LCRECORD in place of LISP_OBJECT;
now compiles and runs.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 28 Dec 2009 01:15:52 -0600 |
parents | e0db3c197671 |
children | b5df3737028a |
comparison
equal
deleted
inserted
replaced
5119:d877c14318b3 | 5120:d1247f3cc363 |
---|---|
218 int extra_data_size; | 218 int extra_data_size; |
219 }; | 219 }; |
220 | 220 |
221 struct Lisp_Specifier | 221 struct Lisp_Specifier |
222 { | 222 { |
223 struct LCRECORD_HEADER header; | 223 LISP_OBJECT_HEADER header; |
224 struct specifier_methods *methods; | 224 struct specifier_methods *methods; |
225 | 225 |
226 /* we keep a chained list of all current specifiers, for GC cleanup | 226 /* we keep a chained list of all current specifiers, for GC cleanup |
227 purposes. Do NOT mark through this, or specifiers will never | 227 purposes. Do NOT mark through this, or specifiers will never |
228 be GC'd. */ | 228 be GC'd. */ |
426 }; | 426 }; |
427 | 427 |
428 struct specifier_caching | 428 struct specifier_caching |
429 { | 429 { |
430 #ifdef NEW_GC | 430 #ifdef NEW_GC |
431 struct lrecord_header header; | 431 LISP_OBJECT_HEADER header; |
432 #endif /* NEW_GC */ | 432 #endif /* NEW_GC */ |
433 int offset_into_struct_window; | 433 int offset_into_struct_window; |
434 void (*value_changed_in_window) (Lisp_Object specifier, struct window *w, | 434 void (*value_changed_in_window) (Lisp_Object specifier, struct window *w, |
435 Lisp_Object oldval); | 435 Lisp_Object oldval); |
436 int offset_into_struct_frame; | 436 int offset_into_struct_frame; |