pthread_once

function pthread_once(

  __once_control: Ppthread_once_t;

  __init_routine: TInitOnceProc

):LongInt;

function pthread_once(

  var __once_control: pthread_once_t;

  __init_routine: Tprocedure

):LongInt;