Repatch (from linux) of OSX IRAF

1 files changed, 34 insertions, 0 deletions

diff --git a/unix/boot/bootlib/osamovb.c b/unix/boot/bootlib/osamovb.c
new file mode 100644
index 00000000..71b1d2d0
--- /dev/null
+++ b/unix/boot/bootlib/osamovb.c
@@ -0,0 +1,34 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#define import_spp
+#define import_knames
+#include <iraf.h>
+
+
+/* OS_AMOVB -- Memory to memory copy using BYTMOV.
+ */
+void
+os_amovb (
+  char	*a,
+  char	*b,
+  int	nbytes
+)
+{
+	XCHAR	*a_wp, *b_wp;
+	XINT	a_off, b_off;
+
+	extern void BYTMOV();
+
+
+	a_wp = (XCHAR *)a;
+	b_wp = (XCHAR *)b;
+
+	/* The following offsets can be something other than one if the
+	 * buffers are not word aligned.
+	 */
+	a_off = a - (char *)a_wp + 1;
+	b_off = b - (char *)b_wp + 1;
+	
+	BYTMOV (a_wp, &a_off, b_wp, &b_off, &nbytes);
+}