2.9BSD - /usr/src/lib/libU77/ierrno_.c

   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: #include    "../libI77/fiodefs.h"
  13: 
  14: extern int errno;
  15: 
  16: ftnint ierrno_()
  17: {
  18:     return((ftnint)errno);
  19: }

Defined functions