Logo Search packages:      
Sourcecode: c2man version File versions  Download package

amiga.c

/*
** $PROJECT:
**
** $VER: amiga.c 2.1 (22.01.95)
**
** by
**
** Stefan Ruppert , Windthorststra_e 5 , 65439 Flvrsheim , GERMANY
**
** (C) Copyright 1995
** All Rights Reserved !
**
** $HISTORY:
**
** 22.01.95 : 000.001 : initial
*/

#include "/c2man.h"

/* return Process ID.
 * The Amiga has no really process id , so return the address of TCB
*/

long getpid(void)
{
   return(((long) FindTask(NULL)));
}


Generated by  Doxygen 1.6.0   Back to index