From a41def49afa5ae30c41950d03f7dcfbaf9cdd929 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Fri, 21 Apr 1989 13:09:43 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/gutil/bmove.src | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/gutil/bmove.src

diff --git a/WEGA/contrib/ingres/dbs/src/gutil/bmove.src b/WEGA/contrib/ingres/dbs/src/gutil/bmove.src
new file mode 100644
index 0000000..cae5f97
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/gutil/bmove.src
@@ -0,0 +1,17 @@
+/*
+**  BMOVE -- block move
+**
+**	Moves a  block of  storage of  length  'n' bytes from the
+**	data area pointed to by 'p' to the area pointed to by 'q'.
+**	Returns the  address of the byte  following the 'q' field.
+**	Overflow of 'q' is not tested.
+*/
+char	*AAbmove(p, q, n)
+register char	*p;
+register char	*q;
+register int	n;
+{
+	while (n--)
+		*q++ = *p++;
+	return (q);
+}