Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / libguile / memmove.c

diff --git a/guile18/libguile/memmove.c b/guile18/libguile/memmove.c
new file mode 100644 (file)
index 0000000..a62083f
--- /dev/null
+++ b/guile18/libguile/memmove.c
@@ -0,0 +1,28 @@
+/* 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:
+*/