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