[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. */


#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;
}

/*
  Local Variables:
  c-file-style: "gnu"
  End:
*/
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	4
be881b46 JB	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
6e8d25a6	18	memmove (PTR s1, CPTR s2, size_t n)
be881b46 JB	19	{
	20	bcopy (s2, s1, n);
	21	return s1;
	22	}
89e00824 ML	23
	24	/*
	25	Local Variables:
	26	c-file-style: "gnu"
	27	End:
	28	*/