| Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/thread_db.ph |
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_THREAD_DB_H)) {
eval 'sub _THREAD_DB_H () {1;}' unless defined(&_THREAD_DB_H);
require 'pthread.ph';
require 'stdint.ph';
require 'sys/types.ph';
require 'sys/procfs.ph';
eval("sub TD_OK () { 0; }") unless defined(&TD_OK);
eval("sub TD_ERR () { 1; }") unless defined(&TD_ERR);
eval("sub TD_NOTHR () { 2; }") unless defined(&TD_NOTHR);
eval("sub TD_NOSV () { 3; }") unless defined(&TD_NOSV);
eval("sub TD_NOLWP () { 4; }") unless defined(&TD_NOLWP);
eval("sub TD_BADPH () { 5; }") unless defined(&TD_BADPH);
eval("sub TD_BADTH () { 6; }") unless defined(&TD_BADTH);
eval("sub TD_BADSH () { 7; }") unless defined(&TD_BADSH);
eval("sub TD_BADTA () { 8; }") unless defined(&TD_BADTA);
eval("sub TD_BADKEY () { 9; }") unless defined(&TD_BADKEY);
eval("sub TD_NOMSG () { 10; }") unless defined(&TD_NOMSG);
eval("sub TD_NOFPREGS () { 11; }") unless defined(&TD_NOFPREGS);
eval("sub TD_NOLIBTHREAD () { 12; }") unless defined(&TD_NOLIBTHREAD);
eval("sub TD_NOEVENT () { 13; }") unless defined(&TD_NOEVENT);
eval("sub TD_NOCAPAB () { 14; }") unless defined(&TD_NOCAPAB);
eval("sub TD_DBERR () { 15; }") unless defined(&TD_DBERR);
eval("sub TD_NOAPLIC () { 16; }") unless defined(&TD_NOAPLIC);
eval("sub TD_NOTSD () { 17; }") unless defined(&TD_NOTSD);
eval("sub TD_MALLOC () { 18; }") unless defined(&TD_MALLOC);
eval("sub TD_PARTIALREG () { 19; }") unless defined(&TD_PARTIALREG);
eval("sub TD_NOXREGS () { 20; }") unless defined(&TD_NOXREGS);
eval("sub TD_TLSDEFER () { 21; }") unless defined(&TD_TLSDEFER);
eval("sub TD_NOTALLOC () { TD_TLSDEFER; }") unless defined(&TD_NOTALLOC);
eval("sub TD_VERSION () { 1; }") unless defined(&TD_VERSION);
eval("sub TD_NOTLS () { 2; }") unless defined(&TD_NOTLS);
eval("sub TD_THR_ANY_STATE () { 0; }") unless defined(&TD_THR_ANY_STATE);
eval("sub TD_THR_UNKNOWN () { 1; }") unless defined(&TD_THR_UNKNOWN);
eval("sub TD_THR_STOPPED () { 2; }") unless defined(&TD_THR_STOPPED);
eval("sub TD_THR_RUN () { 3; }") unless defined(&TD_THR_RUN);
eval("sub TD_THR_ACTIVE () { 4; }") unless defined(&TD_THR_ACTIVE);
eval("sub TD_THR_ZOMBIE () { 5; }") unless defined(&TD_THR_ZOMBIE);
eval("sub TD_THR_SLEEP () { 6; }") unless defined(&TD_THR_SLEEP);
eval("sub TD_THR_STOPPED_ASLEEP () { 7; }") unless defined(&TD_THR_STOPPED_ASLEEP);
eval("sub TD_THR_ANY_TYPE () { 0; }") unless defined(&TD_THR_ANY_TYPE);
eval("sub TD_THR_USER () { 1; }") unless defined(&TD_THR_USER);
eval("sub TD_THR_SYSTEM () { 2; }") unless defined(&TD_THR_SYSTEM);
eval 'sub TD_THR_ANY_USER_FLAGS () {0xffffffff;}' unless defined(&TD_THR_ANY_USER_FLAGS);
eval 'sub TD_THR_LOWEST_PRIORITY () {-20;}' unless defined(&TD_THR_LOWEST_PRIORITY);
eval 'sub TD_SIGNO_MASK () { &NULL;}' unless defined(&TD_SIGNO_MASK);
eval 'sub TD_EVENTSIZE () {2;}' unless defined(&TD_EVENTSIZE);
eval 'sub BT_UISHIFT () {5;}' unless defined(&BT_UISHIFT);
eval 'sub BT_NBIPUI () {(1<< &BT_UISHIFT);}' unless defined(&BT_NBIPUI);
eval 'sub BT_UIMASK () {( &BT_NBIPUI - 1);}' unless defined(&BT_UIMASK);
eval 'sub __td_eventmask {
my($n) = @_;
eval q(( &UINT32_C (1) << ((($n) - 1) & &BT_UIMASK)));
}' unless defined(&__td_eventmask);
eval 'sub __td_eventword {
my($n) = @_;
eval q((( &UINT32_C (($n) - 1)) >> &BT_UISHIFT));
}' unless defined(&__td_eventword);
eval 'sub td_event_emptyset {
my($setp) = @_;
eval q( &do { \'int\' &__i; &for ( &__i = &TD_EVENTSIZE; &__i > 0; -- &__i) ($setp)-> $event_bits[ &__i - 1] = 0; } &while (0));
}' unless defined(&td_event_emptyset);
eval 'sub td_event_fillset {
my($setp) = @_;
eval q( &do { \'int\' &__i; &for ( &__i = &TD_EVENTSIZE; &__i > 0; -- &__i) ($setp)-> $event_bits[ &__i - 1] = &UINT32_C (0xffffffff); } &while (0));
}' unless defined(&td_event_fillset);
eval 'sub td_event_addset {
my($setp, $n) = @_;
eval q(((($setp)-> $event_bits[ &__td_eventword ($n)]) |= &__td_eventmask ($n)));
}' unless defined(&td_event_addset);
eval 'sub td_event_delset {
my($setp, $n) = @_;
eval q(((($setp)-> $event_bits[ &__td_eventword ($n)]) &= ~ &__td_eventmask ($n)));
}' unless defined(&td_event_delset);
eval 'sub td_eventismember {
my($setp, $n) = @_;
eval q(( &__td_eventmask ($n) & (($setp)-> $event_bits[ &__td_eventword ($n)])));
}' unless defined(&td_eventismember);
if((defined(&TD_EVENTSIZE) ? &TD_EVENTSIZE : undef) == 2) {
eval 'sub td_eventisempty {
my($setp) = @_;
eval q((!(($setp)-> $event_bits[0]) && !(($setp)-> $event_bits[1])));
}' unless defined(&td_eventisempty);
} else {
die("td_eventisempty must be changed to match TD_EVENTSIZE");
}
eval("sub TD_ALL_EVENTS () { 0; }") unless defined(&TD_ALL_EVENTS);
eval("sub TD_EVENT_NONE () { TD_ALL_EVENTS; }") unless defined(&TD_EVENT_NONE);
eval("sub TD_READY () { 1; }") unless defined(&TD_READY);
eval("sub TD_SLEEP () { 2; }") unless defined(&TD_SLEEP);
eval("sub TD_SWITCHTO () { 3; }") unless defined(&TD_SWITCHTO);
eval("sub TD_SWITCHFROM () { 4; }") unless defined(&TD_SWITCHFROM);
eval("sub TD_LOCK_TRY () { 5; }") unless defined(&TD_LOCK_TRY);
eval("sub TD_CATCHSIG () { 6; }") unless defined(&TD_CATCHSIG);
eval("sub TD_IDLE () { 7; }") unless defined(&TD_IDLE);
eval("sub TD_CREATE () { 8; }") unless defined(&TD_CREATE);
eval("sub TD_DEATH () { 9; }") unless defined(&TD_DEATH);
eval("sub TD_PREEMPT () { 10; }") unless defined(&TD_PREEMPT);
eval("sub TD_PRI_INHERIT () { 11; }") unless defined(&TD_PRI_INHERIT);
eval("sub TD_REAP () { 12; }") unless defined(&TD_REAP);
eval("sub TD_CONCURRENCY () { 13; }") unless defined(&TD_CONCURRENCY);
eval("sub TD_TIMEOUT () { 14; }") unless defined(&TD_TIMEOUT);
eval("sub TD_MIN_EVENT_NUM () { TD_READY; }") unless defined(&TD_MIN_EVENT_NUM);
eval("sub TD_MAX_EVENT_NUM () { TD_TIMEOUT; }") unless defined(&TD_MAX_EVENT_NUM);
eval("sub TD_EVENTS_ENABLE () { 31; }") unless defined(&TD_EVENTS_ENABLE);
eval("sub NOTIFY_BPT () { 0; }") unless defined(&NOTIFY_BPT);
eval("sub NOTIFY_AUTOBPT () { 1; }") unless defined(&NOTIFY_AUTOBPT);
eval("sub NOTIFY_SYSCALL () { 2; }") unless defined(&NOTIFY_SYSCALL);
if(0) {
}
}
1;