From: tomo <tomo>
Date: Mon, 10 Dec 2001 06:46:24 +0000 (+0000)
Subject: (make_older_vector): Deleted.
X-Git-Tag: r21-2-43-utf-2000-0_18-3~135
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f4401195cc0b3ed233b61236e1ca00666e6f1e64;p=chise%2Fxemacs-chise.git

(make_older_vector): Deleted.
(make_vector_newer_1): Deleted.
(make_vector_newer): Deleted.
---

diff --git a/src/alloc.c b/src/alloc.c
index 402cdca..7193a4b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1157,74 +1157,6 @@ make_vector (size_t length, Lisp_Object object)
   }
 }
 
-#ifdef HAVE_GGC
-Lisp_Object
-make_older_vector (size_t length, Lisp_Object init)
-{
-  struct lcrecord_header* orig_all_lcrecords = all_lcrecords;
-  Lisp_Object obj;
-
-  all_lcrecords = all_older_lcrecords;
-  obj = make_vector (length, init);
-  all_older_lcrecords = all_lcrecords;
-  all_lcrecords = orig_all_lcrecords;
-  return obj;
-}
-
-void make_vector_newer_1 (Lisp_Object v);
-void
-make_vector_newer_1 (Lisp_Object v)
-{
-  struct lcrecord_header* lcrecords = all_older_lcrecords;
-
-  if (lcrecords != NULL)
-    {
-      if (lcrecords == XPNTR (v))
-	{
-	  lcrecords->lheader.older = 0;
-	  all_older_lcrecords = all_older_lcrecords->next;
-	  lcrecords->next = all_lcrecords;
-	  all_lcrecords = lcrecords;
-	  return;
-	}
-      else
-	{
-	  struct lcrecord_header* plcrecords = lcrecords;
-
-	  lcrecords = lcrecords->next;
-	  while (lcrecords != NULL)
-	    {
-	      if (lcrecords == XPNTR (v))
-		{
-		  lcrecords->lheader.older = 0;
-		  plcrecords->next = lcrecords->next;
-		  lcrecords->next = all_lcrecords;
-		  all_lcrecords = lcrecords;
-		  return;
-		}
-	      plcrecords = lcrecords;
-	      lcrecords = lcrecords->next;
-	    }
-	}
-    }
-}
-
-void
-make_vector_newer (Lisp_Object v)
-{
-  int i;
-
-  for (i = 0; i < XVECTOR_LENGTH (v); i++)
-    {
-      Lisp_Object obj = XVECTOR_DATA (v)[i];
-
-      if (VECTORP (obj) && !EQ (obj, v))
-	make_vector_newer (obj);
-    }
-  make_vector_newer_1 (v);
-}
-#endif
-
 DEFUN ("make-vector", Fmake_vector, 2, 2, 0, /*
 Return a new vector of length LENGTH, with each element being OBJECT.
 See also the function `vector'.