[bpt/guile.git] / libguile / memmove.c

/* Wrapper to implement ANSI C's memmove using BSD's bcopy. */
/* This function is in the public domain.  --Per Bothner. */

/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
   gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */

#include <sys/types.h>

#ifdef __STDC__
#define PTR void *
#define CPTR const void *
PTR memmove (PTR, CPTR, size_t);
#else
#define PTR char *
#define CPTR char *
PTR memmove ();
#endif

PTR
memmove (PTR s1, CPTR s2, size_t n)
{
  bcopy (s2, s1, n);
  return s1;
}
Commit	Line	Data
be881b46 JB	1	/* Wrapper to implement ANSI C's memmove using BSD's bcopy. */
	2	/* This function is in the public domain. --Per Bothner. */
	3
6e8d25a6 GB	4	/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
	5	gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
	6
be881b46 JB	7	#include <sys/types.h>
	8
	9	#ifdef __STDC__
	10	#define PTR void *
	11	#define CPTR const void *
	12	PTR memmove (PTR, CPTR, size_t);
	13	#else
	14	#define PTR char *
	15	#define CPTR char *
	16	PTR memmove ();
	17	#endif
	18
	19	PTR
6e8d25a6	20	memmove (PTR s1, CPTR s2, size_t n)
be881b46 JB	21	{
	22	bcopy (s2, s1, n);
	23	return s1;
	24	}