/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.339 by fx, Mon Jun 2 18:31:29 2003 UTC revision 1.340 by monnier, Sun Jul 6 19:29:48 2003 UTC
# Line 1  Line 1 
1  /* Random utility Lisp functions.  /* Random utility Lisp functions.
2     Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002     Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 02, 2003
3     Free Software Foundation, Inc.     Free Software Foundation, Inc.
4    
5  This file is part of GNU Emacs.  This file is part of GNU Emacs.
# Line 4748  sweep_weak_table (h, remove_entries_p) Line 4748  sweep_weak_table (h, remove_entries_p)
4748                    /* Make sure key and value survive.  */                    /* Make sure key and value survive.  */
4749                    if (!key_known_to_survive_p)                    if (!key_known_to_survive_p)
4750                      {                      {
4751                        mark_object (&HASH_KEY (h, i));                        mark_object (HASH_KEY (h, i));
4752                        marked = 1;                        marked = 1;
4753                      }                      }
4754    
4755                    if (!value_known_to_survive_p)                    if (!value_known_to_survive_p)
4756                      {                      {
4757                        mark_object (&HASH_VALUE (h, i));                        mark_object (HASH_VALUE (h, i));
4758                        marked = 1;                        marked = 1;
4759                      }                      }
4760                  }                  }

Legend:
Removed from v.1.339  
changed lines
  Added in v.1.340

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26