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

/*
char id_getpid[] = "@(#)getpid_.c	1.1";
 *
 * get process id
 *
 * calling sequence:
 *	integer getpid, pid
 *	pid = getpid()
 * where:
 *	pid will be the current process id
 */

long getpid_()
{
	return((long)getpid());
}
Commit	Line	Data
ecbce1aa DW	1	/*
	2	char id_getpid[] = "@(#)getpid_.c 1.1";
	3	*
	4	* get process id
	5	*
	6	* calling sequence:
	7	* integer getpid, pid
	8	* pid = getpid()
	9	* where:
	10	* pid will be the current process id
	11	*/
	12
	13	long getpid_()
	14	{
	15	return((long)getpid());
	16	}