pkgsrc/lang/gcc34-ada/files/ada_lwp_self.c

6 lines
116 B
C

/* Binding to _lwp_self for the Ada RTS */
#include <lwp.h>
lwpid_t ada_lwp_self(void) {
return _lwp_self();
}