xemacs-beta: src/gc.c annotate

annotate src/gc.c @ 5707:5fd1b9a95531

Improve description of `mark-defun'.

author	Stephen J. Turnbull <stephen@xemacs.org>
date	Fri, 28 Dec 2012 23:11:32 +0900
parents	308d34e9f07d
children

rev	line source
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1 /* New incremental garbage collector for XEmacs.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2 Copyright (C) 2005 Marcus Crestani.
4934 714f7c9fabb1 make it easier to debug staticpro crashes. Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	3 Copyright (C) 2010 Ben Wing.
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	4
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	5 This file is part of XEmacs.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	6
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5238 diff changeset	7 XEmacs is free software: you can redistribute it and/or modify it
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	8 under the terms of the GNU General Public License as published by the
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5238 diff changeset	9 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5238 diff changeset	10 option) any later version.
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	11
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	15 for more details.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	16
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	17 You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5238 diff changeset	18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	19
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	20 /* Synched up with: Not in FSF. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	21
5238 2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	22 /*
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	23 Garbage Collectors in XEmacs
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	24
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	25 Currently, XEmacs comes with two garbage collectors:
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	26
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	27 - The "old garbage collector": a simple mark and sweep collector,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	28 its implementation is mainly spread out over gc.c and alloc.c.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	29 It is used by the default configuration or if you configure
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	30 `--with-newgc=no'.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	31
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	32 - The "new garbage collector": an incremental mark and sweep collector,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	33 its implementation is in gc.c. It is used if you configure
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	34 `--with-newgc'. It comes with a new allocator, see mc-alloc.c, and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	35 with the KKCC mark algorith, see below.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	36
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	37 Additionally, the old garbage collectors comes with two mark algorithms:
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	38
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	39 - The "recursive mark algorithm" marks live objects by recursively
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	40 calling mark_* functions on live objects. It is the default mark
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	41 algorithm of the old garbage collector.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	42
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	43 - The "KKCC mark algorithm" uses an explicit stack that to keep
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	44 track of the current progress of traversal and uses memory layout
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	45 descriptions (that are also used by the portable dumper) instead
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	46 of the mark_* functions. The old garbage collector uses it if
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	47 you configure `--with-kkcc'. It is the default and only mark
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	48 algorithm of the new garbage collector.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	49
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	50
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	51 The New Incremental Garbage Collector
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	52
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	53 An incremental garbage collector keeps garbage collection pause
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	54 times short by interleaving small amounts of collection work with
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	55 program execution, it does that by instrumenting write barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	56 algorithms that essentially allow interrupting the mark phase.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	57
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	58
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	59 Write Barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	60
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	61 A write barrier is the most important prerequisite for fancy
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	62 garbage collection techniques. We implement a "Virtual Dirty Bit
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	63 (short: vdb) Write Barrier" that makes uses of the operating
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	64 system's memory-protection mechanisms: The write barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	65 write-protects memory pages containing heap objects. If the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	66 mutator tries to modify these objects by writing into the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	67 write-protected page, the operating system generates a fault. The
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	68 write barrier catches this fault, reads out the error-causing
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	69 address and can thus identify the updated object and page.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	70
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	71 Not all environments and operating systems provide the mechanism to
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	72 write-protect memory, catch resulting write faults, and read out
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	73 the faulting address. But luckily, most of today's operating
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	74 systems provide the features needed for the write-barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	75 implementation. Currently, XEmacs includes write-barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	76 implementations for the following platforms:
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	77
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	78 - POSIX-compliant platforms like up-to-date UNIX, Linux, Solaris,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	79 etc. use the system call `mprotect' for memory protection,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	80 `sigaction' for signal handling and get the faulting address from
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	81 `struct siginfo'. See file vdb-posix.c.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	82
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	83 - Mach-based systems like Mac OS X use "Mach Exception Handlers".
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	84 See file vdb-mach.c.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	85
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	86 - Windows systems like native Windows and Cygwin use Microsoft's
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	87 so-called "Structured Exception Handling". See file vdb-win32.c.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	88
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	89 The configure script determines which write barrier implementation
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	90 to use for a system. If no write barrier implementation is working
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	91 on that system, a fall-back "fake" implementation is used: This
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	92 implementation simply turns of the incremental write barrier at
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	93 runtime and does not allow any incremental collection (see
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	94 vdb-fake.c). The garbage collector then acts like a traditional
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	95 mark-and-sweep garbage collector. Generally, the incremental
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	96 garbage collector can be turned of at runtime by the user or by
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	97 applications, see below.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	98
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	99
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	100 Memory Protection and Object Layout
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	101
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	102 Implementations of a memory-protection mechanism may restrict the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	103 size and the alignment of the memory region to be on page-size
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	104 boundaries. All objects subject to be covered by the write barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	105 have to be allocated on logical memory pages, so that they meet the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	106 requirement to be write-protected. The new allocator mc-alloc is
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	107 aware of a system page size---it allocates all Lisp objects on
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	108 logical memory pages and is therefore defaulted to on when the new
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	109 garbage collector is enabled.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	110
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	111 Unfortunately, the Lisp object layout that works with the old
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	112 collector leads to holes in the write barrier: Not all data
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	113 structures containing pointers to Lisp objects are allocated on the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	114 Lisp heap. Some Lisp objects do not carry all their information in
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	115 the object itself. External parts are kept in separately allocated
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	116 memory blocks that are not managed by the new Lisp allocator.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	117 Examples for these objects are hash tables and dynamic arrays, two
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	118 objects that can dynamically grow and shrink. The separate memory
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	119 blocks are not guaranteed to reside on page boundaries, and thus
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	120 cannot be watched by the write barrier.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	121
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	122 Moreover, the separate parts can contain live pointers to other Lisp
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	123 objects. These pointers are not covered by the write barrier and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	124 modifications by the client during garbage collection do escape. In
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	125 this case, the client changes the connectivity of the reachability
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	126 graph behind the collector's back, which eventually leads to
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	127 erroneous collection of live objects. To solve this problem, I
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	128 transformed the separately allocated parts to fully qualified Lisp
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	129 objects that are managed by the allocator and thus are covered by
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	130 the write barrier. This also removes a lot of special allocation
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	131 and removal code for the out-sourced parts. Generally, allocating
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	132 all data structures that contain pointers to Lisp objects on one
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	133 heap makes the whole memory layout more consistent.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	134
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	135
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	136 Debugging
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	137
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	138 The virtual-dirty-bit write barrier provokes signals on purpose,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	139 namely SIGSEGV and SIGBUS. When debugging XEmacs with this write
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	140 barrier running, the debugger always breaks whenever a signal
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	141 occurs. This behavior is generally desired: A debugger has to break
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	142 on signals, to allow the user to examine the cause of the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	143 signal---especially for illegal memory access, which is a common
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	144 programming error. But the debugger should not break for signals
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	145 caused by the write barrier. Therefore, most debuggers provide the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	146 ability to turn of their fault handling for specific signals. The
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	147 configure script generates the debugger's settings .gdbinit and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	148 .dbxrc, adding code to turn of signal handling for SIGSEGV and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	149 SIGBUS, if the new garbage collector is used.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	150
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	151 But what happens if a bug in XEmacs causes an illegal memory access?
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	152 To maintain basic debugging abilities, we use another signal: First,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	153 the write-barrier signal handler has to determine if the current
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	154 error situation is caused by the write-barrier memory protection or
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	155 not. Therefore, the signal handler checks if the faulting address
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	156 has been write-protected before. If it has not, the fault is caused
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	157 by a bug; the debugger has to break in this situation. To achieve
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	158 this, the signal handler raises SIGABRT to abort the program. Since
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	159 SIGABRT is not masked out by the debugger, XEmacs aborts and allows
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	160 the user to examine the problem.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	161
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	162
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	163 Incremental Garbage Collection
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	164
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	165 The new garbage collector is still a mark-and-sweep collector, but
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	166 now the mark phase no longer runs in one atomic action, it is
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	167 interleaved with program execution. The incremental garbage
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	168 collector needs an explicit mark stack to store the state of the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	169 incremental traversal: the KKCC mark algorithm is a prerequisite and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	170 is enabled by default when the new garbage collector is on.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	171
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	172 Garbage collection is invoked as before: After `gc-cons-threshold'
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	173 bytes have been allocated since the last garbage collection (or
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	174 after `gc-cons-percentage' percentage of the total amount of memory
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	175 used for Lisp data has been allocated since the last garbage
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	176 collection) a collection starts. After some initialization, the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	177 marking begins.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	178
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	179 The variable `gc-incremental-traversal-threshold' contains how many
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	180 steps of incremental work have to be executed in one incremental
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	181 traversal cycle. After that many steps have been made, the mark
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	182 phase is interrupted and the client resumes. Now, the Lisp memory
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	183 is write-protected and the write barrier records modified objects.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	184 Incremental traversal is resumed after
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	185 `gc-cons-incremental-threshold' bytes have been allocated since the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	186 interruption of garbage collection. Then, the objects recorded by
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	187 the write-barrier have to be re-examined by the traversal, i.e. they
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	188 are re-pushed onto the mark stack and processed again. Once the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	189 mark stack is empty, the traversal is done.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	190
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	191 A full incremental collection is slightly slower than a full garbage
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	192 collection before: There is an overhead for storing pointers into
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	193 objects when the write barrier is running, and an overhead for
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	194 repeated traversal of modified objects. However, the new
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	195 incremental garbage collector reduces client pause times to
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	196 one-third, so even when a garbage collection is running, XEmacs
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	197 stays reactive.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	198
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	199
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	200 Tricolor Marking: White, Black, and Grey Mark Bits
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	201
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	202 Garbage collection traverses the graph of reachable objects and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	203 colors them. The objects subject to garbage collection are white at
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	204 the beginning. By the end of the collection, those that will be
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	205 retained are colored black. When there are no reachable objects left
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	206 to blacken, the traversal of live data structures is finished. In
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	207 traditional mark-and-sweep collectors, this black and white coloring
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	208 is sufficient.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	209
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	210 In an incremental collector, the intermediate state of the traversal
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	211 is im- portant because of ongoing mutator activity: the mutator
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	212 cannot be allowed to change things in such way that the collector
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	213 will fail to find all reachable objects. To understand and prevent
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	214 such interactions between the mutator and the collector, it is
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	215 useful to introduce a third color, grey.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	216
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	217 Grey objects have been reached by the traversal, but its descendants
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	218 may not have been. White objects are changed to grey when they are
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	219 reached by the traversal. Grey objects mark the current state of the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	220 traversal: traversal pro- ceeds by processing the grey objects. The
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	221 KKCC mark stack holds all the currently grey-colored objects.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	222 Processing a grey object means following its outgoing pointers, and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	223 coloring it black afterwards.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	224
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	225 Intuitively, the traversal proceeds in a wavefront of grey objects
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	226 that separates the unreached objects, which are colored white, from
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	227 the already processed black objects.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	228
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	229 The allocator takes care of storing the mark bits: The mark bits are
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	230 kept in a tree like structure, for details see mc-alloc.c.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	231
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	232
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	233 Internal States of the Incremental Garbage Collector
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	234
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	235 To keep track of its current state, the collector holds it's current
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	236 phase in the global `gc_state' variable. A collector phase is one
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	237 of the following:
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	238
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	239 NONE No incremental or full collection is currently running.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	240
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	241 INIT_GC The collector prepares for a new collection, e.g. sets some
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	242 global variables.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	243
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	244 PUSH_ROOT_SET The collector pushes the root set on the mark stack
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	245 to start the traversal of live objects.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	246
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	247 MARK The traversal of live objects colors the reachable objects
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	248 white, grey, or black, according to their lifeness. The mark
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	249 phase can be interrupted by the incremental collection algorithm:
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	250 Before the client (i.e. the non collector part of XEmacs) resumes,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	251 the write barrier has to be installed so that the collector knows
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	252 what objects get modified during the collector's pause.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	253 Installing a write barrier means protecting pages that only
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	254 contain black objects and recording write access to these objects.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	255 Pages with white or grey objects do not need to be protected,
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	256 since these pages are due to marking anyways when the collector
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	257 resumes. Once the collector resumes, it has to re-scan all
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	258 objects that have been modified during the collector pause and
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	259 have been caught by the write barrier. The mark phase is done when
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	260 there are no more grey objects on the heap, i.e. the KKCC mark stack
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	261 is empty.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	262
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	263 REPUSH_ROOT_SET After the mark phase is done, the collector has to
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	264 traverse the root set pointers again, since modifications to the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	265 objects in the root set can not all be covered by the write barrier
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	266 (e.g. root set objects that are on the call stack). Therefore, the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	267 collector has to traverse the root set again without interruption.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	268
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	269 FINISH_MARK After the mark phase is finished, some objects with
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	270 special liveness semantics have to be treated separately, e.g.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	271 ephemerons and the various flavors of weak objects.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	272
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	273 FINALIZE The collector registers all objects that have finalizers
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	274 for finalization. Finalizations happens asynchronously sometimes
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	275 after the collection has finished.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	276
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	277 SWEEP The allocator scans the entire heap and frees all white marked
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	278 objects. The freed memory is recycled and can be re-used for future
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	279 allocations. The sweep phase is carried out atomically.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	280
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	281 FINISH_GC The collector cleans up after the garbage collection by
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	282 resetting some global variables.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	283
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	284
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	285 Lisp Interface
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	286
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	287 The new garbage collector can be accessed directly from Emacs Lisp.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	288 Basically, two functions invoke the garbage collector:
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	289
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	290 (gc-full) starts a full garbage collection. If an incremental
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	291 garbage collection is already running, it is finished without
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	292 further interruption. This function guarantees that unused
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	293 objects have been freed when it returns.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	294
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	295 (gc-incremental) starts an incremental garbage collection. If an
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	296 incremental garbage collection is already running, the next cycle
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	297 of incremental traversal is started. The garbage collection is
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	298 finished if the traversal completes. Note that this function does
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	299 not necessarily free any memory. It only guarantees that the
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	300 traversal of the heap makes progress.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	301
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	302 The old garbage collector uses the function (garbage-collect) to
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	303 invoke a garbage collection. This function is still in use by some
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	304 applications that explicitly want to invoke a garbage collection.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	305 Since these applications may expect that unused memory has really
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	306 been freed when (garbage-collect) returns, it maps to (gc-full).
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	307
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	308 The new garbage collector is highly customizable during runtime; it
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	309 can even be switched back to the traditional mark-and-sweep garbage
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	310 collector: The variable allow-incremental-gc controls whether
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	311 garbage collections may be interrupted or if they have to be carried
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	312 out in one atomic action. Setting allow-incremental-gc to nil
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	313 prevents incremental garbage collection, and the garbage collector
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	314 then only does full collects, even if (gc-incremental) is called.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	315 Non-nil allows incremental garbage collection.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	316
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	317 This way applications can freely decide what garbage collection
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	318 algorithm is best for the upcoming memory usage. How frequently a
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	319 garbage collection occurs and how much traversal work is done in one
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	320 incremental cycle can also be modified during runtime. See
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	321
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	322 M-x customize RET alloc RET
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	323
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	324 for an overview of all settings.
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	325
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	326
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	327 More Information
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	328
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	329 More details can be found in
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	330 http://crestani.de/xemacs/pdf/thesis-newgc.pdf .
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	331
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	332 */
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	333
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	334 #include <config.h>
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	335 #include "lisp.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	336
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	337 #include "backtrace.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	338 #include "buffer.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	339 #include "bytecode.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	340 #include "chartab.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	341 #include "console-stream.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	342 #include "device.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	343 #include "elhash.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	344 #include "events.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	345 #include "extents-impl.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	346 #include "file-coding.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	347 #include "frame-impl.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	348 #include "gc.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	349 #include "glyphs.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	350 #include "opaque.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	351 #include "lrecord.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	352 #include "lstream.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	353 #include "process.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	354 #include "profile.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	355 #include "redisplay.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	356 #include "specifier.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	357 #include "sysfile.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	358 #include "sysdep.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	359 #include "window.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	360 #include "vdb.h"
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	361
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	362
5238 2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	363 /* Number of bytes of consing since gc before a full gc should happen. */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	364 #define GC_CONS_THRESHOLD 2000000
5238 2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	365
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	366 /* Number of bytes of consing since gc before another cycle of the gc
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	367 should happen in incremental mode. */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	368 #define GC_CONS_INCREMENTAL_THRESHOLD 200000
5238 2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	369
2cc24c69446c Document the new allocator and the new garbage collector in gc.c and mc-alloc.c. Marcus Crestani <crestani@informatik.uni-tuebingen.de> parents: 5191 diff changeset	370 /* Number of elements marked in one cycle of incremental GC. */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	371 #define GC_INCREMENTAL_TRAVERSAL_THRESHOLD 100000
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	372
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	373 /* Number of bytes of consing done since the last GC. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	374 EMACS_INT consing_since_gc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	375
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	376 /* Number of bytes of consing done since startup. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	377 EMACS_UINT total_consing;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	378
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	379 /* Number of bytes of current allocated heap objects. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	380 EMACS_INT total_gc_usage;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	381
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	382 /* If the above is set. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	383 int total_gc_usage_set;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	384
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	385 /* Number of bytes of consing since gc before another gc should be done. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	386 EMACS_INT gc_cons_threshold;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	387
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	388 /* Nonzero during gc */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	389 int gc_in_progress;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	390
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	391 /* Percentage of consing of total data size before another GC. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	392 EMACS_INT gc_cons_percentage;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	393
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	394 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	395 /* Number of bytes of consing since gc before another cycle of the gc
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	396 should be done in incremental mode. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	397 EMACS_INT gc_cons_incremental_threshold;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	398
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	399 /* Number of elements marked in one cycle of incremental GC. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	400 EMACS_INT gc_incremental_traversal_threshold;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	401
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	402 /* Nonzero during write barrier */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	403 int write_barrier_enabled;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	404 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	405
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	406
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	407
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	408 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	409 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	410 /* Incremental State and Statistics */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	411 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	412
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	413 enum gc_phase
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	414 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	415 NONE,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	416 INIT_GC,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	417 PUSH_ROOT_SET,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	418 MARK,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	419 REPUSH_ROOT_SET,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	420 FINISH_MARK,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	421 FINALIZE,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	422 SWEEP,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	423 FINISH_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	424 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	425
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	426 #ifndef ERROR_CHECK_GC
4124 9a633a00c3f2 [xemacs-hg @ 2007-08-17 08:08:05 by crestani] crestani parents: 4115 diff changeset	427 typedef struct gc_state_type
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	428 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	429 enum gc_phase phase;
4124 9a633a00c3f2 [xemacs-hg @ 2007-08-17 08:08:05 by crestani] crestani parents: 4115 diff changeset	430 } gc_state_type;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	431 #else /* ERROR_CHECK_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	432 enum gc_stat_id
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	433 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	434 GC_STAT_TOTAL,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	435 GC_STAT_IN_LAST_GC,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	436 GC_STAT_IN_THIS_GC,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	437 GC_STAT_IN_LAST_CYCLE,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	438 GC_STAT_IN_THIS_CYCLE,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	439 GC_STAT_COUNT /* has to be last */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	440 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	441
4124 9a633a00c3f2 [xemacs-hg @ 2007-08-17 08:08:05 by crestani] crestani parents: 4115 diff changeset	442 typedef struct gc_state_type
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	443 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	444 enum gc_phase phase;
3313 509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	445 double n_gc[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	446 double n_cycles[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	447 double enqueued[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	448 double dequeued[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	449 double repushed[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	450 double enqueued2[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	451 double dequeued2[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	452 double finalized[GC_STAT_COUNT];
509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	453 double freed[GC_STAT_COUNT];
4124 9a633a00c3f2 [xemacs-hg @ 2007-08-17 08:08:05 by crestani] crestani parents: 4115 diff changeset	454 } gc_state_type;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	455 #endif /* ERROR_CHECK_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	456
4124 9a633a00c3f2 [xemacs-hg @ 2007-08-17 08:08:05 by crestani] crestani parents: 4115 diff changeset	457 gc_state_type gc_state;
9a633a00c3f2 [xemacs-hg @ 2007-08-17 08:08:05 by crestani] crestani parents: 4115 diff changeset	458
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	459 #define GC_PHASE gc_state.phase
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	460 #define GC_SET_PHASE(p) GC_PHASE = p
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	461
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	462 #ifdef ERROR_CHECK_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	463 # define GC_STAT_START_NEW_GC gc_stat_start_new_gc ()
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	464 # define GC_STAT_RESUME_GC gc_stat_resume_gc ()
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	465
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	466 #define GC_STAT_TICK(STAT) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	467 gc_state.STAT[GC_STAT_TOTAL]++; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	468 gc_state.STAT[GC_STAT_IN_THIS_GC]++; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	469 gc_state.STAT[GC_STAT_IN_THIS_CYCLE]++
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	470
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	471 # define GC_STAT_ENQUEUED \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	472 if (GC_PHASE == REPUSH_ROOT_SET) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	473 { \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	474 GC_STAT_TICK (enqueued2); \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	475 } \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	476 else \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	477 { \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	478 GC_STAT_TICK (enqueued); \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	479 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	480
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	481 # define GC_STAT_DEQUEUED \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	482 if (gc_state.phase == REPUSH_ROOT_SET) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	483 { \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	484 GC_STAT_TICK (dequeued2); \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	485 } \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	486 else \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	487 { \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	488 GC_STAT_TICK (dequeued); \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	489 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	490 # define GC_STAT_REPUSHED GC_STAT_TICK (repushed)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	491
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	492 #define GC_STAT_RESUME(stat) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	493 gc_state.stat[GC_STAT_IN_LAST_CYCLE] = \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	494 gc_state.stat[GC_STAT_IN_THIS_CYCLE]; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	495 gc_state.stat[GC_STAT_IN_THIS_CYCLE] = 0
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	496
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	497 #define GC_STAT_RESTART(stat) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	498 gc_state.stat[GC_STAT_IN_LAST_GC] = \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	499 gc_state.stat[GC_STAT_IN_THIS_GC]; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	500 gc_state.stat[GC_STAT_IN_THIS_GC] = 0; \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	501 GC_STAT_RESUME (stat)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	502
5046 d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	503 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	504 gc_stat_start_new_gc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	505 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	506 gc_state.n_gc[GC_STAT_TOTAL]++;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	507 gc_state.n_cycles[GC_STAT_TOTAL]++;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	508 gc_state.n_cycles[GC_STAT_IN_LAST_GC] = gc_state.n_cycles[GC_STAT_IN_THIS_GC];
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	509 gc_state.n_cycles[GC_STAT_IN_THIS_GC] = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	510
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	511 GC_STAT_RESTART (enqueued);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	512 GC_STAT_RESTART (dequeued);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	513 GC_STAT_RESTART (repushed);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	514 GC_STAT_RESTART (finalized);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	515 GC_STAT_RESTART (enqueued2);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	516 GC_STAT_RESTART (dequeued2);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	517 GC_STAT_RESTART (freed);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	518 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	519
5046 d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	520 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	521 gc_stat_resume_gc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	522 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	523 gc_state.n_cycles[GC_STAT_TOTAL]++;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	524 gc_state.n_cycles[GC_STAT_IN_THIS_GC]++;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	525 GC_STAT_RESUME (enqueued);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	526 GC_STAT_RESUME (dequeued);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	527 GC_STAT_RESUME (repushed);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	528 GC_STAT_RESUME (finalized);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	529 GC_STAT_RESUME (enqueued2);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	530 GC_STAT_RESUME (dequeued2);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	531 GC_STAT_RESUME (freed);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	532 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	533
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	534 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	535 gc_stat_finalized (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	536 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	537 GC_STAT_TICK (finalized);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	538 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	539
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	540 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	541 gc_stat_freed (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	542 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	543 GC_STAT_TICK (freed);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	544 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	545
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	546 DEFUN("gc-stats", Fgc_stats, 0, 0 ,"", /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	547 Return statistics about garbage collection cycles in a property list.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	548 */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	549 ())
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	550 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	551 Lisp_Object pl = Qnil;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	552 #define PL(name,value) \
3313 509d2981ffea [xemacs-hg @ 2006-03-28 17:43:43 by crestani] crestani parents: 3267 diff changeset	553 pl = cons3 (intern (name), make_float (gc_state.value), pl)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	554
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	555 PL ("freed-in-this-cycle", freed[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	556 PL ("freed-in-this-gc", freed[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	557 PL ("freed-in-last-cycle", freed[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	558 PL ("freed-in-last-gc", freed[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	559 PL ("freed-total", freed[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	560 PL ("finalized-in-this-cycle", finalized[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	561 PL ("finalized-in-this-gc", finalized[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	562 PL ("finalized-in-last-cycle", finalized[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	563 PL ("finalized-in-last-gc", finalized[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	564 PL ("finalized-total", finalized[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	565 PL ("repushed-in-this-cycle", repushed[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	566 PL ("repushed-in-this-gc", repushed[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	567 PL ("repushed-in-last-cycle", repushed[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	568 PL ("repushed-in-last-gc", repushed[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	569 PL ("repushed-total", repushed[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	570 PL ("dequeued2-in-this-cycle", dequeued2[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	571 PL ("dequeued2-in-this-gc", dequeued2[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	572 PL ("dequeued2-in-last-cycle", dequeued2[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	573 PL ("dequeued2-in-last-gc", dequeued2[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	574 PL ("dequeued2-total", dequeued2[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	575 PL ("enqueued2-in-this-cycle", enqueued2[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	576 PL ("enqueued2-in-this-gc", enqueued2[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	577 PL ("enqueued2-in-last-cycle", enqueued2[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	578 PL ("enqueued2-in-last-gc", enqueued2[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	579 PL ("enqueued2-total", enqueued2[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	580 PL ("dequeued-in-this-cycle", dequeued[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	581 PL ("dequeued-in-this-gc", dequeued[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	582 PL ("dequeued-in-last-cycle", dequeued[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	583 PL ("dequeued-in-last-gc", dequeued[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	584 PL ("dequeued-total", dequeued[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	585 PL ("enqueued-in-this-cycle", enqueued[GC_STAT_IN_THIS_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	586 PL ("enqueued-in-this-gc", enqueued[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	587 PL ("enqueued-in-last-cycle", enqueued[GC_STAT_IN_LAST_CYCLE]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	588 PL ("enqueued-in-last-gc", enqueued[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	589 PL ("enqueued-total", enqueued[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	590 PL ("n-cycles-in-this-gc", n_cycles[GC_STAT_IN_THIS_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	591 PL ("n-cycles-in-last-gc", n_cycles[GC_STAT_IN_LAST_GC]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	592 PL ("n-cycles-total", n_cycles[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	593 PL ("n-gc-total", n_gc[GC_STAT_TOTAL]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	594 PL ("phase", phase);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	595 return pl;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	596 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	597 #else /* not ERROR_CHECK_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	598 # define GC_STAT_START_NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	599 # define GC_STAT_RESUME_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	600 # define GC_STAT_ENQUEUED
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	601 # define GC_STAT_DEQUEUED
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	602 # define GC_STAT_REPUSHED
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	603 # define GC_STAT_REMOVED
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	604 #endif /* not ERROR_CHECK_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	605 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	606
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	607
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	608 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	609 /* Recompute need to garbage collect */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	610 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	611
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	612 int need_to_garbage_collect;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	613
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	614 #ifdef ERROR_CHECK_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	615 int always_gc = 0; /* Debugging hack; equivalent to
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	616 (setq gc-cons-thresold -1) */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	617 #else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	618 #define always_gc 0
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	619 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	620
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	621 /* True if it's time to garbage collect now. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	622 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	623 recompute_need_to_garbage_collect (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	624 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	625 if (always_gc)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	626 need_to_garbage_collect = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	627 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	628 need_to_garbage_collect =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	629 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	630 write_barrier_enabled ?
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	631 (consing_since_gc > gc_cons_incremental_threshold) :
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	632 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	633 (consing_since_gc > gc_cons_threshold
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	634 &&
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	635 #if 0 /* #### implement this better */
4115 6595286b4bed [xemacs-hg @ 2007-08-14 18:58:13 by crestani] crestani parents: 3519 diff changeset	636 ((double)consing_since_gc) / total_data_usage()) >=
6595286b4bed [xemacs-hg @ 2007-08-14 18:58:13 by crestani] crestani parents: 3519 diff changeset	637 ((double)gc_cons_percentage / 100)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	638 #else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	639 (!total_gc_usage_set \|\|
4115 6595286b4bed [xemacs-hg @ 2007-08-14 18:58:13 by crestani] crestani parents: 3519 diff changeset	640 ((double)consing_since_gc / total_gc_usage) >=
6595286b4bed [xemacs-hg @ 2007-08-14 18:58:13 by crestani] crestani parents: 3519 diff changeset	641 ((double)gc_cons_percentage / 100))
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	642 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	643 );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	644 recompute_funcall_allocation_flag ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	645 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	646
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	647
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	648
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	649 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	650 /* Mark Phase */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	651 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	652
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	653 static const struct memory_description lisp_object_description_1[] = {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	654 { XD_LISP_OBJECT, 0 },
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	655 { XD_END }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	656 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	657
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	658 const struct sized_memory_description lisp_object_description = {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	659 sizeof (Lisp_Object),
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	660 lisp_object_description_1
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	661 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	662
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	663 #if defined (USE_KKCC) \|\| defined (PDUMP)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	664
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	665 /* This function extracts the value of a count variable described somewhere
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	666 else in the description. It is converted corresponding to the type */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	667 EMACS_INT
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	668 lispdesc_indirect_count_1 (EMACS_INT code,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	669 const struct memory_description *idesc,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	670 const void *idata)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	671 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	672 EMACS_INT count;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	673 const void *irdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	674
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	675 int line = XD_INDIRECT_VAL (code);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	676 int delta = XD_INDIRECT_DELTA (code);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	677
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	678 irdata = ((char *) idata) +
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	679 lispdesc_indirect_count (idesc[line].offset, idesc, idata);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	680 switch (idesc[line].type)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	681 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	682 case XD_BYTECOUNT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	683 count = * (Bytecount *) irdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	684 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	685 case XD_ELEMCOUNT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	686 count = * (Elemcount *) irdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	687 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	688 case XD_HASHCODE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	689 count = * (Hashcode *) irdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	690 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	691 case XD_INT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	692 count = * (int *) irdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	693 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	694 case XD_LONG:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	695 count = * (long *) irdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	696 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	697 default:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	698 stderr_out ("Unsupported count type : %d (line = %d, code = %ld)\n",
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	699 idesc[line].type, line, (long) code);
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	700 #if defined (USE_KKCC) && defined (DEBUG_XEMACS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	701 if (gc_in_progress)
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	702 kkcc_detailed_backtrace ();
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	703 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	704 #ifdef PDUMP
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	705 if (in_pdump)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	706 pdump_backtrace ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	707 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	708 count = 0; /* warning suppression */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	709 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	710 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	711 count += delta;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	712 return count;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	713 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	714
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	715 /* SDESC is a "description map" (basically, a list of offsets used for
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	716 successive indirections) and OBJ is the first object to indirect off of.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	717 Return the description ultimately found. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	718
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	719 const struct sized_memory_description *
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	720 lispdesc_indirect_description_1 (const void *obj,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	721 const struct sized_memory_description *sdesc)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	722 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	723 int pos;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	724
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	725 for (pos = 0; sdesc[pos].size >= 0; pos++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	726 obj = * (const void *) ((const char ) obj + sdesc[pos].size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	727
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	728 return (const struct sized_memory_description *) obj;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	729 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	730
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	731 /* Compute the size of the data at RDATA, described by a single entry
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	732 DESC1 in a description array. OBJ and DESC are used for
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	733 XD_INDIRECT references. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	734
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	735 static Bytecount
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	736 lispdesc_one_description_line_size (void *rdata,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	737 const struct memory_description *desc1,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	738 const void *obj,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	739 const struct memory_description *desc)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	740 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	741 union_switcheroo:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	742 switch (desc1->type)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	743 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	744 case XD_LISP_OBJECT_ARRAY:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	745 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	746 EMACS_INT val = lispdesc_indirect_count (desc1->data1, desc, obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	747 return (val * sizeof (Lisp_Object));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	748 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	749 case XD_LISP_OBJECT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	750 case XD_LO_LINK:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	751 return sizeof (Lisp_Object);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	752 case XD_OPAQUE_PTR:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	753 return sizeof (void *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	754 #ifdef NEW_GC
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	755 case XD_INLINE_LISP_OBJECT_BLOCK_PTR:
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	756 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	757 case XD_BLOCK_PTR:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	758 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	759 EMACS_INT val = lispdesc_indirect_count (desc1->data1, desc, obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	760 return val * sizeof (void *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	761 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	762 case XD_BLOCK_ARRAY:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	763 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	764 EMACS_INT val = lispdesc_indirect_count (desc1->data1, desc, obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	765
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	766 return (val *
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	767 lispdesc_block_size
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	768 (rdata,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	769 lispdesc_indirect_description (obj, desc1->data2.descr)));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	770 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	771 case XD_OPAQUE_DATA_PTR:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	772 return sizeof (void *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	773 case XD_UNION_DYNAMIC_SIZE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	774 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	775 /* If an explicit size was given in the first-level structure
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	776 description, use it; else compute size based on current union
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	777 constant. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	778 const struct sized_memory_description *sdesc =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	779 lispdesc_indirect_description (obj, desc1->data2.descr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	780 if (sdesc->size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	781 return sdesc->size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	782 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	783 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	784 desc1 = lispdesc_process_xd_union (desc1, desc, obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	785 if (desc1)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	786 goto union_switcheroo;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	787 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	788 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	789 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	790 case XD_UNION:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	791 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	792 /* If an explicit size was given in the first-level structure
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	793 description, use it; else compute size based on maximum of all
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	794 possible structures. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	795 const struct sized_memory_description *sdesc =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	796 lispdesc_indirect_description (obj, desc1->data2.descr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	797 if (sdesc->size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	798 return sdesc->size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	799 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	800 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	801 int count;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	802 Bytecount max_size = -1, size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	803
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	804 desc1 = sdesc->description;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	805
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	806 for (count = 0; desc1[count].type != XD_END; count++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	807 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	808 size = lispdesc_one_description_line_size (rdata,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	809 &desc1[count],
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	810 obj, desc);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	811 if (size > max_size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	812 max_size = size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	813 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	814 return max_size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	815 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	816 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	817 case XD_ASCII_STRING:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	818 return sizeof (void *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	819 case XD_DOC_STRING:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	820 return sizeof (void *);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	821 case XD_INT_RESET:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	822 return sizeof (int);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	823 case XD_BYTECOUNT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	824 return sizeof (Bytecount);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	825 case XD_ELEMCOUNT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	826 return sizeof (Elemcount);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	827 case XD_HASHCODE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	828 return sizeof (Hashcode);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	829 case XD_INT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	830 return sizeof (int);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	831 case XD_LONG:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	832 return sizeof (long);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	833 default:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	834 stderr_out ("Unsupported dump type : %d\n", desc1->type);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	835 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	836 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	837
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	838 return 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	839 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	840
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	841
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	842 /* Return the size of the memory block (NOT necessarily a structure!)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	843 described by SDESC and pointed to by OBJ. If SDESC records an
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	844 explicit size (i.e. non-zero), it is simply returned; otherwise,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	845 the size is calculated by the maximum offset and the size of the
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	846 object at that offset, rounded up to the maximum alignment. In
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	847 this case, we may need the object, for example when retrieving an
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	848 "indirect count" of an inlined array (the count is not constant,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	849 but is specified by one of the elements of the memory block). (It
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	850 is generally not a problem if we return an overly large size -- we
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	851 will simply end up reserving more space than necessary; but if the
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	852 size is too small we could be in serious trouble, in particular
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	853 with nested inlined structures, where there may be alignment
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	854 padding in the middle of a block. #### In fact there is an (at
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	855 least theoretical) problem with an overly large size -- we may
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	856 trigger a protection fault when reading from invalid memory. We
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	857 need to handle this -- perhaps in a stupid but dependable way,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	858 i.e. by trapping SIGSEGV and SIGBUS.) */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	859
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	860 Bytecount
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	861 lispdesc_block_size_1 (const void *obj, Bytecount size,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	862 const struct memory_description *desc)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	863 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	864 EMACS_INT max_offset = -1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	865 int max_offset_pos = -1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	866 int pos;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	867
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	868 if (size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	869 return size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	870
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	871 for (pos = 0; desc[pos].type != XD_END; pos++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	872 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	873 EMACS_INT offset = lispdesc_indirect_count (desc[pos].offset, desc, obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	874 if (offset == max_offset)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	875 {
5168 cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5158 diff changeset	876 #if 0
cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5158 diff changeset	877 /* This can legitimately happen with gap arrays -- if there are
cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5158 diff changeset	878 no elements in the array, and the gap size is 0, then both
cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5158 diff changeset	879 parts of the array will be of size 0 and in the same place. */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	880 stderr_out ("Two relocatable elements at same offset?\n");
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	881 ABORT ();
5168 cf900a2f1fa3 extract gap array from extents.c, use in range tables Ben Wing <ben@xemacs.org> parents: 5158 diff changeset	882 #endif
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	883 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	884 else if (offset > max_offset)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	885 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	886 max_offset = offset;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	887 max_offset_pos = pos;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	888 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	889 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	890
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	891 if (max_offset_pos < 0)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	892 return 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	893
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	894 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	895 Bytecount size_at_max;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	896 size_at_max =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	897 lispdesc_one_description_line_size ((char *) obj + max_offset,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	898 &desc[max_offset_pos], obj, desc);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	899
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	900 /* We have no way of knowing the required alignment for this structure,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	901 so just make it maximally aligned. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	902 return MAX_ALIGN_SIZE (max_offset + size_at_max);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	903 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	904 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	905 #endif /* defined (USE_KKCC) \|\| defined (PDUMP) */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	906
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	907 #ifdef NEW_GC
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	908 #define GC_CHECK_NOT_FREE(lheader) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	909 gc_checking_assert (! LRECORD_FREE_P (lheader));
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	910 #else /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	911 #define GC_CHECK_NOT_FREE(lheader) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	912 gc_checking_assert (! LRECORD_FREE_P (lheader)); \
5142 f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5127 diff changeset	913 gc_checking_assert (LHEADER_IMPLEMENTATION (lheader)->frob_block_p \|\| \
f965e31a35f0 reduce lcrecord headers to 2 words, rename printing_unreadable_object Ben Wing <ben@xemacs.org> parents: 5127 diff changeset	914 ! (lheader)->free)
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	915 #endif /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	916
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	917 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	918 /* The following functions implement the new mark algorithm.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	919 They mark objects according to their descriptions. They
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	920 are modeled on the corresponding pdumper procedures. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	921
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	922 #if 0
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	923 # define KKCC_STACK_AS_QUEUE 1
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	924 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	925
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	926 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	927 /* The backtrace for the KKCC mark functions. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	928 #define KKCC_INIT_BT_STACK_SIZE 4096
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	929
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	930 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	931 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	932 void *obj;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	933 const struct memory_description *desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	934 int pos;
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	935 int is_lisp;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	936 } kkcc_bt_stack_entry;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	937
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	938 static kkcc_bt_stack_entry *kkcc_bt;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	939 static int kkcc_bt_stack_size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	940 static int kkcc_bt_depth = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	941
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	942 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	943 kkcc_bt_init (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	944 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	945 kkcc_bt_depth = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	946 kkcc_bt_stack_size = KKCC_INIT_BT_STACK_SIZE;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	947 kkcc_bt = (kkcc_bt_stack_entry *)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	948 xmalloc_and_zero (kkcc_bt_stack_size * sizeof (kkcc_bt_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	949 if (!kkcc_bt)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	950 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	951 stderr_out ("KKCC backtrace stack init failed for size %d\n",
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	952 kkcc_bt_stack_size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	953 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	954 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	955 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	956
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	957 /* Workhorse backtrace function. Not static because may potentially be
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	958 called from a debugger. */
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	959
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	960 void kkcc_backtrace_1 (int size, int detailed);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	961 void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	962 kkcc_backtrace_1 (int size, int detailed)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	963 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	964 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	965 stderr_out ("KKCC mark stack backtrace :\n");
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	966 for (i = kkcc_bt_depth - 1; i >= kkcc_bt_depth - size && i >= 0; i--)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	967 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	968 Lisp_Object obj = wrap_pointer_1 (kkcc_bt[i].obj);
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	969 stderr_out (" [%d] ", i);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	970 if (!kkcc_bt[i].is_lisp)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	971 stderr_out ("non Lisp Object");
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	972 else if (!LRECORDP (obj))
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	973 stderr_out ("Lisp Object, non-record");
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	974 else if (XRECORD_LHEADER (obj)->type >= lrecord_type_last_built_in_type
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	975 \|\| (!XRECORD_LHEADER_IMPLEMENTATION (obj)))
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	976 stderr_out ("WARNING! Bad Lisp Object type %d",
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	977 XRECORD_LHEADER (obj)->type);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	978 else
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	979 stderr_out ("%s", XRECORD_LHEADER_IMPLEMENTATION (obj)->name);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	980 if (detailed && kkcc_bt[i].is_lisp)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	981 {
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	982 stderr_out (" ");
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	983 debug_print (obj);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	984 }
3519 896a34d28b71 [xemacs-hg @ 2006-07-19 19:24:41 by crestani] crestani parents: 3486 diff changeset	985 stderr_out (" (addr: %p, desc: %p, ",
896a34d28b71 [xemacs-hg @ 2006-07-19 19:24:41 by crestani] crestani parents: 3486 diff changeset	986 (void *) kkcc_bt[i].obj,
896a34d28b71 [xemacs-hg @ 2006-07-19 19:24:41 by crestani] crestani parents: 3486 diff changeset	987 (void *) kkcc_bt[i].desc);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	988 if (kkcc_bt[i].pos >= 0)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	989 stderr_out ("pos: %d)\n", kkcc_bt[i].pos);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	990 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	991 if (kkcc_bt[i].pos == -1)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	992 stderr_out ("root set)\n");
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	993 else if (kkcc_bt[i].pos == -2)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	994 stderr_out ("dirty object)\n");
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	995 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	996 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	997
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	998 /* Various front ends onto kkcc_backtrace_1(), meant to be called from
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	999 a debugger.
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1000
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1001 The variants are:
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1002
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1003 normal vs _full(): Normal displays up to the topmost 100 items on the
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1004 stack, whereas full displays all items (even if there are thousands)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1005
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1006 _detailed_() vs _short_(): Detailed here means print out the actual
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1007 Lisp objects on the stack using debug_print() in addition to their type,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1008 whereas short means only show the type
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1009 */
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1010
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1011 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1012 kkcc_detailed_backtrace (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1013 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1014 kkcc_backtrace_1 (100, 1);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1015 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1016
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1017 void kkcc_short_backtrace (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1018 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1019 kkcc_short_backtrace (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1020 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1021 kkcc_backtrace_1 (100, 0);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1022 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1023
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1024 void kkcc_detailed_backtrace_full (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1025 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1026 kkcc_detailed_backtrace_full (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1027 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1028 kkcc_backtrace_1 (kkcc_bt_depth, 1);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1029 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1030
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1031 void kkcc_short_backtrace_full (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1032 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1033 kkcc_short_backtrace_full (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1034 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1035 kkcc_backtrace_1 (kkcc_bt_depth, 0);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1036 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1037
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1038 /* Short versions for ease in calling from a debugger */
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1039
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1040 void kbt (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1041 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1042 kbt (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1043 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1044 kkcc_detailed_backtrace ();
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1045 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1046
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1047 void kbts (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1048 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1049 kbts (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1050 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1051 kkcc_short_backtrace ();
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1052 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1053
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1054 void kbtf (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1055 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1056 kbtf (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1057 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1058 kkcc_detailed_backtrace_full ();
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1059 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1060
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1061 void kbtsf (void);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1062 void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1063 kbtsf (void)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1064 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1065 kkcc_short_backtrace_full ();
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1066 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1067
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1068 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1069 kkcc_bt_stack_realloc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1070 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1071 kkcc_bt_stack_size *= 2;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1072 kkcc_bt = (kkcc_bt_stack_entry *)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1073 xrealloc (kkcc_bt, kkcc_bt_stack_size * sizeof (kkcc_bt_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1074 if (!kkcc_bt)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1075 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1076 stderr_out ("KKCC backtrace stack realloc failed for size %d\n",
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1077 kkcc_bt_stack_size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1078 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1079 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1080 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1081
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1082 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1083 kkcc_bt_free (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1084 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1085 xfree_1 (kkcc_bt);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1086 kkcc_bt = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1087 kkcc_bt_stack_size = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1088 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1089
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1090 static void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1091 kkcc_bt_push (void obj, const struct memory_description desc,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1092 int is_lisp DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1093 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1094 kkcc_bt_depth = level;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1095 kkcc_bt[kkcc_bt_depth].obj = obj;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1096 kkcc_bt[kkcc_bt_depth].desc = desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1097 kkcc_bt[kkcc_bt_depth].pos = pos;
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1098 kkcc_bt[kkcc_bt_depth].is_lisp = is_lisp;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1099 kkcc_bt_depth++;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1100 if (kkcc_bt_depth >= kkcc_bt_stack_size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1101 kkcc_bt_stack_realloc ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1102 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1103
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1104 #else /* not DEBUG_XEMACS */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1105 #define kkcc_bt_init()
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1106 #define kkcc_bt_push(obj, desc)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1107 #endif /* not DEBUG_XEMACS */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1108
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1109 /* Object memory descriptions are in the lrecord_implementation structure.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1110 But copying them to a parallel array is much more cache-friendly. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1111 const struct memory_description *lrecord_memory_descriptions[countof (lrecord_implementations_table)];
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1112
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1113 /* the initial stack size in kkcc_gc_stack_entries */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1114 #define KKCC_INIT_GC_STACK_SIZE 16384
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1115
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1116 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1117 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1118 void *data;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1119 const struct memory_description *desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1120 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1121 int level;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1122 int pos;
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1123 int is_lisp;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1124 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1125 } kkcc_gc_stack_entry;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1126
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1127
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1128 static kkcc_gc_stack_entry *kkcc_gc_stack_ptr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1129 static int kkcc_gc_stack_front;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1130 static int kkcc_gc_stack_rear;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1131 static int kkcc_gc_stack_size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1132
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1133 #define KKCC_INC(i) ((i + 1) % kkcc_gc_stack_size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1134 #define KKCC_INC2(i) ((i + 2) % kkcc_gc_stack_size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1135
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1136 #define KKCC_GC_STACK_FULL (KKCC_INC2 (kkcc_gc_stack_rear) == kkcc_gc_stack_front)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1137 #define KKCC_GC_STACK_EMPTY (KKCC_INC (kkcc_gc_stack_rear) == kkcc_gc_stack_front)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1138
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1139 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1140 kkcc_gc_stack_init (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1141 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1142 kkcc_gc_stack_size = KKCC_INIT_GC_STACK_SIZE;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1143 kkcc_gc_stack_ptr = (kkcc_gc_stack_entry *)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1144 xmalloc_and_zero (kkcc_gc_stack_size * sizeof (kkcc_gc_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1145 if (!kkcc_gc_stack_ptr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1146 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1147 stderr_out ("stack init failed for size %d\n", kkcc_gc_stack_size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1148 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1149 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1150 kkcc_gc_stack_front = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1151 kkcc_gc_stack_rear = kkcc_gc_stack_size - 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1152 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1153
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1154 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1155 kkcc_gc_stack_free (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1156 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1157 xfree_1 (kkcc_gc_stack_ptr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1158 kkcc_gc_stack_ptr = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1159 kkcc_gc_stack_front = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1160 kkcc_gc_stack_rear = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1161 kkcc_gc_stack_size = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1162 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1163
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1164 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1165 kkcc_gc_stack_realloc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1166 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1167 kkcc_gc_stack_entry *old_ptr = kkcc_gc_stack_ptr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1168 int old_size = kkcc_gc_stack_size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1169 kkcc_gc_stack_size *= 2;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1170 kkcc_gc_stack_ptr = (kkcc_gc_stack_entry *)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1171 xmalloc_and_zero (kkcc_gc_stack_size * sizeof (kkcc_gc_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1172 if (!kkcc_gc_stack_ptr)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1173 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1174 stderr_out ("stack realloc failed for size %d\n", kkcc_gc_stack_size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1175 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1176 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1177 if (kkcc_gc_stack_rear >= kkcc_gc_stack_front)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1178 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1179 int number_elements = kkcc_gc_stack_rear - kkcc_gc_stack_front + 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1180 memcpy (kkcc_gc_stack_ptr, &old_ptr[kkcc_gc_stack_front],
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1181 number_elements * sizeof (kkcc_gc_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1182 kkcc_gc_stack_front = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1183 kkcc_gc_stack_rear = number_elements - 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1184 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1185 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1186 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1187 int number_elements = old_size - kkcc_gc_stack_front;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1188 memcpy (kkcc_gc_stack_ptr, &old_ptr[kkcc_gc_stack_front],
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1189 number_elements * sizeof (kkcc_gc_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1190 memcpy (&kkcc_gc_stack_ptr[number_elements], &old_ptr[0],
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1191 (kkcc_gc_stack_rear + 1) * sizeof (kkcc_gc_stack_entry));
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1192 kkcc_gc_stack_front = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1193 kkcc_gc_stack_rear = kkcc_gc_stack_rear + number_elements;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1194 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1195 xfree_1 (old_ptr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1196 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1197
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1198 static void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1199 kkcc_gc_stack_push (void data, const struct memory_description desc
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1200 DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1201 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1202 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1203 GC_STAT_ENQUEUED;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1204 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1205 if (KKCC_GC_STACK_FULL)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1206 kkcc_gc_stack_realloc();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1207 kkcc_gc_stack_rear = KKCC_INC (kkcc_gc_stack_rear);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1208 kkcc_gc_stack_ptr[kkcc_gc_stack_rear].data = data;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1209 kkcc_gc_stack_ptr[kkcc_gc_stack_rear].desc = desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1210 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1211 kkcc_gc_stack_ptr[kkcc_gc_stack_rear].level = level;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1212 kkcc_gc_stack_ptr[kkcc_gc_stack_rear].pos = pos;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1213 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1214 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1215
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1216 #ifdef DEBUG_XEMACS
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1217
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1218 static inline void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1219 kkcc_gc_stack_push_0 (void data, const struct memory_description desc,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1220 int is_lisp DECLARE_KKCC_DEBUG_ARGS)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1221 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1222 kkcc_gc_stack_push (data, desc KKCC_DEBUG_ARGS);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1223 kkcc_gc_stack_ptr[kkcc_gc_stack_rear].is_lisp = is_lisp;
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1224 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1225
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1226 static inline void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1227 kkcc_gc_stack_push_lisp (void data, const struct memory_description desc
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1228 DECLARE_KKCC_DEBUG_ARGS)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1229 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1230 kkcc_gc_stack_push_0 (data, desc, 1 KKCC_DEBUG_ARGS);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1231 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1232
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1233 static inline void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1234 kkcc_gc_stack_push_nonlisp (void data, const struct memory_description desc
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1235 DECLARE_KKCC_DEBUG_ARGS)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1236 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1237 kkcc_gc_stack_push_0 (data, desc, 0 KKCC_DEBUG_ARGS);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1238 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1239
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1240 #else /* not DEBUG_XEMACS */
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1241
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1242 static inline void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1243 kkcc_gc_stack_push_lisp (void data, const struct memory_description desc)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1244 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1245 kkcc_gc_stack_push (data, desc);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1246 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1247
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1248 static inline void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1249 kkcc_gc_stack_push_nonlisp (void data, const struct memory_description desc)
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1250 {
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1251 kkcc_gc_stack_push (data, desc);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1252 }
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1253
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1254 #endif /* (not) DEBUG_XEMACS */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1255
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1256 static kkcc_gc_stack_entry *
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1257 kkcc_gc_stack_pop (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1258 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1259 if (KKCC_GC_STACK_EMPTY)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1260 return 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1261 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1262 GC_STAT_DEQUEUED;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1263 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1264 #ifndef KKCC_STACK_AS_QUEUE
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1265 /* stack behaviour */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1266 return &kkcc_gc_stack_ptr[kkcc_gc_stack_rear--];
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1267 #else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1268 /* queue behaviour */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1269 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1270 int old_front = kkcc_gc_stack_front;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1271 kkcc_gc_stack_front = KKCC_INC (kkcc_gc_stack_front);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1272 return &kkcc_gc_stack_ptr[old_front];
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1273 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1274 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1275 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1276
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1277 void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1278 kkcc_gc_stack_push_lisp_object (Lisp_Object obj DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1279 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1280 if (XTYPE (obj) == Lisp_Type_Record)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1281 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1282 struct lrecord_header *lheader = XRECORD_LHEADER (obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1283 const struct memory_description *desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1284 GC_CHECK_LHEADER_INVARIANTS (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1285 desc = RECORD_DESCRIPTION (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1286 if (! MARKED_RECORD_HEADER_P (lheader))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1287 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1288 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1289 MARK_GREY (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1290 #else /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1291 MARK_RECORD_HEADER (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1292 #endif /* not NEW_GC */
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1293 kkcc_gc_stack_push_lisp ((void *) lheader, desc KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1294 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1295 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1296 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1297
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1298 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1299
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1300 void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1301 kkcc_gc_stack_repush_dirty_object (Lisp_Object obj DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1302 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1303 if (XTYPE (obj) == Lisp_Type_Record)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1304 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1305 struct lrecord_header *lheader = XRECORD_LHEADER (obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1306 const struct memory_description *desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1307 GC_STAT_REPUSHED;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1308 GC_CHECK_LHEADER_INVARIANTS (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1309 desc = RECORD_DESCRIPTION (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1310 MARK_GREY (lheader);
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1311 kkcc_gc_stack_push_lisp ((void*) lheader, desc KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1312 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1313 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1314 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1315
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1316 #ifdef ERROR_CHECK_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1317 #define KKCC_DO_CHECK_FREE(obj, allow_free) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1318 do \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1319 { \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1320 if (!allow_free && XTYPE (obj) == Lisp_Type_Record) \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1321 { \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1322 struct lrecord_header *lheader = XRECORD_LHEADER (obj); \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1323 GC_CHECK_NOT_FREE (lheader); \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1324 } \
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1325 } while (0)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1326 #else
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1327 #define KKCC_DO_CHECK_FREE(obj, allow_free) DO_NOTHING
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1328 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1329
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1330 static inline void
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1331 mark_object_maybe_checking_free (Lisp_Object obj, int allow_free
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1332 DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1333 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1334 KKCC_DO_CHECK_FREE (obj, allow_free);
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1335 kkcc_gc_stack_push_lisp_object (obj KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1336 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1337
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1338 /* This function loops all elements of a struct pointer and calls
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1339 mark_with_description with each element. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1340 static void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1341 mark_struct_contents (const void *data,
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1342 const struct sized_memory_description *sdesc,
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1343 int count DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1344 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1345 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1346 Bytecount elsize;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1347 elsize = lispdesc_block_size (data, sdesc);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1348
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1349 for (i = 0; i < count; i++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1350 {
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1351 kkcc_gc_stack_push_nonlisp (((char ) data) + elsize i,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1352 sdesc->description
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1353 KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1354 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1355 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1356
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1357 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1358 /* This function loops all elements of a struct pointer and calls
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1359 mark_with_description with each element. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1360 static void
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1361 mark_lisp_object_block_contents (const void *data,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1362 const struct sized_memory_description *sdesc,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1363 int count DECLARE_KKCC_DEBUG_ARGS)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1364 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1365 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1366 Bytecount elsize;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1367 elsize = lispdesc_block_size (data, sdesc);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1368
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1369 for (i = 0; i < count; i++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1370 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1371 const Lisp_Object obj = wrap_pointer_1 (((char ) data) + elsize i);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1372 if (XTYPE (obj) == Lisp_Type_Record)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1373 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1374 struct lrecord_header *lheader = XRECORD_LHEADER (obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1375 const struct memory_description *desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1376 GC_CHECK_LHEADER_INVARIANTS (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1377 desc = sdesc->description;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1378 if (! MARKED_RECORD_HEADER_P (lheader))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1379 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1380 MARK_GREY (lheader);
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1381 kkcc_gc_stack_push_lisp ((void *) lheader, desc KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1382 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1383 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1384 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1385 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1386
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1387 #endif /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1388
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1389 /* This function implements the KKCC mark algorithm.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1390 Instead of calling mark_object, all the alive Lisp_Objects are pushed
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1391 on the kkcc_gc_stack. This function processes all elements on the stack
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1392 according to their descriptions. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1393 static void
5054 24372c7e0e8f fix build problem with pdump Ben Wing <ben@xemacs.org> parents: 5046 diff changeset	1394 kkcc_marking (int USED_IF_NEW_GC (cnt))
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1395 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1396 kkcc_gc_stack_entry *stack_entry = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1397 void *data = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1398 const struct memory_description *desc = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1399 int pos;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1400 #ifdef NEW_GC
5046 d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	1401 int obj_count = cnt;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1402 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1403 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1404 int level = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1405 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1406
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1407 while ((stack_entry = kkcc_gc_stack_pop ()) != 0)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1408 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1409 data = stack_entry->data;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1410 desc = stack_entry->desc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1411 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1412 level = stack_entry->level + 1;
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1413 kkcc_bt_push (data, desc, stack_entry->is_lisp, stack_entry->level,
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1414 stack_entry->pos);
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1415 #else
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1416 kkcc_bt_push (data, desc);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1417 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1418
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1419 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1420 /* Mark black if object is currently grey. This first checks,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1421 if the object is really allocated on the mc-heap. If it is,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1422 it can be marked black; if it is not, it cannot be marked. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1423 maybe_mark_black (data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1424 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1425
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1426 if (!data) continue;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1427
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1428 gc_checking_assert (data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1429 gc_checking_assert (desc);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1430
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1431 for (pos = 0; desc[pos].type != XD_END; pos++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1432 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1433 const struct memory_description *desc1 = &desc[pos];
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1434 const void *rdata =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1435 (const char *) data + lispdesc_indirect_count (desc1->offset,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1436 desc, data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1437 union_switcheroo:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1438
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1439 /* If the flag says don't mark, then don't mark. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1440 if ((desc1->flags) & XD_FLAG_NO_KKCC)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1441 continue;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1442
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1443 switch (desc1->type)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1444 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1445 case XD_BYTECOUNT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1446 case XD_ELEMCOUNT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1447 case XD_HASHCODE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1448 case XD_INT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1449 case XD_LONG:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1450 case XD_INT_RESET:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1451 case XD_LO_LINK:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1452 case XD_OPAQUE_PTR:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1453 case XD_OPAQUE_DATA_PTR:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1454 case XD_ASCII_STRING:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1455 case XD_DOC_STRING:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1456 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1457 case XD_LISP_OBJECT:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1458 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1459 const Lisp_Object stored_obj = (const Lisp_Object ) rdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1460
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1461 /* Because of the way that tagged objects work (pointers and
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1462 Lisp_Objects have the same representation), XD_LISP_OBJECT
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1463 can be used for untagged pointers. They might be NULL,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1464 though. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1465 if (EQ (*stored_obj, Qnull_pointer))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1466 break;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1467 #ifdef NEW_GC
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1468 mark_object_maybe_checking_free (*stored_obj, 0
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1469 KKCC_DEBUG_ARGS);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1470 #else /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1471 mark_object_maybe_checking_free
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1472 (*stored_obj, (desc1->flags) & XD_FLAG_FREE_LISP_OBJECT
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1473 KKCC_DEBUG_ARGS);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1474 #endif /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1475 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1476 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1477 case XD_LISP_OBJECT_ARRAY:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1478 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1479 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1480 EMACS_INT count =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1481 lispdesc_indirect_count (desc1->data1, desc, data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1482
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1483 for (i = 0; i < count; i++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1484 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1485 const Lisp_Object *stored_obj =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1486 (const Lisp_Object *) rdata + i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1487
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1488 if (EQ (*stored_obj, Qnull_pointer))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1489 break;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1490 #ifdef NEW_GC
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1491 mark_object_maybe_checking_free
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1492 (*stored_obj, 0 KKCC_DEBUG_ARGS);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1493 #else /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1494 mark_object_maybe_checking_free
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1495 (*stored_obj, (desc1->flags) & XD_FLAG_FREE_LISP_OBJECT
6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1496 KKCC_DEBUG_ARGS);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1497 #endif /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1498 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1499 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1500 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1501 #ifdef NEW_GC
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1502 case XD_INLINE_LISP_OBJECT_BLOCK_PTR:
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1503 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1504 EMACS_INT count = lispdesc_indirect_count (desc1->data1, desc,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1505 data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1506 const struct sized_memory_description *sdesc =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1507 lispdesc_indirect_description (data, desc1->data2.descr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1508 const char dobj = (const char **) rdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1509 if (dobj)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1510 mark_lisp_object_block_contents
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1511 (dobj, sdesc, count KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1512 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1513 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1514 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1515 case XD_BLOCK_PTR:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1516 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1517 EMACS_INT count = lispdesc_indirect_count (desc1->data1, desc,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1518 data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1519 const struct sized_memory_description *sdesc =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1520 lispdesc_indirect_description (data, desc1->data2.descr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1521 const char dobj = (const char **) rdata;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1522 if (dobj)
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1523 mark_struct_contents (dobj, sdesc, count KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1524 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1525 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1526 case XD_BLOCK_ARRAY:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1527 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1528 EMACS_INT count = lispdesc_indirect_count (desc1->data1, desc,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1529 data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1530 const struct sized_memory_description *sdesc =
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1531 lispdesc_indirect_description (data, desc1->data2.descr);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1532
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1533 mark_struct_contents (rdata, sdesc, count KKCC_DEBUG_ARGS);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1534 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1535 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1536 case XD_UNION:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1537 case XD_UNION_DYNAMIC_SIZE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1538 desc1 = lispdesc_process_xd_union (desc1, desc, data);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1539 if (desc1)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1540 goto union_switcheroo;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1541 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1542
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1543 default:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1544 stderr_out ("Unsupported description type : %d\n", desc1->type);
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1545 kkcc_detailed_backtrace ();
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1546 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1547 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1548 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1549
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1550 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1551 if (cnt)
5046 d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	1552 if (!--obj_count)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1553 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1554 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1555 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1556 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1557 #endif /* USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1558
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1559 /* I hate duplicating all this crap! */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1560 int
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1561 marked_p (Lisp_Object obj)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1562 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1563 /* Checks we used to perform. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1564 /* if (EQ (obj, Qnull_pointer)) return 1; */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1565 /* if (!POINTER_TYPE_P (XGCTYPE (obj))) return 1; */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1566 /* if (PURIFIED (XPNTR (obj))) return 1; */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1567
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1568 if (XTYPE (obj) == Lisp_Type_Record)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1569 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1570 struct lrecord_header *lheader = XRECORD_LHEADER (obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1571
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1572 GC_CHECK_LHEADER_INVARIANTS (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1573
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1574 return MARKED_RECORD_HEADER_P (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1575 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1576 return 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1577 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1578
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1579
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1580 /* Mark reference to a Lisp_Object. If the object referred to has not been
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1581 seen yet, recursively mark all the references contained in it. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1582 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1583 mark_object (
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1584 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1585 Lisp_Object UNUSED (obj)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1586 #else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1587 Lisp_Object obj
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1588 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1589 )
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1590 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1591 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1592 /* this code should never be reached when configured for KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1593 stderr_out ("KKCC: Invalid mark_object call.\n");
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1594 stderr_out ("Replace mark_object with kkcc_gc_stack_push_lisp_object.\n");
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1595 ABORT ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1596 #else /* not USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1597
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1598 tail_recurse:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1599
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1600 /* Checks we used to perform */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1601 /* if (EQ (obj, Qnull_pointer)) return; */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1602 /* if (!POINTER_TYPE_P (XGCTYPE (obj))) return; */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1603 /* if (PURIFIED (XPNTR (obj))) return; */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1604
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1605 if (XTYPE (obj) == Lisp_Type_Record)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1606 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1607 struct lrecord_header *lheader = XRECORD_LHEADER (obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1608
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1609 GC_CHECK_LHEADER_INVARIANTS (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1610
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1611 /* We handle this separately, above, so we can mark free objects */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1612 GC_CHECK_NOT_FREE (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1613
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1614 /* All c_readonly objects have their mark bit set,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1615 so that we only need to check the mark bit here. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1616 if (! MARKED_RECORD_HEADER_P (lheader))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1617 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1618 MARK_RECORD_HEADER (lheader);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1619
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1620 if (RECORD_MARKER (lheader))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1621 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1622 obj = RECORD_MARKER (lheader) (obj);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1623 if (!NILP (obj)) goto tail_recurse;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1624 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1625 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1626 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1627 #endif /* not KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1628 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1629
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1630
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1631 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1632 /* Hooks */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1633 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1634
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1635 /* Nonzero when calling certain hooks or doing other things where a GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1636 would be bad. It prevents infinite recursive calls to gc. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1637 int gc_currently_forbidden;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1638
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1639 int
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1640 begin_gc_forbidden (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1641 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1642 return internal_bind_int (&gc_currently_forbidden, 1);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1643 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1644
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1645 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1646 end_gc_forbidden (int count)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1647 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1648 unbind_to (count);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1649 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1650
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1651 /* Hooks. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1652 Lisp_Object Vpre_gc_hook, Qpre_gc_hook;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1653 Lisp_Object Vpost_gc_hook, Qpost_gc_hook;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1654
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1655 /* Maybe we want to use this when doing a "panic" gc after memory_full()? */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1656 static int gc_hooks_inhibited;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1657
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1658 struct post_gc_action
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1659 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1660 void (fun) (void );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1661 void *arg;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1662 };
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1663
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1664 typedef struct post_gc_action post_gc_action;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1665
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1666 typedef struct
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1667 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1668 Dynarr_declare (post_gc_action);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1669 } post_gc_action_dynarr;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1670
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1671 static post_gc_action_dynarr *post_gc_actions;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1672
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1673 /* Register an action to be called at the end of GC.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1674 gc_in_progress is 0 when this is called.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1675 This is used when it is discovered that an action needs to be taken,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1676 but it's during GC, so it's not safe. (e.g. in a finalize method.)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1677
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1678 As a general rule, do not use Lisp objects here.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1679 And NEVER signal an error.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1680 */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1681
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1682 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1683 register_post_gc_action (void (fun) (void ), void *arg)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1684 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1685 post_gc_action action;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1686
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1687 if (!post_gc_actions)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1688 post_gc_actions = Dynarr_new (post_gc_action);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1689
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1690 action.fun = fun;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1691 action.arg = arg;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1692
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1693 Dynarr_add (post_gc_actions, action);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1694 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1695
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1696 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1697 run_post_gc_actions (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1698 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1699 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1700
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1701 if (post_gc_actions)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1702 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1703 for (i = 0; i < Dynarr_length (post_gc_actions); i++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1704 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1705 post_gc_action action = Dynarr_at (post_gc_actions, i);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1706 (action.fun) (action.arg);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1707 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1708
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1709 Dynarr_reset (post_gc_actions);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1710 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1711 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1712
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1713 #ifdef NEW_GC
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1714 /* Asynchronous finalization. */
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1715 typedef struct finalize_elem
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1716 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1717 Lisp_Object obj;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1718 struct finalize_elem *next;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1719 } finalize_elem;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1720
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1721 finalize_elem *Vall_finalizable_objs;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1722 Lisp_Object Vfinalizers_to_run;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1723
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1724 void
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1725 add_finalizable_obj (Lisp_Object obj)
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1726 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1727 finalize_elem *next = Vall_finalizable_objs;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1728 Vall_finalizable_objs =
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1729 (finalize_elem *) xmalloc_and_zero (sizeof (finalize_elem));
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1730 Vall_finalizable_objs->obj = obj;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1731 Vall_finalizable_objs->next = next;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1732 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1733
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1734 void
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1735 register_for_finalization (void)
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1736 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1737 finalize_elem *rest = Vall_finalizable_objs;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1738
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1739 if (!rest)
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1740 return;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1741
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1742 while (!marked_p (rest->obj))
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1743 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1744 finalize_elem *temp = rest;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1745 Vfinalizers_to_run = Fcons (rest->obj, Vfinalizers_to_run);
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1746 Vall_finalizable_objs = rest->next;
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4969 diff changeset	1747 xfree (temp);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1748 rest = Vall_finalizable_objs;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1749 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1750
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1751 while (rest->next)
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1752 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1753 if (LRECORDP (rest->next->obj)
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1754 && !marked_p (rest->next->obj))
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1755 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1756 finalize_elem *temp = rest->next;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1757 Vfinalizers_to_run = Fcons (rest->next->obj, Vfinalizers_to_run);
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1758 rest->next = rest->next->next;
4976 16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO) Ben Wing <ben@xemacs.org> parents: 4969 diff changeset	1759 xfree (temp);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1760 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1761 else
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1762 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1763 rest = rest->next;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1764 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1765 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1766 /* Keep objects alive that need to be finalized by marking
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1767 Vfinalizers_to_run transitively. */
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1768 kkcc_gc_stack_push_lisp_object_0 (Vfinalizers_to_run);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1769 kkcc_marking (0);
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1770 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1771
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1772 void
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1773 run_finalizers (void)
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1774 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1775 Lisp_Object rest;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1776 for (rest = Vfinalizers_to_run; !NILP (rest); rest = XCDR (rest))
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1777 {
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1778 MC_ALLOC_CALL_FINALIZER (XPNTR (XCAR (rest)));
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1779 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1780 Vfinalizers_to_run = Qnil;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1781 }
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1782 #endif /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1783
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1784
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1785 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1786 /* Garbage Collection */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1787 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1788
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1789 /* Enable/disable incremental garbage collection during runtime. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1790 int allow_incremental_gc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1791
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1792 /* For profiling. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1793 static Lisp_Object QSin_garbage_collection;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1794
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1795 /* Nonzero means display messages at beginning and end of GC. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1796 int garbage_collection_messages;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1797
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1798 /* "Garbage collecting" */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1799 Lisp_Object Vgc_message;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1800 Lisp_Object Vgc_pointer_glyph;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1801 static const Ascbyte gc_default_message[] = "Garbage collecting";
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1802 Lisp_Object Qgarbage_collecting;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1803
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1804 /* "Locals" during GC. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1805 struct frame *f;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1806 int speccount;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1807 int cursor_changed;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1808 Lisp_Object pre_gc_cursor;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1809
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1810 /* PROFILE_DECLARE */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1811 int do_backtrace;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1812 struct backtrace backtrace;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1813
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1814 /* Maximum amount of C stack to save when a GC happens. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1815 #ifndef MAX_SAVE_STACK
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1816 #define MAX_SAVE_STACK 0 /* 16000 */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1817 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1818
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	1819 static void
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1820 show_gc_cursor_and_message (void)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1821 {
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1822 /* Now show the GC cursor/message. */
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1823 pre_gc_cursor = Qnil;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1824 cursor_changed = 0;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1825
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1826 /* We used to call selected_frame() here.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1827
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1828 The following functions cannot be called inside GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1829 so we move to after the above tests. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1830 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1831 Lisp_Object frame;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1832 Lisp_Object device = Fselected_device (Qnil);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1833 if (NILP (device)) /* Could happen during startup, eg. if always_gc */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1834 return;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1835 frame = Fselected_frame (device);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1836 if (NILP (frame))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1837 invalid_state ("No frames exist on device", device);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1838 f = XFRAME (frame);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1839 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1840
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1841 if (!noninteractive)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1842 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1843 if (FRAME_WIN_P (f))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1844 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1845 Lisp_Object frame = wrap_frame (f);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1846 Lisp_Object cursor = glyph_image_instance (Vgc_pointer_glyph,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1847 FRAME_SELECTED_WINDOW (f),
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1848 ERROR_ME_NOT, 1);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1849 pre_gc_cursor = f->pointer;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1850 if (POINTER_IMAGE_INSTANCEP (cursor)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1851 /* don't change if we don't know how to change back. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1852 && POINTER_IMAGE_INSTANCEP (pre_gc_cursor))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1853 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1854 cursor_changed = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1855 Fset_frame_pointer (frame, cursor);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1856 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1857 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1858
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1859 /* Don't print messages to the stream device. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1860 if (!cursor_changed && !FRAME_STREAM_P (f))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1861 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1862 if (garbage_collection_messages)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1863 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1864 Lisp_Object args[2], whole_msg;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1865 args[0] = (STRINGP (Vgc_message) ? Vgc_message :
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1866 build_msg_string (gc_default_message));
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4934 diff changeset	1867 args[1] = build_ascstring ("...");
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1868 whole_msg = Fconcat (2, args);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1869 echo_area_message (f, (Ibyte *) 0, whole_msg, 0, -1,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1870 Qgarbage_collecting);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1871 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1872 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1873 }
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1874 }
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1875
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	1876 static void
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1877 remove_gc_cursor_and_message (void)
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1878 {
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1879 /* Now remove the GC cursor/message */
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1880 if (!noninteractive)
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1881 {
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1882 if (cursor_changed)
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1883 Fset_frame_pointer (wrap_frame (f), pre_gc_cursor);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1884 else if (!FRAME_STREAM_P (f))
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1885 {
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1886 /* Show "...done" only if the echo area would otherwise be empty. */
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1887 if (NILP (clear_echo_area (selected_frame (),
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1888 Qgarbage_collecting, 0)))
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1889 {
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1890 if (garbage_collection_messages)
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1891 {
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1892 Lisp_Object args[2], whole_msg;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1893 args[0] = (STRINGP (Vgc_message) ? Vgc_message :
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1894 build_msg_string (gc_default_message));
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1895 args[1] = build_msg_string ("... done");
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1896 whole_msg = Fconcat (2, args);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1897 echo_area_message (selected_frame (), (Ibyte *) 0,
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1898 whole_msg, 0, -1,
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1899 Qgarbage_collecting);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1900 }
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1901 }
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1902 }
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1903 }
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1904 }
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1905
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	1906 static void
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1907 gc_prepare (void)
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1908 {
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1909 #if MAX_SAVE_STACK > 0
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1910 char stack_top_variable;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1911 extern char *stack_bottom;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1912 #endif
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1913
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1914 #ifdef NEW_GC
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1915 GC_STAT_START_NEW_GC;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1916 GC_SET_PHASE (INIT_GC);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1917 #endif /* NEW_GC */
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1918
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1919 do_backtrace = profiling_active \|\| backtrace_with_internal_sections;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1920
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1921 assert (!gc_in_progress);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1922 assert (!in_display \|\| gc_currently_forbidden);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1923
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1924 PROFILE_RECORD_ENTERING_SECTION (QSin_garbage_collection);
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1925
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1926 need_to_signal_post_gc = 0;
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1927 recompute_funcall_allocation_flag ();
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1928
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1929 if (!gc_hooks_inhibited)
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1930 run_hook_trapping_problems
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1931 (Qgarbage_collecting, Qpre_gc_hook,
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	1932 INHIBIT_EXISTING_PERMANENT_DISPLAY_OBJECT_DELETION);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1933
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1934 /***** Now we actually start the garbage collection. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1935
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1936 gc_in_progress = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1937 #ifndef NEW_GC
5014 c2e0c3af5fe3 cleanups to debug-print, try harder to make it work during GC Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	1938 inhibit_non_essential_conversion_operations++;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	1939 #endif /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1940
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1941 #if MAX_SAVE_STACK > 0
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1942
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1943 /* Save a copy of the contents of the stack, for debugging. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1944 if (!purify_flag)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1945 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1946 /* Static buffer in which we save a copy of the C stack at each GC. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1947 static char *stack_copy;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1948 static Bytecount stack_copy_size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1949
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1950 ptrdiff_t stack_diff = &stack_top_variable - stack_bottom;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1951 Bytecount stack_size = (stack_diff > 0 ? stack_diff : -stack_diff);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1952 if (stack_size < MAX_SAVE_STACK)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1953 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1954 if (stack_copy_size < stack_size)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1955 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1956 stack_copy = (char *) xrealloc (stack_copy, stack_size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1957 stack_copy_size = stack_size;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1958 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1959
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1960 memcpy (stack_copy,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1961 stack_diff > 0 ? stack_bottom : &stack_top_variable,
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1962 stack_size);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1963 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1964 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1965 #endif /* MAX_SAVE_STACK > 0 */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1966
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1967 /* Do some totally ad-hoc resource clearing. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1968 /* #### generalize this? */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1969 clear_event_resource ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1970 cleanup_specifiers ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1971 cleanup_buffer_undo_lists ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1972 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1973
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	1974 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1975 gc_mark_root_set (
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1976 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1977 enum gc_phase phase
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1978 #else /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1979 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1980 #endif /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1981 )
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1982 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1983 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1984 GC_SET_PHASE (phase);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1985 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1986
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1987 /* Mark all the special slots that serve as the roots of accessibility. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1988
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1989 #ifdef USE_KKCC
5169 6c6d78781d59 cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup Ben Wing <ben@xemacs.org> parents: 5168 diff changeset	1990 # define mark_object(obj) kkcc_gc_stack_push_lisp_object_0 (obj)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1991 #endif /* USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1992
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1993 { /* staticpro() */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1994 Lisp_Object **p = Dynarr_begin (staticpros);
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	1995 Elemcount len = Dynarr_length (staticpros);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1996 Elemcount count;
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	1997 for (count = 0; count < len; count++, p++)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1998 /* Need to check if the pointer in the staticpro array is not
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	1999 NULL. A gc can occur after variable is added to the staticpro
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2000 array and _before_ it is correctly initialized. In this case
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2001 its value is NULL, which we have to catch here. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2002 if (*p)
3486 4cc26ec3f0de [xemacs-hg @ 2006-07-02 07:32:19 by stephent] stephent parents: 3313 diff changeset	2003 mark_object (**p);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2004 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2005
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2006 { /* staticpro_nodump() */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2007 Lisp_Object **p = Dynarr_begin (staticpros_nodump);
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	2008 Elemcount len = Dynarr_length (staticpros_nodump);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2009 Elemcount count;
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	2010 for (count = 0; count < len; count++, p++)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2011 /* Need to check if the pointer in the staticpro array is not
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2012 NULL. A gc can occur after variable is added to the staticpro
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2013 array and _before_ it is correctly initialized. In this case
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2014 its value is NULL, which we have to catch here. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2015 if (*p)
3486 4cc26ec3f0de [xemacs-hg @ 2006-07-02 07:32:19 by stephent] stephent parents: 3313 diff changeset	2016 mark_object (**p);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2017 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2018
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2019 #ifdef NEW_GC
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2020 { /* mcpro () */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2021 Lisp_Object *p = Dynarr_begin (mcpros);
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	2022 Elemcount len = Dynarr_length (mcpros);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2023 Elemcount count;
4921 17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	2024 for (count = 0; count < len; count++, p++)
17362f371cc2 add more byte-code assertions and better failure output Ben Wing <ben@xemacs.org> parents: 4502 diff changeset	2025 mark_object (*p);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2026 }
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2027 #endif /* NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2028
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2029 { /* GCPRO() */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2030 struct gcpro *tail;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2031 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2032 for (tail = gcprolist; tail; tail = tail->next)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2033 for (i = 0; i < tail->nvars; i++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2034 mark_object (tail->var[i]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2035 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2036
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2037 { /* specbind() */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2038 struct specbinding *bind;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2039 for (bind = specpdl; bind != specpdl_ptr; bind++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2040 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2041 mark_object (bind->symbol);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2042 mark_object (bind->old_value);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2043 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2044 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2045
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2046 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2047 struct catchtag *c;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2048 for (c = catchlist; c; c = c->next)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2049 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2050 mark_object (c->tag);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2051 mark_object (c->val);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2052 mark_object (c->actual_tag);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2053 mark_object (c->backtrace);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2054 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2055 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2056
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2057 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2058 struct backtrace *backlist;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2059 for (backlist = backtrace_list; backlist; backlist = backlist->next)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2060 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2061 int nargs = backlist->nargs;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2062 int i;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2063
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2064 mark_object (*backlist->function);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2065 if (nargs < 0 /* nargs == UNEVALLED \|\| nargs == MANY */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2066 /* might be fake (internal profiling entry) */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2067 && backlist->args)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2068 mark_object (backlist->args[0]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2069 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2070 for (i = 0; i < nargs; i++)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2071 mark_object (backlist->args[i]);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2072 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2073 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2074
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2075 mark_profiling_info ();
5191 71ee43b8a74d Add #'equalp as a hash test by default; add #'define-hash-table-test, GNU API Aidan Kehoe <kehoea@parhasard.net> parents: 5169 diff changeset	2076
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2077 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2078 # undef mark_object
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2079 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2080 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2081
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2082 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2083 gc_finish_mark (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2084 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2085 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2086 GC_SET_PHASE (FINISH_MARK);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2087 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2088 init_marking_ephemerons ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2089
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2090 while (finish_marking_weak_hash_tables () > 0 \|\|
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2091 finish_marking_weak_lists () > 0 \|\|
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2092 continue_marking_ephemerons () > 0)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2093 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2094 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2095 kkcc_marking (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2096 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2097 #else /* not USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2098 ;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2099 #endif /* not USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2100
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2101 /* At this point, we know which objects need to be finalized: we
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2102 still need to resurrect them */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2103
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2104 while (finish_marking_ephemerons () > 0 \|\|
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2105 finish_marking_weak_lists () > 0 \|\|
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2106 finish_marking_weak_hash_tables () > 0)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2107 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2108 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2109 kkcc_marking (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2110 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2111 #else /* not USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2112 ;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2113 #endif /* not USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2114
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2115 /* And prune (this needs to be called after everything else has been
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2116 marked and before we do any sweeping). */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2117 /* #### this is somewhat ad-hoc and should probably be an object
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2118 method */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2119 prune_weak_hash_tables ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2120 prune_weak_lists ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2121 prune_specifiers ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2122 prune_syntax_tables ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2123
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2124 prune_ephemerons ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2125 prune_weak_boxes ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2126 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2127
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2128 #ifdef NEW_GC
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2129 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2130 gc_finalize (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2131 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2132 GC_SET_PHASE (FINALIZE);
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2133 register_for_finalization ();
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2134 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2135
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2136 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2137 gc_sweep (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2138 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2139 GC_SET_PHASE (SWEEP);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2140 mc_sweep ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2141 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2142 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2143
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2144
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2145 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2146 gc_finish (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2147 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2148 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2149 GC_SET_PHASE (FINISH_GC);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2150 #endif /* NEW_GC */
5158 9e0b43d3095c more cleanups to object-memory-usage stuff Ben Wing <ben@xemacs.org> parents: 5142 diff changeset	2151 finish_object_memory_usage_stats ();
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2152 consing_since_gc = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2153 #ifndef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2154 /* Allow you to set it really fucking low if you really want ... */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2155 if (gc_cons_threshold < 10000)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2156 gc_cons_threshold = 10000;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2157 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2158 recompute_need_to_garbage_collect ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2159
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2160 #ifndef NEW_GC
5014 c2e0c3af5fe3 cleanups to debug-print, try harder to make it work during GC Ben Wing <ben@xemacs.org> parents: 4976 diff changeset	2161 inhibit_non_essential_conversion_operations--;
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2162 #endif /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2163 gc_in_progress = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2164
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2165 run_post_gc_actions ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2166
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2167 /***** End of garbage collection ******/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2168
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2169 #ifndef NEW_GC
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2170 if (!breathing_space)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2171 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2172 breathing_space = malloc (4096 - MALLOC_OVERHEAD);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2173 }
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2174 #endif /* not NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2175
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2176 need_to_signal_post_gc = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2177 funcall_allocation_flag = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2178
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2179 PROFILE_RECORD_EXITING_SECTION (QSin_garbage_collection);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2180
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2181 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2182 GC_SET_PHASE (NONE);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2183 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2184 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2185
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2186 #ifdef NEW_GC
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2187 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2188 gc_suspend_mark_phase (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2189 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2190 PROFILE_RECORD_EXITING_SECTION (QSin_garbage_collection);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2191 write_barrier_enabled = 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2192 consing_since_gc = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2193 vdb_start_dirty_bits_recording ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2194 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2195
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2196 static int
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2197 gc_resume_mark_phase (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2198 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2199 PROFILE_RECORD_ENTERING_SECTION (QSin_garbage_collection);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2200 assert (write_barrier_enabled);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2201 vdb_stop_dirty_bits_recording ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2202 write_barrier_enabled = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2203 return vdb_read_dirty_bits ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2204 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2205
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2206 static int
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2207 gc_mark (int incremental)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2208 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2209 GC_SET_PHASE (MARK);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2210 if (!incremental)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2211 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2212 kkcc_marking (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2213 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2214 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2215 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2216 kkcc_marking (gc_incremental_traversal_threshold);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2217 if (!KKCC_GC_STACK_EMPTY)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2218 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2219 gc_suspend_mark_phase ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2220 return 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2221 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2222 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2223 return 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2224 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2225
5016 2ade80e8c640 enable more warnings and fix them Ben Wing <ben@xemacs.org> parents: 5014 diff changeset	2226 static int
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2227 gc_resume_mark (int incremental)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2228 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2229 if (!incremental)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2230 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2231 if (!KKCC_GC_STACK_EMPTY)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2232 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2233 GC_STAT_RESUME_GC;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2234 /* An incremental garbage collection is already running ---
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2235 now wrap it up and resume it atomically. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2236 gc_resume_mark_phase ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2237 gc_mark_root_set (REPUSH_ROOT_SET);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2238 kkcc_marking (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2239 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2240 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2241 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2242 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2243 int repushed_objects;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2244 int mark_work;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2245 GC_STAT_RESUME_GC;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2246 repushed_objects = gc_resume_mark_phase ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2247 mark_work = (gc_incremental_traversal_threshold > repushed_objects) ?
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2248 gc_incremental_traversal_threshold : repushed_objects;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2249 kkcc_marking (mark_work);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2250 if (KKCC_GC_STACK_EMPTY)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2251 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2252 /* Mark root set again and finish up marking. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2253 gc_mark_root_set (REPUSH_ROOT_SET);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2254 kkcc_marking (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2255 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2256 else
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2257 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2258 gc_suspend_mark_phase ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2259 return 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2260 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2261 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2262 return 1;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2263 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2264
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2265
5046 d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	2266 static void
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2267 gc_1 (int incremental)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2268 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2269 switch (GC_PHASE)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2270 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2271 case NONE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2272 gc_prepare ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2273 kkcc_gc_stack_init();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2274 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2275 kkcc_bt_init ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2276 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2277 case INIT_GC:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2278 gc_mark_root_set (PUSH_ROOT_SET);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2279 case PUSH_ROOT_SET:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2280 if (!gc_mark (incremental))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2281 return; /* suspend gc */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2282 case MARK:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2283 if (!KKCC_GC_STACK_EMPTY)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2284 if (!gc_resume_mark (incremental))
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2285 return; /* suspend gc */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2286 gc_finish_mark ();
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2287 case FINISH_MARK:
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2288 gc_finalize ();
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2289 kkcc_gc_stack_free ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2290 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2291 kkcc_bt_free ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2292 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2293 case FINALIZE:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2294 gc_sweep ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2295 case SWEEP:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2296 gc_finish ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2297 case FINISH_GC:
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2298 break;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2299 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2300 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2301
5046 d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	2302 static void
d4f666cda5e6 some random fixups Ben Wing <ben@xemacs.org> parents: 5016 diff changeset	2303 gc (int incremental)
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2304 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2305 if (gc_currently_forbidden
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2306 \|\| in_display
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2307 \|\| preparing_for_armageddon)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2308 return;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2309
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2310 /* Very important to prevent GC during any of the following
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2311 stuff that might run Lisp code; otherwise, we'll likely
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2312 have infinite GC recursion. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2313 speccount = begin_gc_forbidden ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2314
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2315 show_gc_cursor_and_message ();
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2316
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2317 gc_1 (incremental);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2318
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2319 remove_gc_cursor_and_message ();
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2320
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2321 /* now stop inhibiting GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2322 unbind_to (speccount);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2323 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2324
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2325 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2326 gc_full (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2327 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2328 gc (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2329 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2330
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2331 DEFUN ("gc-full", Fgc_full, 0, 0, "", /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2332 This function performs a full garbage collection. If an incremental
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2333 garbage collection is already running, it completes without any
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2334 further interruption. This function guarantees that unused objects
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2335 are freed when it returns. Garbage collection happens automatically if
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2336 the client allocates more than `gc-cons-threshold' bytes of Lisp data
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2337 since the previous garbage collection.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2338 */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2339 ())
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2340 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2341 gc_full ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2342 return Qt;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2343 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2344
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2345 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2346 gc_incremental (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2347 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2348 gc (allow_incremental_gc);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2349 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2350
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2351 DEFUN ("gc-incremental", Fgc_incremental, 0, 0, "", /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2352 This function starts an incremental garbage collection. If an
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2353 incremental garbage collection is already running, the next cycle
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2354 starts. Note that this function has not necessarily freed any memory
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2355 when it returns. This function only guarantees, that the traversal of
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2356 the heap makes progress. The next cycle of incremental garbage
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2357 collection happens automatically if the client allocates more than
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2358 `gc-incremental-cons-threshold' bytes of Lisp data since previous
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2359 garbage collection.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2360 */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2361 ())
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2362 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2363 gc_incremental ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2364 return Qt;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2365 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2366 #else /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2367 void garbage_collect_1 (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2368 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2369 if (gc_in_progress
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2370 \|\| gc_currently_forbidden
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2371 \|\| in_display
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2372 \|\| preparing_for_armageddon)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2373 return;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2374
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2375 /* Very important to prevent GC during any of the following
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2376 stuff that might run Lisp code; otherwise, we'll likely
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2377 have infinite GC recursion. */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2378 speccount = begin_gc_forbidden ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2379
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2380 show_gc_cursor_and_message ();
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2381
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2382 gc_prepare ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2383 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2384 kkcc_gc_stack_init();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2385 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2386 kkcc_bt_init ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2387 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2388 #endif /* USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2389 gc_mark_root_set ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2390 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2391 kkcc_marking (0);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2392 #endif /* USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2393 gc_finish_mark ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2394 #ifdef USE_KKCC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2395 kkcc_gc_stack_free ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2396 #ifdef DEBUG_XEMACS
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2397 kkcc_bt_free ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2398 #endif
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2399 #endif /* USE_KKCC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2400 gc_sweep_1 ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2401 gc_finish ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2402
3267 a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2403 remove_gc_cursor_and_message ();
a0de8be91f1b [xemacs-hg @ 2006-03-02 17:11:45 by crestani] crestani parents: 3263 diff changeset	2404
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2405 /* now stop inhibiting GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2406 unbind_to (speccount);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2407 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2408 #endif /* not NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2409
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2410
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2411 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2412 /* Initializations */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2413 /************************************************************************/
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2414
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2415 /* Initialization */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2416 static void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2417 common_init_gc_early (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2418 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2419 Vgc_message = Qzero;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2420
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2421 gc_currently_forbidden = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2422 gc_hooks_inhibited = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2423
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2424 need_to_garbage_collect = always_gc;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2425
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2426 gc_cons_threshold = GC_CONS_THRESHOLD;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2427 gc_cons_percentage = 40; /* #### what is optimal? */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2428 total_gc_usage_set = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2429 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2430 gc_cons_incremental_threshold = GC_CONS_INCREMENTAL_THRESHOLD;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2431 gc_incremental_traversal_threshold = GC_INCREMENTAL_TRAVERSAL_THRESHOLD;
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2432 #endif /* NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2433 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2434
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2435 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2436 init_gc_early (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2437 {
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2438 #ifdef NEW_GC
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2439 /* Reset the finalizers_to_run list after pdump_load. */
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2440 Vfinalizers_to_run = Qnil;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2441 #endif /* NEW_GC */
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2442 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2443
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2444 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2445 reinit_gc_early (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2446 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2447 common_init_gc_early ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2448 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2449
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2450 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2451 init_gc_once_early (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2452 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2453 common_init_gc_early ();
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2454 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2455
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2456 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2457 syms_of_gc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2458 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2459 DEFSYMBOL (Qpre_gc_hook);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2460 DEFSYMBOL (Qpost_gc_hook);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2461 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2462 DEFSUBR (Fgc_full);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2463 DEFSUBR (Fgc_incremental);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2464 #ifdef ERROR_CHECK_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2465 DEFSUBR (Fgc_stats);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2466 #endif /* not ERROR_CHECK_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2467 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2468 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2469
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2470 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2471 vars_of_gc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2472 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2473 staticpro_nodump (&pre_gc_cursor);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2474
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4934 diff changeset	2475 QSin_garbage_collection = build_defer_string ("(in garbage collection)");
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2476 staticpro (&QSin_garbage_collection);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2477
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2478 DEFVAR_INT ("gc-cons-threshold", &gc_cons_threshold /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2479 *Number of bytes of consing between full garbage collections.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2480 \"Consing\" is a misnomer in that this actually counts allocation
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2481 of all different kinds of objects, not just conses.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2482 Garbage collection can happen automatically once this many bytes have been
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2483 allocated since the last garbage collection. All data types count.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2484
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2485 Garbage collection happens automatically when `eval' or `funcall' are
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2486 called. (Note that `funcall' is called implicitly as part of evaluation.)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2487 By binding this temporarily to a large number, you can effectively
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2488 prevent garbage collection during a part of the program.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2489
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2490 Normally, you cannot set this value less than 10,000 (if you do, it is
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2491 automatically reset during the next garbage collection). However, if
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2492 XEmacs was compiled with DEBUG_XEMACS, this does not happen, allowing
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2493 you to set this value very low to track down problems with insufficient
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2494 GCPRO'ing. If you set this to a negative number, garbage collection will
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2495 happen at EVERY call to `eval' or `funcall'. This is an extremely
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2496 effective way to check GCPRO problems, but be warned that your XEmacs
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2497 will be unusable! You almost certainly won't have the patience to wait
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2498 long enough to be able to set it back.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2499
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2500 See also `consing-since-gc' and `gc-cons-percentage'.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2501 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2502
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2503 DEFVAR_INT ("gc-cons-percentage", &gc_cons_percentage /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2504 *Percentage of memory allocated between garbage collections.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2505
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2506 Garbage collection will happen if this percentage of the total amount of
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2507 memory used for data (see `lisp-object-memory-usage') has been allocated
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2508 since the last garbage collection. However, it will not happen if less
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2509 than `gc-cons-threshold' bytes have been allocated -- this sets an absolute
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2510 minimum in case very little data has been allocated or the percentage is
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2511 set very low. Set this to 0 to have garbage collection always happen after
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2512 `gc-cons-threshold' bytes have been allocated, regardless of current memory
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2513 usage.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2514
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2515 See also `consing-since-gc' and `gc-cons-threshold'.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2516 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2517
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2518 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2519 DEFVAR_INT ("gc-cons-incremental-threshold",
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2520 &gc_cons_incremental_threshold /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2521 *Number of bytes of consing between cycles of incremental garbage
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2522 collections. \"Consing\" is a misnomer in that this actually counts
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2523 allocation of all different kinds of objects, not just conses. The
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2524 next garbage collection cycle can happen automatically once this many
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2525 bytes have been allocated since the last garbage collection cycle.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2526 All data types count.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2527
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2528 See also `gc-cons-threshold'.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2529 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2530
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2531 DEFVAR_INT ("gc-incremental-traversal-threshold",
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2532 &gc_incremental_traversal_threshold /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2533 *Number of elements processed in one cycle of incremental travesal.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2534 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2535 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2536
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2537 DEFVAR_BOOL ("purify-flag", &purify_flag /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2538 Non-nil means loading Lisp code in order to dump an executable.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2539 This means that certain objects should be allocated in readonly space.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2540 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2541
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2542 DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages /*
4502 8748a3f7ceb4 Handle varalias chains, custom variables in #'user-variable-p. Aidan Kehoe <kehoea@parhasard.net> parents: 4124 diff changeset	2543 *Non-nil means display messages at start and end of garbage collection.
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2544 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2545 garbage_collection_messages = 0;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2546
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2547 DEFVAR_LISP ("pre-gc-hook", &Vpre_gc_hook /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2548 Function or functions to be run just before each garbage collection.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2549 Interrupts, garbage collection, and errors are inhibited while this hook
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2550 runs, so be extremely careful in what you add here. In particular, avoid
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2551 consing, and do not interact with the user.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2552 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2553 Vpre_gc_hook = Qnil;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2554
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2555 DEFVAR_LISP ("post-gc-hook", &Vpost_gc_hook /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2556 Function or functions to be run just after each garbage collection.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2557 Interrupts, garbage collection, and errors are inhibited while this hook
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2558 runs. Each hook is called with one argument which is an alist with
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2559 finalization data.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2560 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2561 Vpost_gc_hook = Qnil;
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2562
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2563 DEFVAR_LISP ("gc-message", &Vgc_message /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2564 String to print to indicate that a garbage collection is in progress.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2565 This is printed in the echo area. If the selected frame is on a
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2566 window system and `gc-pointer-glyph' specifies a value (i.e. a pointer
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2567 image instance) in the domain of the selected frame, the mouse pointer
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2568 will change instead of this message being printed.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2569 */ );
4952 19a72041c5ed Mule-izing, various fixes related to char * arguments Ben Wing <ben@xemacs.org> parents: 4934 diff changeset	2570 Vgc_message = build_defer_string (gc_default_message);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2571
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2572 DEFVAR_LISP ("gc-pointer-glyph", &Vgc_pointer_glyph /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2573 Pointer glyph used to indicate that a garbage collection is in progress.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2574 If the selected window is on a window system and this glyph specifies a
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2575 value (i.e. a pointer image instance) in the domain of the selected
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2576 window, the pointer will be changed as specified during garbage collection.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2577 Otherwise, a message will be printed in the echo area, as controlled
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2578 by `gc-message'.
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2579 */ );
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2580
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2581 #ifdef NEW_GC
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2582 DEFVAR_BOOL ("allow-incremental-gc", &allow_incremental_gc /*
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2583 *Non-nil means to allow incremental garbage collection. Nil prevents
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2584 *incremental garbage collection, the garbage collector then only does
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2585 *full collects (even if (gc-incremental) is called).
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2586 */ );
3263 d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2587
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2588 Vfinalizers_to_run = Qnil;
d674024a8674 [xemacs-hg @ 2006-02-27 16:29:00 by crestani] crestani parents: 3092 diff changeset	2589 staticpro_nodump (&Vfinalizers_to_run);
3092 141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2590 #endif /* NEW_GC */
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2591 }
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2592
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2593 void
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2594 complex_vars_of_gc (void)
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2595 {
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2596 Vgc_pointer_glyph = Fmake_glyph_internal (Qpointer);
141c2920ea48 [xemacs-hg @ 2005-11-25 01:41:31 by crestani] crestani parents: diff changeset	2597 }

Mercurial > hg > xemacs-beta

annotate src/gc.c @ 5707:5fd1b9a95531