guile18/libguile/memmove.c

   1 /* Wrapper to implement ANSI C's memmove using BSD's bcopy. */
   2 /* This function is in the public domain.  --Per Bothner. */
   3
   4
   5 #include <sys/types.h>
   6
   7 #ifdef __STDC__
   8 #define PTR void *
   9 #define CPTR const void *
  10 PTR memmove (PTR, CPTR, size_t);
  11 #else
  12 #define PTR char *
  13 #define CPTR char *
  14 PTR memmove ();
  15 #endif
  16
  17 PTR
  18 memmove (PTR s1, CPTR s2, size_t n)
  19 {
  20   bcopy (s2, s1, n);
  21   return s1;
  22 }
  23
  24 /*
  25   Local Variables:
  26   c-file-style: "gnu"
  27   End:
  28 */