1*47940Sbostic /*-
2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic * All rights reserved.
422888Skre *
5*47940Sbostic * %sccs.include.proprietary.c%
610480Sdlw */
710480Sdlw
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)ef1asc_.c 5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic
1210480Sdlw /* EFL support routine to copy string b to string a */
1310480Sdlw
1410480Sdlw #define M ( (long) (sizeof(long) - 1) )
1510480Sdlw #define EVEN(x) ( ( (x)+ M) & (~M) )
1610480Sdlw
ef1asc_(a,la,b,lb)1710480Sdlw ef1asc_(a, la, b, lb)
1810480Sdlw int *a, *b;
1910480Sdlw long int *la, *lb;
2010480Sdlw {
2110480Sdlw s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
2210480Sdlw }
23