(compact_small_strings): Use safe_bcopy, add an

assertion.

diff --git a/src/alloc.c b/src/alloc.c
index 497c01c707d8c6385c6291be14ef4fea6752d173..b955c951ec85eb37b342db460436f05adf4a0661 100644 (file)
--- 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;
                }