Source position: pthrlinux.inc line 289
function pthread_once(
__once_control: Ppthread_once_t;
__init_routine: Tprocedure
):cint;