Mercurial > hg > xemacs-beta
annotate src/blocktype.h @ 1598:ac1be85b4a5f
[xemacs-hg @ 2003-07-31 13:32:24 by crestani]
2003-07-29 Marcus Crestani <crestani@informatik.uni-tuebingen.de>
Markus Kaltenbach <makalten@informatik.uni-tuebingen.de>
* README.kkcc: Aligned to the changes.
* alloc.c: Implemented the kkcc_gc_stack.
(kkcc_gc_stack_init):
(kkcc_gc_stack_free):
(kkcc_gc_stack_realloc):
(kkcc_gc_stack_full):
(kkcc_gc_stack_empty):
(kkcc_gc_stack_push):
(kkcc_gc_stack_pop):
(kkcc_gc_stack_push_lisp_object):
(mark_object_maybe_checking_free): Push objects on kkcc stack instead
of marking.
(mark_struct_contents): Push objects on kkcc stack instead of marking.
(kkcc_marking): KKCC mark algorithm using the kkcc_gc_stack.
(mark_object): Removed KKCC ifdefs.
(garbage_collect_1): Push objects on kkcc stack instead of marking.
* data.c: Added XD_FLAG_NO_KKCC to ephemeron_description and to
weak_list_description.
* data.c (finish_marking_weak_lists): Push objects on kkcc stack
instead of marking.
(continue_marking_ephemerons): Push objects on kkcc stack instead
of marking.
(finish_marking_ephemerons): Push objects on kkcc stack instead
of marking.
* elhash.c (finish_marking_weak_hash_tables): Push objects on kkcc
stack instead of marking.
* eval.c: Added XD_FLAG_NO_KKCC to subr_description.
* lisp.h: Added prototype for kkcc_gc_stack_push_lisp_object.
* profile.c (mark_profiling_info_maphash): Push keys on kkcc stack
instead of marking.
| author | crestani |
|---|---|
| date | Thu, 31 Jul 2003 13:32:26 +0000 |
| parents | fdefd0186b75 |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 428 | 1 /* Fixed-size block allocator -- include file. |
| 2 Copyright (C) 1994 Free Software Foundation, Inc. | |
| 3 | |
| 4 This file is part of XEmacs. | |
| 5 | |
| 6 XEmacs is free software; you can redistribute it and/or modify it | |
| 7 under the terms of the GNU General Public License as published by the | |
| 8 Free Software Foundation; either version 2, or (at your option) any | |
| 9 later version. | |
| 10 | |
| 11 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 14 for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
| 17 along with XEmacs; see the file COPYING. If not, write to | |
| 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 19 Boston, MA 02111-1307, USA. | |
| 20 */ | |
| 21 | |
| 22 /* Synched up with: Not in FSF. */ | |
| 23 | |
| 24 /* Authorship: | |
| 25 | |
| 26 Ben Wing: December 1994, for 19.12. | |
| 27 */ | |
| 28 | |
| 440 | 29 #ifndef INCLUDED_blocktype_h_ |
| 30 #define INCLUDED_blocktype_h_ | |
| 428 | 31 |
| 32 #define Blocktype_declare(type) \ | |
| 33 type *free; \ | |
| 665 | 34 Bytecount elsize; \ |
| 428 | 35 type *tempel |
| 36 | |
| 665 | 37 void *Blocktype_newf (Bytecount elsize); |
| 428 | 38 void Blocktype_allocf (void *b); |
| 39 void Blocktype_free (void *bbb, void *el); | |
| 40 | |
| 41 #define Blocktype_new(structype) \ | |
| 42 (structype *) Blocktype_newf (sizeof(*(((structype *) NULL)->free))) | |
| 43 #define Blocktype_alloc(b) (Blocktype_allocf (b), (b)->tempel) | |
| 44 | |
| 440 | 45 #endif /* INCLUDED_blocktype_h_ */ |