diff options
| author | Stefan Monnier | 2003-07-06 19:29:48 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-07-06 19:29:48 +0000 |
| commit | 9568e3d87ef915b3546c99eca27f37fe39aabb06 (patch) | |
| tree | ad3e935dd2769f639f96ead0311edf13048ed0a8 /src | |
| parent | 3ebb87296165662a2958e1e63ca70cfe95626662 (diff) | |
| download | emacs-9568e3d87ef915b3546c99eca27f37fe39aabb06.tar.gz emacs-9568e3d87ef915b3546c99eca27f37fe39aabb06.zip | |
(sweep_weak_table): Update calls to mark_object.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Random utility Lisp functions. | 1 | /* Random utility Lisp functions. |
| 2 | Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002 | 2 | Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 02, 2003 |
| 3 | Free Software Foundation, Inc. | 3 | Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| @@ -4748,13 +4748,13 @@ sweep_weak_table (h, remove_entries_p) | |||
| 4748 | /* Make sure key and value survive. */ | 4748 | /* Make sure key and value survive. */ |
| 4749 | if (!key_known_to_survive_p) | 4749 | if (!key_known_to_survive_p) |
| 4750 | { | 4750 | { |
| 4751 | mark_object (&HASH_KEY (h, i)); | 4751 | mark_object (HASH_KEY (h, i)); |
| 4752 | marked = 1; | 4752 | marked = 1; |
| 4753 | } | 4753 | } |
| 4754 | 4754 | ||
| 4755 | if (!value_known_to_survive_p) | 4755 | if (!value_known_to_survive_p) |
| 4756 | { | 4756 | { |
| 4757 | mark_object (&HASH_VALUE (h, i)); | 4757 | mark_object (HASH_VALUE (h, i)); |
| 4758 | marked = 1; | 4758 | marked = 1; |
| 4759 | } | 4759 | } |
| 4760 | } | 4760 | } |