changeset 25762:515645780a5a

(Fgarbage_collect): Remove unused variable. (compact_strings): Add parentheses around assignments in conditional context. (toplevel): Put declaration of unused function clear_marks in #if 0 like its definition.

--- a/src/alloc.c	Sun Sep 19 21:17:17 1999 +0000
+++ b/src/alloc.c	Sun Sep 19 21:46:42 1999 +0000
@@ -198,10 +198,13 @@
 Lisp_Object Qgc_cons_threshold, Qchar_table_extra_slots;
 
 static void mark_buffer (), mark_kboards ();
-static void clear_marks (), gc_sweep ();
+static void gc_sweep ();
 static void compact_strings ();
 static void mark_glyph_matrix P_ ((struct glyph_matrix *));
 static void mark_face_cache P_ ((struct face_cache *));
+#if 0
+static void clear_marks ();
+#endif
 
 #ifdef HAVE_WINDOW_SYSTEM
 static void mark_image P_ ((struct image *));
@@ -1750,7 +1753,6 @@
   struct catchtag *catch;
   struct handler *handler;
   register struct backtrace *backlist;
-  register Lisp_Object tem;
   char stack_top_variable;
   register int i;
   int message_p;
@@ -3209,11 +3211,11 @@
      unlikely that that one will become empty, so why bother checking?  */
 
   from_sb = first_string_block;
-  while (to_sb = from_sb->next)
+  while ((to_sb = from_sb->next) != 0)
     {
       if (to_sb->pos == 0)
 	{
-	  if (from_sb->next = to_sb->next)
+	  if ((from_sb->next = to_sb->next) != 0)
 	    from_sb->next->prev = from_sb;
 	  lisp_free (to_sb);
 	  n_string_blocks--;