1*47944Sbostic /*- 2*47944Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47944Sbostic * All rights reserved. 42520Sdlw * 5*47944Sbostic * %sccs.include.proprietary.c% 623031Skre */ 723031Skre 8*47944Sbostic #ifndef lint 9*47944Sbostic static char sccsid[] = "@(#)ierrno_.c 5.2 (Berkeley) 04/12/91"; 10*47944Sbostic #endif /* not lint */ 11*47944Sbostic 1223031Skre /* 132520Sdlw * return the current value of the system error register 142520Sdlw * 152520Sdlw * calling sequence: 162520Sdlw * ier = ierrno() 172520Sdlw * where: 182520Sdlw * ier will receive the current value of errno 192520Sdlw */ 202520Sdlw 212520Sdlw extern int errno; 222520Sdlw ierrno_()232520Sdlwlong ierrno_() 242520Sdlw { 252520Sdlw return((long)errno); 262520Sdlw } 27