12529Sdlw /* 2*23025Skre * Copyright (c) 1980 Regents of the University of California. 3*23025Skre * All rights reserved. The Berkeley software License Agreement 4*23025Skre * specifies the terms and conditions for redistribution. 52529Sdlw * 6*23025Skre * @(#)getpid_.c 5.1 06/07/85 7*23025Skre */ 8*23025Skre 9*23025Skre /* 102529Sdlw * get process id 112529Sdlw * 122529Sdlw * calling sequence: 132529Sdlw * integer getpid, pid 142529Sdlw * pid = getpid() 152529Sdlw * where: 162529Sdlw * pid will be the current process id 172529Sdlw */ 182529Sdlw 192529Sdlw long getpid_() 202529Sdlw { 212529Sdlw return((long)getpid()); 222529Sdlw } 23