1: /* 2: * Copyright (c) 1980 Regents of the University of California. 3: * All rights reserved. The Berkeley software License Agreement 4: * specifies the terms and conditions for redistribution. 5: * 6: * @(#)ierrno_.c 5.1 6/7/85 7: */ 8: 9: /* 10: * return the current value of the system error register 11: * 12: * calling sequence: 13: * ier = ierrno() 14: * where: 15: * ier will receive the current value of errno 16: */ 17: 18: extern int errno; 19: 20: long ierrno_() 21: { 22: return((long)errno); 23: }