xref: /csrg-svn/usr.bin/f77/libU77/getpid_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42529Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623025Skre  */
723025Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)getpid_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223025Skre /*
132529Sdlw  * get process id
142529Sdlw  *
152529Sdlw  * calling sequence:
162529Sdlw  *	integer getpid, pid
172529Sdlw  *	pid = getpid()
182529Sdlw  * where:
192529Sdlw  *	pid will be the current process id
202529Sdlw  */
212529Sdlw 
getpid_()222529Sdlw long getpid_()
232529Sdlw {
242529Sdlw 	return((long)getpid());
252529Sdlw }
26