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 * @(#)loc_.c 5.1 06/07/85 7 */ 8 9 /* 10 * Return the address of the argument. 11 * 12 * calling sequence: 13 * iloc = loc (arg) 14 * where: 15 * iloc will receive the address of arg 16 */ 17 18 long loc_(arg) 19 long *arg; 20 { 21 return((long)arg); 22 } 23