Mercurial > hg > xemacs-beta
annotate tests/gutter-test.el @ 2775:05d62157e048
[xemacs-hg @ 2005-05-15 16:37:52 by crestani]
New allocator improvements
lisp/ChangeLog addition:
2005-05-15 Marcus Crestani <crestani@xemacs.org>
* diagnose.el: Lrecord and string data statistics.
* diagnose.el (show-memory-usage): Add output for additional
lrecord statistics (currently only string data).
* diagnose.el (show-lrecord-stats): New. Print detailed lrecord
statistics.
src/ChangeLog addition:
2005-05-15 Marcus Crestani <crestani@xemacs.org>
* alloc.c: Add string data statistics.
* alloc.c (dec_lrecord_stats): Use size of lrecord for statistics
and cons counter bookkeeping.
* alloc.c (finalize_string): Add string data statistics.
* alloc.c (make_uninit_string): Add string data statistics.
* alloc.c (make_string_nocopy): Add string data statistics.
* alloc.c (kkcc_marking): Move break out of #ifdef.
* alloc.c (Flrecord_stats): New. Collect lrecord statistics.
* alloc.c (Fgarbage_collect): Use Flrecord_stats.
* alloc.c (syms_of_alloc): Add Flrecord_stats.
* dumper.c: Fix hash table.
* dumper.c (pdump_make_hash): Fix hash table.
* dumper.c (pdump_get_mc_addr): Fix hash table.
* dumper.c (pdump_put_mc_addr): Fix hash table.
* dumper.c (pdump_reloc_one_mc): Fix indentation.
* dumper.c (pdump_load_finish): Add lrecord statistics
bookkeeping.
* lrecord.h: Add string data statistics.
* mc-alloc.c (remove_cell): Lrecord statistics, fix indentation.
* mule-charset.c: Marking through *_unicode_description not
needed.
* symbols.c (init_symbols_once_early): Bump lrecord statistics.
* window.c: Marking through line_start_cache not needed.
* xemacs.def.in.in: Fix typo.
| author | crestani |
|---|---|
| date | Sun, 15 May 2005 16:38:14 +0000 |
| parents | 42375619fa45 |
| children | 8a653fbe5c27 |
| rev | line source |
|---|---|
| 442 | 1 (setq str "Hello\nAgain") |
| 2 (setq str-ext (make-extent 0 5 str)) | |
| 398 | 3 (set-extent-begin-glyph |
| 442 | 4 str-ext |
| 398 | 5 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])) |
| 442 | 6 (set-extent-property str-ext 'mouse-face 'highlight) |
| 398 | 7 |
| 442 | 8 (setq str2 "Hello\n") |
| 9 (setq str2-ext (make-extent 0 1 str2)) | |
| 398 | 10 (set-extent-begin-glyph |
| 442 | 11 str2-ext |
| 398 | 12 (make-glyph |
| 13 [button :width 5 :height 1 | |
| 14 :face modeline-mousable | |
| 442 | 15 :callback (set-specifier bottom-gutter-visible-p '(str2)) |
| 398 | 16 :descriptor "ok" :selected t])) |
| 17 | |
| 442 | 18 (set-specifier bottom-gutter-height 'autodetect) |
| 19 (set-specifier bottom-gutter-border-width 2) | |
| 20 | |
| 21 (set-gutter-element | |
| 22 bottom-gutter 'str | |
| 23 (make-glyph | |
| 863 | 24 [layout :orientation vertical :margin-width 4 |
| 25 :vertically-justify center :horizontally-justify left | |
| 442 | 26 :items ([string :data "Fontifying glyphs.c..."] |
| 863 | 27 [layout :orientation horizontal |
| 442 | 28 :items |
| 29 ([progress-gauge :value 0 :pixel-height 24 | |
| 30 :pixel-width 250 :descriptor | |
| 31 "Progress"] | |
| 32 [button :pixel-height 24 | |
| 33 :descriptor " Stop " | |
| 34 :callback (quote quit)])])])) | |
| 35 | |
| 36 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t) | |
| 863 | 37 (set-gutter-element left-gutter 'str2 str2) |
| 38 (set-gutter-element-visible-p left-gutter-visible-p 'str2 t) | |
| 442 | 39 |