[unix-history] / usr / src / usr.lib / libU77 / ierrno_.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)ierrno_.c	5.1	6/7/85
 */

/*
 * return the current value of the system error register
 *
 * calling sequence:
 *	ier = ierrno()
 * where:
 *	ier will receive the current value of errno
 */

extern int errno;

long ierrno_()
{
	return((long)errno);
}
Commit	Line	Data
76830492	1	/*
161423a6 RE	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
76830492	5	*
95f51977	6	* @(#)ierrno_.c 5.1 6/7/85
161423a6 RE	7	*/
	8
	9	/*
76830492 DW	10	* return the current value of the system error register
	11	*
	12	* calling sequence:
	13	* ier = ierrno()
	14	* where:
	15	* ier will receive the current value of errno
	16	*/
	17
	18	extern int errno;
	19
	20	long ierrno_()
	21	{
	22	return((long)errno);
	23	}