blob: 8c5bb3516829c3b903a9504ab7320b0b1918a630 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_knames
#include <iraf.h>
/* BYTMOV -- Byte move from array "a" to array "b". The move must be
* nondestructive, allowing a byte array to be shifted left or right a
* few bytes, hence comparison of the addresses of the arrays is necessary
* to determine if they overlap.
* [Specially optimized version for Sun/IRAF].
*/
BYTMOV (a, aoff, b, boff, nbytes)
XCHAR *a; /* input byte array */
XINT *aoff; /* first byte in A to be moved */
XCHAR *b; /* output byte array */
XINT *boff; /* first byte in B to be written */
XINT *nbytes; /* number of bytes to move */
{
bcopy ((char *)a + (*aoff-1), (char *)b + (*boff-1), *nbytes);
}
|
