From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 15 Aug 2000 19:24:42 +0000 (+0000)
Subject: (compact_small_strings): Use safe_bcopy, add an
X-Git-Tag: emacs-pretest-21.0.90~2290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2407477eaa3e4107ae2968f2edda042105dbf94;p=emacs.git

(compact_small_strings): Use safe_bcopy, add an
assertion.
---

diff --git a/src/alloc.c b/src/alloc.c
index 497c01c707d..b955c951ec8 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1280,7 +1280,8 @@ compact_small_strings ()
 	      /* Copy, and update the string's `data' pointer.  */
 	      if (from != to)
 		{
-		  bcopy (from, to, nbytes);
+		  xassert (tb != b || to <= from);
+		  safe_bcopy ((char *) from, (char *) to, nbytes);
 		  to->string->data = to->u.data;
 		}