exp_memmove.c

   1 /* memmove - some systems lack this */
   2
   3 #include "expect_cf.h"
   4 #include "tcl.h"
   5
   6 /* like memcpy but can handle overlap */
   7 #ifndef HAVE_MEMMOVE
   8 char *
   9 memmove(dest,src,n)
  10 VOID *dest;
  11 CONST VOID *src;
  12 int n;
  13 {
  14         char *d;
  15         CONST char *s;
  16
  17         d = dest;
  18         s = src;
  19         if (s<d && (d < s+n)) {
  20                 for (d+=n, s+=n; 0<n; --n)
  21                         *--d = *--s;
  22         } else for (;0<n;--n) *d++ = *s++;
  23         return dest;
  24 }
  25 #endif /* HAVE_MEMMOVE */