ada_lwp_self.c « files « gcc34 « lang - pkgsrc - [no description]

[no description]

Dyson

summary refs log tree commit diff

path: root/lang/gcc34/files/ada_lwp_self.c

blob: c4b205c60ca17f1f73963547904499e10b37f244 (plain)

/* Binding to _lwp_self for the Ada RTS */
#include <lwp.h>

lwpid_t ada_lwp_self(void) {
    return _lwp_self();
}