12520Sdlw /* 2*23031Skre * Copyright (c) 1980 Regents of the University of California. 3*23031Skre * All rights reserved. The Berkeley software License Agreement 4*23031Skre * specifies the terms and conditions for redistribution. 52520Sdlw * 6*23031Skre * @(#)ierrno_.c 5.1 06/07/85 7*23031Skre */ 8*23031Skre 9*23031Skre /* 102520Sdlw * return the current value of the system error register 112520Sdlw * 122520Sdlw * calling sequence: 132520Sdlw * ier = ierrno() 142520Sdlw * where: 152520Sdlw * ier will receive the current value of errno 162520Sdlw */ 172520Sdlw 182520Sdlw extern int errno; 192520Sdlw 202520Sdlw long ierrno_() 212520Sdlw { 222520Sdlw return((long)errno); 232520Sdlw } 24