diff options
| author | Miles Bader | 2004-09-15 09:00:10 +0000 |
|---|---|---|
| committer | Miles Bader | 2004-09-15 09:00:10 +0000 |
| commit | a63aa6924c6a4bb92dfdb524627c13c791615e2b (patch) | |
| tree | 771f503928d8f4486f462405107334910302e3ad /src/alloc.c | |
| parent | a88eb4ae4abf8cf3f83ecd4ad08e86db7345ae22 (diff) | |
| parent | 5c2137b83cb6cf1ffc32e26ff091cf1785a9bf1a (diff) | |
| download | emacs-a63aa6924c6a4bb92dfdb524627c13c791615e2b.tar.gz emacs-a63aa6924c6a4bb92dfdb524627c13c791615e2b.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-40
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-535
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-536
sync-tree with gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-537
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-538
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-539
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-540
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-541
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-542
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-545
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-546
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-547
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-548
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-549
Use symbol-matching for generic-mode keywords
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-550
Update from CVS
* miles@gnu.org--gnu-2004/gnus--devo--0--patch-2
Add {arch}/=cvs-sync-make-log
* miles@gnu.org--gnu-2004/gnus--rel--5.8--base-0
Import from Gnus CVS branch V5-8
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-1
{arch}/=tagging-method: Add CVS and autoconf grot to junk regexp
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-2
Use explicit tags for autoconf input files
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-3
Remove RCS keywords
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-4
Fix copied explicit id-tags
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-5
Add {arch}/=cvs-sync-make-log
* miles@gnu.org--gnu-2004/gnus--rel--5.8--patch-6
configure.in: Use ifelse instead of m4_if for arch-tag: comment
* miles@gnu.org--gnu-2004/gnus--rel--5.10--base-0
tag of miles@gnu.org--gnu-2004/gnus--rel--5.8--base-0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-1
Gnus 5.10, from CVS branch v5-10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-2
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-3
Use explicit tags for autoconf input files
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-4
sync-tree with gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-5
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-6
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-7
Remove RCS keywords
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-8
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-9
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-10
Add {arch}/=cvs-sync-make-log
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-11
Merge from gnus--rel--5.8
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-12
Update from CVS: make.bat: Fix line endings around arch-tag.
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-13
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-17
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-21
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-22
Update from CVS: lisp/nndb.el (require): Remove tcp and duplicate cl.
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-23
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-24
lisp/nnimap.el (nnimap-open-connection): Remove extraneous end-paren
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-25
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-26
Update from CVS
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/src/alloc.c b/src/alloc.c index 567b8c7a925..4b31ec7897e 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Storage allocation and gc for GNU Emacs Lisp interpreter. | 1 | /* Storage allocation and gc for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1985,86,88,93,94,95,97,98,1999,2000,01,02,03,2004 | 2 | Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999, |
| 3 | Free Software Foundation, Inc. | 3 | 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -4411,6 +4411,20 @@ returns nil, because real GC can't be done. */) | |||
| 4411 | for (i = 0; i < staticidx; i++) | 4411 | for (i = 0; i < staticidx; i++) |
| 4412 | mark_object (*staticvec[i]); | 4412 | mark_object (*staticvec[i]); |
| 4413 | 4413 | ||
| 4414 | for (bind = specpdl; bind != specpdl_ptr; bind++) | ||
| 4415 | { | ||
| 4416 | mark_object (bind->symbol); | ||
| 4417 | mark_object (bind->old_value); | ||
| 4418 | } | ||
| 4419 | mark_kboards (); | ||
| 4420 | |||
| 4421 | #ifdef USE_GTK | ||
| 4422 | { | ||
| 4423 | extern void xg_mark_data (); | ||
| 4424 | xg_mark_data (); | ||
| 4425 | } | ||
| 4426 | #endif | ||
| 4427 | |||
| 4414 | #if (GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS \ | 4428 | #if (GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS \ |
| 4415 | || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) | 4429 | || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) |
| 4416 | mark_stack (); | 4430 | mark_stack (); |
| @@ -4424,11 +4438,6 @@ returns nil, because real GC can't be done. */) | |||
| 4424 | #endif | 4438 | #endif |
| 4425 | 4439 | ||
| 4426 | mark_byte_stack (); | 4440 | mark_byte_stack (); |
| 4427 | for (bind = specpdl; bind != specpdl_ptr; bind++) | ||
| 4428 | { | ||
| 4429 | mark_object (bind->symbol); | ||
| 4430 | mark_object (bind->old_value); | ||
| 4431 | } | ||
| 4432 | for (catch = catchlist; catch; catch = catch->next) | 4441 | for (catch = catchlist; catch; catch = catch->next) |
| 4433 | { | 4442 | { |
| 4434 | mark_object (catch->tag); | 4443 | mark_object (catch->tag); |
| @@ -4440,19 +4449,11 @@ returns nil, because real GC can't be done. */) | |||
| 4440 | mark_object (handler->var); | 4449 | mark_object (handler->var); |
| 4441 | } | 4450 | } |
| 4442 | mark_backtrace (); | 4451 | mark_backtrace (); |
| 4443 | mark_kboards (); | ||
| 4444 | 4452 | ||
| 4445 | #if GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES | 4453 | #if GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES |
| 4446 | mark_stack (); | 4454 | mark_stack (); |
| 4447 | #endif | 4455 | #endif |
| 4448 | 4456 | ||
| 4449 | #ifdef USE_GTK | ||
| 4450 | { | ||
| 4451 | extern void xg_mark_data (); | ||
| 4452 | xg_mark_data (); | ||
| 4453 | } | ||
| 4454 | #endif | ||
| 4455 | |||
| 4456 | /* Everything is now marked, except for the things that require special | 4457 | /* Everything is now marked, except for the things that require special |
| 4457 | finalization, i.e. the undo_list. | 4458 | finalization, i.e. the undo_list. |
| 4458 | Look thru every buffer's undo list | 4459 | Look thru every buffer's undo list |