1*47946Sbostic /*-
2*47946Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47946Sbostic  * All rights reserved.
4*47946Sbostic  *
5*47946Sbostic  * %sccs.include.proprietary.c%
6*47946Sbostic  */
7*47946Sbostic 
8*47946Sbostic #ifndef lint
9*47946Sbostic static char sccsid[] = "@(#)serrno_.c	5.2 (Berkeley) 04/12/91";
10*47946Sbostic #endif /* not lint */
11*47946Sbostic 
1244001Sbostic extern int errno;
serrno_(n)1344001Sbostic serrno_(n)
1444001Sbostic long *n;
1544001Sbostic {	errno = *n; }
16