xref: /original-bsd/usr.bin/f77/libU77/getpid_.c (revision 0f89e6eb)
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  *	@(#)getpid_.c	5.1	06/07/85
7  */
8 
9 /*
10  * get process id
11  *
12  * calling sequence:
13  *	integer getpid, pid
14  *	pid = getpid()
15  * where:
16  *	pid will be the current process id
17  */
18 
19 long getpid_()
20 {
21 	return((long)getpid());
22 }
23