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 } 18