Mercurial > hg > xemacs-beta
comparison src/mule-charset.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 | d877c14318b3 |
children | 623d57b7fbe8 |
comparison
equal
deleted
inserted
replaced
5119:d877c14318b3 | 5120:d1247f3cc363 |
---|---|
999 compute_charset_usage (Lisp_Object charset, struct charset_stats *stats, | 999 compute_charset_usage (Lisp_Object charset, struct charset_stats *stats, |
1000 struct overhead_stats *ovstats) | 1000 struct overhead_stats *ovstats) |
1001 { | 1001 { |
1002 struct Lisp_Charset *c = XCHARSET (charset); | 1002 struct Lisp_Charset *c = XCHARSET (charset); |
1003 xzero (*stats); | 1003 xzero (*stats); |
1004 stats->other += LISPOBJ_STORAGE_SIZE (c, sizeof (*c), ovstats); | 1004 stats->other += LISP_OBJECT_STORAGE_SIZE (c, sizeof (*c), ovstats); |
1005 stats->from_unicode += compute_from_unicode_table_size (charset, ovstats); | 1005 stats->from_unicode += compute_from_unicode_table_size (charset, ovstats); |
1006 stats->to_unicode += compute_to_unicode_table_size (charset, ovstats); | 1006 stats->to_unicode += compute_to_unicode_table_size (charset, ovstats); |
1007 } | 1007 } |
1008 | 1008 |
1009 DEFUN ("charset-memory-usage", Fcharset_memory_usage, 1, 1, 0, /* | 1009 DEFUN ("charset-memory-usage", Fcharset_memory_usage, 1, 1, 0, /* |