1*47944Sbostic /*- 2*47944Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47944Sbostic * All rights reserved. 42536Sdlw * 5*47944Sbostic * %sccs.include.proprietary.c% 623036Skre */ 723036Skre 8*47944Sbostic #ifndef lint 9*47944Sbostic static char sccsid[] = "@(#)loc_.c 5.2 (Berkeley) 04/12/91"; 10*47944Sbostic #endif /* not lint */ 11*47944Sbostic 1223036Skre /* 132536Sdlw * Return the address of the argument. 142536Sdlw * 152536Sdlw * calling sequence: 162536Sdlw * iloc = loc (arg) 172536Sdlw * where: 182536Sdlw * iloc will receive the address of arg 192536Sdlw */ 202536Sdlw loc_(arg)212536Sdlwlong loc_(arg) 222536Sdlw long *arg; 232536Sdlw { 242536Sdlw return((long)arg); 252536Sdlw } 26