comparison src/alloc.c @ 858:2c12fe2da451

[xemacs-hg @ 2002-05-31 09:38:45 by michaels] 2002-05-28 Martin Köbele <mkoebele@mkoebele.de>, Jens Müller <jmueller@informatik.uni-tuebingen.de> * lrecord.h (lrecord_type): Add lrecord_type_weak_box to lrecord_type enumeration. * alloc.c (garbage_collect_1): Call prune_weak_boxes(). * lisp.h (struct weak_box): * data.c: (prune_weak_boxes): (mark_weak_box): (print_weak_box): (weak_box_equal): (weak_box_hash): (make_weak_box): (Fmake_weak_box): (Fweak_box_ref): (Fweak_boxp): (syms_of_data): (vars_of_data): Add implementation of weak boxes.
author michaels
date Fri, 31 May 2002 09:38:49 +0000
parents 2b6fa2618f76
children 804517e16990
comparison
equal deleted inserted replaced
857:b5278486690c 858:2c12fe2da451
3778 prune_weak_hash_tables (); 3778 prune_weak_hash_tables ();
3779 prune_weak_lists (); 3779 prune_weak_lists ();
3780 prune_specifiers (); 3780 prune_specifiers ();
3781 prune_syntax_tables (); 3781 prune_syntax_tables ();
3782 3782
3783 prune_weak_boxes ();
3784
3783 gc_sweep (); 3785 gc_sweep ();
3784 3786
3785 consing_since_gc = 0; 3787 consing_since_gc = 0;
3786 #ifndef DEBUG_XEMACS 3788 #ifndef DEBUG_XEMACS
3787 /* Allow you to set it really fucking low if you really want ... */ 3789 /* Allow you to set it really fucking low if you really want ... */