Mercurial > hg > xemacs-beta
diff src/buffer.c @ 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 | 623d57b7fbe8 |
line wrap: on
line diff
--- a/src/buffer.c Sat Dec 26 21:22:48 2009 -0600 +++ b/src/buffer.c Mon Dec 28 01:15:52 2009 -0600 @@ -601,7 +601,7 @@ Lisp_Object obj = ALLOC_LISP_OBJECT (buffer); struct buffer *b = XBUFFER (obj); - COPY_LCRECORD (b, XBUFFER (Vbuffer_defaults)); + COPY_LISP_OBJECT (b, XBUFFER (Vbuffer_defaults)); return b; } @@ -1775,7 +1775,7 @@ struct overhead_stats *ovstats) { xzero (*stats); - stats->other += LISPOBJ_STORAGE_SIZE (b, sizeof (*b), ovstats); + stats->other += LISP_OBJECT_STORAGE_SIZE (b, sizeof (*b), ovstats); stats->text += compute_buffer_text_usage (b, ovstats); stats->markers += compute_buffer_marker_usage (b, ovstats); stats->extents += compute_buffer_extent_usage (b, ovstats); @@ -2139,8 +2139,7 @@ do \ { \ struct symbol_value_forward *I_hate_C = \ - alloc_lrecord_type (struct symbol_value_forward, \ - &lrecord_symbol_value_forward); \ + XSYMBOL_VALUE_FORWARD (ALLOC_LISP_OBJECT (symbol_value_forward)); \ /*mcpro ((Lisp_Object) I_hate_C);*/ \ \ I_hate_C->magic.value = &(buffer_local_flags.field_name); \ @@ -2215,7 +2214,7 @@ static void nuke_all_buffer_slots (struct buffer *b, Lisp_Object zap) { - ZERO_LCRECORD (b); + ZERO_LISP_OBJECT (b); b->extent_info = Qnil; b->indirect_children = Qnil;