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

/*
char id_ierrno[] = "@(#)ierrno_.c	1.1";
 *
 * 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 DW	1	/*
	2	char id_ierrno[] = "@(#)ierrno_.c 1.1";
	3	*
	4	* return the current value of the system error register
	5	*
	6	* calling sequence:
	7	* ier = ierrno()
	8	* where:
	9	* ier will receive the current value of errno
	10	*/
	11
	12	extern int errno;
	13
	14	long ierrno_()
	15	{
	16	return((long)errno);
	17	}