[unix-history] / usr / src / usr.bin / f77 / libU77 / loc_.c

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * This module is believed to contain source code proprietary to AT&T.
 * Use and redistribution is subject to the Berkeley Software License
 * Agreement and your Software Agreement with AT&T (Western Electric).
 */

#ifndef lint
static char sccsid[] = "@(#)loc_.c	5.2 (Berkeley) 4/12/91";
#endif /* not lint */

/*
 * Return the address of the argument.
 *
 * calling sequence:
 *	iloc = loc (arg)
 * where:
 *	iloc will receive the address of arg
 */

long loc_(arg)
long *arg;
{
	return((long)arg);
}
Commit	Line	Data
82492b51 KB	1	/*-
	2	* Copyright (c) 1980 The Regents of the University of California.
	3	* All rights reserved.
a17473cc	4	*
ad787160 C	5	* This module is believed to contain source code proprietary to AT&T.
	6	* Use and redistribution is subject to the Berkeley Software License
	7	* Agreement and your Software Agreement with AT&T (Western Electric).
161423a6 RE	8	*/
161423a6 RE	9
82492b51	10	#ifndef lint
ad787160	11	static char sccsid[] = "@(#)loc_.c 5.2 (Berkeley) 4/12/91";
82492b51 KB	12	#endif /* not lint */
82492b51 KB	13
161423a6	14	/*
a17473cc DW	15	* Return the address of the argument.
	16	*
	17	* calling sequence:
	18	* iloc = loc (arg)
	19	* where:
	20	* iloc will receive the address of arg
	21	*/
	22
	23	long loc_(arg)
	24	long *arg;
	25	{
	26	return((long)arg);
	27	}