| Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/lock.ph |
require '_h2ph_pre.ph';
no warnings 'redefine';
unless(defined(&_SYS_LOCK_H_)) {
eval 'sub _SYS_LOCK_H_ () {1;}' unless defined(&_SYS_LOCK_H_);
require 'sys/queue.ph';
require 'sys/_lock.ph';
eval 'sub LC_SLEEPLOCK () {0x1;}' unless defined(&LC_SLEEPLOCK);
eval 'sub LC_SPINLOCK () {0x2;}' unless defined(&LC_SPINLOCK);
eval 'sub LC_SLEEPABLE () {0x4;}' unless defined(&LC_SLEEPABLE);
eval 'sub LC_RECURSABLE () {0x8;}' unless defined(&LC_RECURSABLE);
eval 'sub LC_UPGRADABLE () {0x10;}' unless defined(&LC_UPGRADABLE);
eval 'sub LO_CLASSFLAGS () {0xffff;}' unless defined(&LO_CLASSFLAGS);
eval 'sub LO_INITIALIZED () {0x10000;}' unless defined(&LO_INITIALIZED);
eval 'sub LO_WITNESS () {0x20000;}' unless defined(&LO_WITNESS);
eval 'sub LO_QUIET () {0x40000;}' unless defined(&LO_QUIET);
eval 'sub LO_RECURSABLE () {0x80000;}' unless defined(&LO_RECURSABLE);
eval 'sub LO_SLEEPABLE () {0x100000;}' unless defined(&LO_SLEEPABLE);
eval 'sub LO_UPGRADABLE () {0x200000;}' unless defined(&LO_UPGRADABLE);
eval 'sub LO_DUPOK () {0x400000;}' unless defined(&LO_DUPOK);
eval 'sub LO_CLASSMASK () {0xf000000;}' unless defined(&LO_CLASSMASK);
eval 'sub LO_NOPROFILE () {0x10000000;}' unless defined(&LO_NOPROFILE);
eval 'sub LO_CLASSSHIFT () {24;}' unless defined(&LO_CLASSSHIFT);
eval 'sub LO_CLASSINDEX {
my($lock) = @_;
eval q((((($lock)-> &lo_flags) & &LO_CLASSMASK) >> &LO_CLASSSHIFT));
}' unless defined(&LO_CLASSINDEX);
eval 'sub LOCK_CLASS {
my($lock) = @_;
eval q(( $lock_classes[ &LO_CLASSINDEX(($lock))]));
}' unless defined(&LOCK_CLASS);
eval 'sub LOCK_CLASS_MAX () {( &LO_CLASSMASK >> &LO_CLASSSHIFT);}' unless defined(&LOCK_CLASS_MAX);
eval 'sub LOP_NEWORDER () {0x1;}' unless defined(&LOP_NEWORDER);
eval 'sub LOP_QUIET () {0x2;}' unless defined(&LOP_QUIET);
eval 'sub LOP_TRYLOCK () {0x4;}' unless defined(&LOP_TRYLOCK);
eval 'sub LOP_EXCLUSIVE () {0x8;}' unless defined(&LOP_EXCLUSIVE);
eval 'sub LOP_DUPOK () {0x10;}' unless defined(&LOP_DUPOK);
eval 'sub LA_MASKASSERT () {0xff;}' unless defined(&LA_MASKASSERT);
eval 'sub LA_UNLOCKED () {0x;}' unless defined(&LA_UNLOCKED);
eval 'sub LA_LOCKED () {0x1;}' unless defined(&LA_LOCKED);
eval 'sub LA_SLOCKED () {0x2;}' unless defined(&LA_SLOCKED);
eval 'sub LA_XLOCKED () {0x4;}' unless defined(&LA_XLOCKED);
eval 'sub LA_RECURSED () {0x8;}' unless defined(&LA_RECURSED);
eval 'sub LA_NOTRECURSED () {0x10;}' unless defined(&LA_NOTRECURSED);
if(defined(&_KERNEL)) {
if(defined( &KLD_MODULE) || defined( &WITNESS) || defined( &INVARIANTS) || defined( &INVARIANT_SUPPORT) || defined( &KTR) || defined( &LOCK_PROFILING)) {
eval 'sub LOCK_DEBUG () {1;}' unless defined(&LOCK_DEBUG);
} else {
eval 'sub LOCK_DEBUG () {0;}' unless defined(&LOCK_DEBUG);
}
if((defined(&LOCK_DEBUG) ? &LOCK_DEBUG : undef) > 0) {
eval 'sub LOCK_FILE () { &__FILE__;}' unless defined(&LOCK_FILE);
eval 'sub LOCK_LINE () { &__LINE__;}' unless defined(&LOCK_LINE);
} else {
eval 'sub LOCK_FILE () { &NULL;}' unless defined(&LOCK_FILE);
eval 'sub LOCK_LINE () {0;}' unless defined(&LOCK_LINE);
}
eval 'sub LOCK_LOG_TEST {
my($lo, $flags) = @_;
eval q(((($flags) & &LOP_QUIET) == 0 && (($lo)-> &lo_flags & &LO_QUIET) == 0));
}' unless defined(&LOCK_LOG_TEST);
eval 'sub LOCK_LOG_LOCK {
my($opname, $lo, $flags, $recurse, $file, $line) = @_;
eval q( &do { &if ( &LOCK_LOG_TEST(, )) &CTR6( &KTR_LOCK, $opname \\" (%s) %s %p r = %d at %s:%d\\", ($LOCK_CLASS->{lc_name}), -> &lo_name, , ($recurse), ($file), ($line)); } &while (0));
}' unless defined(&LOCK_LOG_LOCK);
eval 'sub LOCK_LOG_TRY {
my($opname, $lo, $flags, $result, $file, $line) = @_;
eval q( &do { &if ( &LOCK_LOG_TEST(, )) &CTR6( &KTR_LOCK, \\"TRY_\\" $opname \\" (%s) %s %p result=%d at %s:%d\\", ($LOCK_CLASS->{lc_name}), -> &lo_name, , ($result), ($file), ($line)); } &while (0));
}' unless defined(&LOCK_LOG_TRY);
eval 'sub LOCK_LOG_INIT {
my($lo, $flags) = @_;
eval q( &do { &if ( &LOCK_LOG_TEST(($lo), ($flags))) &CTR4( &KTR_LOCK, \\"%s: %p (%s) %s\\", &__func__, ($lo), &LOCK_CLASS($lo)-> &lc_name, ($lo)-> &lo_name); } &while (0));
}' unless defined(&LOCK_LOG_INIT);
eval 'sub LOCK_LOG_DESTROY {
my($lo, $flags) = @_;
eval q( &LOCK_LOG_INIT($lo, $flags));
}' unless defined(&LOCK_LOG_DESTROY);
eval 'sub lock_initalized {
my($lo) = @_;
eval q((($lo)-> &lo_flags & &LO_INITIALIZED));
}' unless defined(&lock_initalized);
eval 'sub MPASS {
my($ex) = @_;
eval q( &MPASS4($ex, $ex, &__FILE__, &__LINE__));
}' unless defined(&MPASS);
eval 'sub MPASS2 {
my($ex, $what) = @_;
eval q( &MPASS4($ex, $what, &__FILE__, &__LINE__));
}' unless defined(&MPASS2);
eval 'sub MPASS3 {
my($ex, $file, $line) = @_;
eval q( &MPASS4($ex, $ex, $file, $line));
}' unless defined(&MPASS3);
eval 'sub MPASS4 {
my($ex, $what, $file, $line) = @_;
eval q( &KASSERT(($ex), (\\"Assertion %s failed at %s:%d\\", $what, $file, $line)));
}' unless defined(&MPASS4);
if(defined(&WITNESS)) {
eval 'sub WARN_GIANTOK () {0x1;}' unless defined(&WARN_GIANTOK);
eval 'sub WARN_PANIC () {0x2;}' unless defined(&WARN_PANIC);
eval 'sub WARN_SLEEPOK () {0x4;}' unless defined(&WARN_SLEEPOK);
eval 'sub WITNESS_INIT {
my($lock, $type) = @_;
eval q( &witness_init(($lock), ($type)));
}' unless defined(&WITNESS_INIT);
eval 'sub WITNESS_DESTROY {
my($lock) = @_;
eval q( &witness_destroy($lock));
}' unless defined(&WITNESS_DESTROY);
eval 'sub WITNESS_CHECKORDER {
my($lock, $flags, $file, $line, $interlock) = @_;
eval q( &witness_checkorder(($lock), ($flags), ($file), ($line), ($interlock)));
}' unless defined(&WITNESS_CHECKORDER);
eval 'sub WITNESS_DEFINEORDER {
my($lock1, $lock2) = @_;
eval q( &witness_defineorder(($lock1), ($lock2)));
}' unless defined(&WITNESS_DEFINEORDER);
eval 'sub WITNESS_LOCK {
my($lock, $flags, $file, $line) = @_;
eval q( &witness_lock(($lock), ($flags), ($file), ($line)));
}' unless defined(&WITNESS_LOCK);
eval 'sub WITNESS_UPGRADE {
my($lock, $flags, $file, $line) = @_;
eval q( &witness_upgrade(($lock), ($flags), ($file), ($line)));
}' unless defined(&WITNESS_UPGRADE);
eval 'sub WITNESS_DOWNGRADE {
my($lock, $flags, $file, $line) = @_;
eval q( &witness_downgrade(($lock), ($flags), ($file), ($line)));
}' unless defined(&WITNESS_DOWNGRADE);
eval 'sub WITNESS_UNLOCK {
my($lock, $flags, $file, $line) = @_;
eval q( &witness_unlock(($lock), ($flags), ($file), ($line)));
}' unless defined(&WITNESS_UNLOCK);
eval 'sub WITNESS_CHECK () {( &flags, &lock, &fmt, ...) &witness_warn(( &flags), ( &lock), ( &fmt), &__VA_ARGS__);}' unless defined(&WITNESS_CHECK);
eval 'sub WITNESS_WARN () {( &flags, &lock, &fmt, ...) &witness_warn(( &flags), ( &lock), ( &fmt), &__VA_ARGS__);}' unless defined(&WITNESS_WARN);
eval 'sub WITNESS_SAVE_DECL {
my($n) = @_;
eval q( &const \'char\' * &__CONCAT($n, &__wf); \'int\' &__CONCAT($n, &__wl));
}' unless defined(&WITNESS_SAVE_DECL);
eval 'sub WITNESS_SAVE {
my($lock, $n) = @_;
eval q( &witness_save(($lock), & &__CONCAT($n, &__wf), & &__CONCAT($n, &__wl)));
}' unless defined(&WITNESS_SAVE);
eval 'sub WITNESS_RESTORE {
my($lock, $n) = @_;
eval q( &witness_restore(($lock), &__CONCAT($n, &__wf), &__CONCAT($n, &__wl)));
}' unless defined(&WITNESS_RESTORE);
eval 'sub WITNESS_NORELEASE {
my($lock) = @_;
eval q( &witness_norelease(($lock)-> &lock_object));
}' unless defined(&WITNESS_NORELEASE);
eval 'sub WITNESS_RELEASEOK {
my($lock) = @_;
eval q( &witness_releaseok(($lock)-> &lock_object));
}' unless defined(&WITNESS_RELEASEOK);
eval 'sub WITNESS_FILE {
my($lock) = @_;
eval q( &witness_file($lock));
}' unless defined(&WITNESS_FILE);
eval 'sub WITNESS_LINE {
my($lock) = @_;
eval q( &witness_line($lock));
}' unless defined(&WITNESS_LINE);
} else {
eval 'sub WITNESS_INIT {
my($lock, $type) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_INIT);
eval 'sub WITNESS_DESTROY {
my($lock) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_DESTROY);
eval 'sub WITNESS_DEFINEORDER {
my($lock1, $lock2) = @_;
eval q(0);
}' unless defined(&WITNESS_DEFINEORDER);
eval 'sub WITNESS_CHECKORDER {
my($lock, $flags, $file, $line, $interlock) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_CHECKORDER);
eval 'sub WITNESS_LOCK {
my($lock, $flags, $file, $line) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_LOCK);
eval 'sub WITNESS_UPGRADE {
my($lock, $flags, $file, $line) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_UPGRADE);
eval 'sub WITNESS_DOWNGRADE {
my($lock, $flags, $file, $line) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_DOWNGRADE);
eval 'sub WITNESS_UNLOCK {
my($lock, $flags, $file, $line) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_UNLOCK);
eval 'sub WITNESS_CHECK () {( &flags, &lock, &fmt, ...) 0;}' unless defined(&WITNESS_CHECK);
eval 'sub WITNESS_WARN () {( &flags, &lock, &fmt, ...) ( &void)0;}' unless defined(&WITNESS_WARN);
eval 'sub WITNESS_SAVE_DECL {
my($n) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_SAVE_DECL);
eval 'sub WITNESS_SAVE {
my($lock, $n) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_SAVE);
eval 'sub WITNESS_RESTORE {
my($lock, $n) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_RESTORE);
eval 'sub WITNESS_NORELEASE {
my($lock) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_NORELEASE);
eval 'sub WITNESS_RELEASEOK {
my($lock) = @_;
eval q(( &void)0);
}' unless defined(&WITNESS_RELEASEOK);
eval 'sub WITNESS_FILE {
my($lock) = @_;
eval q((\\"?\\"));
}' unless defined(&WITNESS_FILE);
eval 'sub WITNESS_LINE {
my($lock) = @_;
eval q((0));
}' unless defined(&WITNESS_LINE);
}
eval 'sub witness_check {
my($l) = @_;
eval q( &WITNESS_CHECKORDER(($l)-> &lock_object, &LOP_EXCLUSIVE, &LOCK_FILE, &LOCK_LINE, &NULL));
}' unless defined(&witness_check);
eval 'sub witness_check_shared {
my($l) = @_;
eval q( &WITNESS_CHECKORDER(($l)-> &lock_object, 0, &LOCK_FILE, &LOCK_LINE, &NULL));
}' unless defined(&witness_check_shared);
}
}
1;