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, /*