config root man

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
Upload File :
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/sx.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_SX_H_)) {
    eval 'sub _SYS_SX_H_ () {1;}' unless defined(&_SYS_SX_H_);
    require 'sys/_lock.ph';
    require 'sys/_sx.ph';
    if(defined(&_KERNEL)) {
	require 'sys/pcpu.ph';
	require 'sys/lock_profile.ph';
	require 'sys/lockstat.ph';
	require 'machine/atomic.ph';
    }
    eval 'sub SX_LOCK_SHARED () {0x1;}' unless defined(&SX_LOCK_SHARED);
    eval 'sub SX_LOCK_SHARED_WAITERS () {0x2;}' unless defined(&SX_LOCK_SHARED_WAITERS);
    eval 'sub SX_LOCK_EXCLUSIVE_WAITERS () {0x4;}' unless defined(&SX_LOCK_EXCLUSIVE_WAITERS);
    eval 'sub SX_LOCK_RECURSED () {0x8;}' unless defined(&SX_LOCK_RECURSED);
    eval 'sub SX_LOCK_FLAGMASK () {( &SX_LOCK_SHARED |  &SX_LOCK_SHARED_WAITERS |  &SX_LOCK_EXCLUSIVE_WAITERS |  &SX_LOCK_RECURSED);}' unless defined(&SX_LOCK_FLAGMASK);
    eval 'sub SX_OWNER {
        my($x) = @_;
	    eval q((($x) & ~ &SX_LOCK_FLAGMASK));
    }' unless defined(&SX_OWNER);
    eval 'sub SX_SHARERS_SHIFT () {4;}' unless defined(&SX_SHARERS_SHIFT);
    eval 'sub SX_SHARERS {
        my($x) = @_;
	    eval q(( &SX_OWNER($x) >>  &SX_SHARERS_SHIFT));
    }' unless defined(&SX_SHARERS);
    eval 'sub SX_SHARERS_LOCK {
        my($x) = @_;
	    eval q((($x) <<  &SX_SHARERS_SHIFT |  &SX_LOCK_SHARED));
    }' unless defined(&SX_SHARERS_LOCK);
    eval 'sub SX_ONE_SHARER () {(1<<  &SX_SHARERS_SHIFT);}' unless defined(&SX_ONE_SHARER);
    eval 'sub SX_LOCK_UNLOCKED () { &SX_SHARERS_LOCK(0);}' unless defined(&SX_LOCK_UNLOCKED);
    eval 'sub SX_LOCK_DESTROYED () {( &SX_LOCK_SHARED_WAITERS |  &SX_LOCK_EXCLUSIVE_WAITERS);}' unless defined(&SX_LOCK_DESTROYED);
    if(defined(&_KERNEL)) {
	eval 'sub sx_init {
	    my($sx, $desc) = @_;
    	    eval q( &sx_init_flags(($sx), ($desc), 0));
	}' unless defined(&sx_init);
	if(defined( &INVARIANTS) || defined( &INVARIANT_SUPPORT)) {
	}
	if(defined(&DDB)) {
	}
	eval 'sub sx_downgrade_ {
	    my($sx, $file, $line) = @_;
    	    eval q( &_sx_downgrade(($sx), ($file), ($line)));
	}' unless defined(&sx_downgrade_);
	eval 'sub sx_try_slock_ {
	    my($sx, $file, $line) = @_;
    	    eval q( &_sx_try_slock(($sx), ($file), ($line)));
	}' unless defined(&sx_try_slock_);
	eval 'sub sx_try_xlock_ {
	    my($sx, $file, $line) = @_;
    	    eval q( &_sx_try_xlock(($sx), ($file), ($line)));
	}' unless defined(&sx_try_xlock_);
	eval 'sub sx_try_upgrade_ {
	    my($sx, $file, $line) = @_;
    	    eval q( &_sx_try_upgrade(($sx), ($file), ($line)));
	}' unless defined(&sx_try_upgrade_);
	eval 'sub SX_SYSINIT_FLAGS {
	    my($name, $sxa, $desc, $flags) = @_;
    	    eval q( &static \'struct sx_args\' $name &_args = { ($sxa), ($desc), ($flags) };  &SYSINIT($name &_sx_sysinit,  &SI_SUB_LOCK,  &SI_ORDER_MIDDLE,  &sx_sysinit, $name &_args);  &SYSUNINIT($name &_sx_sysuninit,  &SI_SUB_LOCK,  &SI_ORDER_MIDDLE,  &sx_destroy, ($sxa)));
	}' unless defined(&SX_SYSINIT_FLAGS);
	eval 'sub SX_SYSINIT {
	    my($name, $sxa, $desc) = @_;
    	    eval q( &SX_SYSINIT_FLAGS($name, $sxa, $desc, 0));
	}' unless defined(&SX_SYSINIT);
	unless(defined(&LOCK_DEBUG)) {
	    die("LOCK_DEBUG not defined, include <sys/lock.h> before <sys/sx.h>");
	}
	if(((defined(&LOCK_DEBUG) ? &LOCK_DEBUG : undef) > 0) || defined( &SX_NOINLINE)) {
	    eval 'sub sx_xlock_ {
	        my($sx, $file, $line) = @_;
    		eval q(( &void) &_sx_xlock(($sx), 0, ($file), ($line)));
	    }' unless defined(&sx_xlock_);
	    eval 'sub sx_xlock_sig_ {
	        my($sx, $file, $line) = @_;
    		eval q( &_sx_xlock(($sx),  &SX_INTERRUPTIBLE, ($file), ($line)));
	    }' unless defined(&sx_xlock_sig_);
	    eval 'sub sx_xunlock_ {
	        my($sx, $file, $line) = @_;
    		eval q( &_sx_xunlock(($sx), ($file), ($line)));
	    }' unless defined(&sx_xunlock_);
	    eval 'sub sx_slock_ {
	        my($sx, $file, $line) = @_;
    		eval q(( &void) &_sx_slock(($sx), 0, ($file), ($line)));
	    }' unless defined(&sx_slock_);
	    eval 'sub sx_slock_sig_ {
	        my($sx, $file, $line) = @_;
    		eval q( &_sx_slock(($sx),  &SX_INTERRUPTIBLE, ($file) , ($line)));
	    }' unless defined(&sx_slock_sig_);
	    eval 'sub sx_sunlock_ {
	        my($sx, $file, $line) = @_;
    		eval q( &_sx_sunlock(($sx), ($file), ($line)));
	    }' unless defined(&sx_sunlock_);
	} else {
	    eval 'sub sx_xlock_ {
	        my($sx, $file, $line) = @_;
    		eval q(( &void) &__sx_xlock(($sx),  &curthread, 0, ($file), ($line)));
	    }' unless defined(&sx_xlock_);
	    eval 'sub sx_xlock_sig_ {
	        my($sx, $file, $line) = @_;
    		eval q( &__sx_xlock(($sx),  &curthread,  &SX_INTERRUPTIBLE, ($file), ($line)));
	    }' unless defined(&sx_xlock_sig_);
	    eval 'sub sx_xunlock_ {
	        my($sx, $file, $line) = @_;
    		eval q( &__sx_xunlock(($sx),  &curthread, ($file), ($line)));
	    }' unless defined(&sx_xunlock_);
	    eval 'sub sx_slock_ {
	        my($sx, $file, $line) = @_;
    		eval q(( &void) &__sx_slock(($sx), 0, ($file), ($line)));
	    }' unless defined(&sx_slock_);
	    eval 'sub sx_slock_sig_ {
	        my($sx, $file, $line) = @_;
    		eval q( &__sx_slock(($sx),  &SX_INTERRUPTIBLE, ($file), ($line)));
	    }' unless defined(&sx_slock_sig_);
	    eval 'sub sx_sunlock_ {
	        my($sx, $file, $line) = @_;
    		eval q( &__sx_sunlock(($sx), ($file), ($line)));
	    }' unless defined(&sx_sunlock_);
	}
	eval 'sub sx_try_slock {
	    my($sx) = @_;
    	    eval q( &sx_try_slock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_try_slock);
	eval 'sub sx_try_xlock {
	    my($sx) = @_;
    	    eval q( &sx_try_xlock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_try_xlock);
	eval 'sub sx_try_upgrade {
	    my($sx) = @_;
    	    eval q( &sx_try_upgrade_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_try_upgrade);
	eval 'sub sx_downgrade {
	    my($sx) = @_;
    	    eval q( &sx_downgrade_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_downgrade);
	if(defined(&INVARIANTS)) {
	    eval 'sub sx_assert_ {
	        my($sx, $what, $file, $line) = @_;
    		eval q( &_sx_assert(($sx), ($what), ($file), ($line)));
	    }' unless defined(&sx_assert_);
	} else {
	    eval 'sub sx_assert_ {
	        my($sx, $what, $file, $line) = @_;
    		eval q(( &void)0);
	    }' unless defined(&sx_assert_);
	}
	eval 'sub sx_xlock {
	    my($sx) = @_;
    	    eval q( &sx_xlock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_xlock);
	eval 'sub sx_xlock_sig {
	    my($sx) = @_;
    	    eval q( &sx_xlock_sig_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_xlock_sig);
	eval 'sub sx_xunlock {
	    my($sx) = @_;
    	    eval q( &sx_xunlock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_xunlock);
	eval 'sub sx_slock {
	    my($sx) = @_;
    	    eval q( &sx_slock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_slock);
	eval 'sub sx_slock_sig {
	    my($sx) = @_;
    	    eval q( &sx_slock_sig_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_slock_sig);
	eval 'sub sx_sunlock {
	    my($sx) = @_;
    	    eval q( &sx_sunlock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_sunlock);
	eval 'sub sx_assert {
	    my($sx, $what) = @_;
    	    eval q( &sx_assert_(($sx), ($what),  &__FILE__,  &__LINE__));
	}' unless defined(&sx_assert);
	eval 'sub sx_xholder {
	    my($sx) = @_;
    	    eval q((($sx)-> &sx_lock &  &SX_LOCK_SHARED ?  &NULL :  &SX_OWNER(($sx)-> &sx_lock)));
	}' unless defined(&sx_xholder);
	eval 'sub sx_xlocked {
	    my($sx) = @_;
    	    eval q(((($sx)-> &sx_lock & ~( &SX_LOCK_FLAGMASK & ~ &SX_LOCK_SHARED)) == ( &uintptr_t) &curthread));
	}' unless defined(&sx_xlocked);
	eval 'sub sx_unlock_ {
	    my($sx, $file, $line) = @_;
    	    eval q( &do {  &if ( &sx_xlocked($sx))  &sx_xunlock_($sx, $file, $line);  &else  &sx_sunlock_($sx, $file, $line); }  &while (0));
	}' unless defined(&sx_unlock_);
	eval 'sub sx_unlock {
	    my($sx) = @_;
    	    eval q( &sx_unlock_(($sx),  &LOCK_FILE,  &LOCK_LINE));
	}' unless defined(&sx_unlock);
	eval 'sub sx_sleep {
	    my($chan, $sx, $pri, $wmesg, $timo) = @_;
    	    eval q( &_sleep(($chan), ($sx)-> &lock_object, ($pri), ($wmesg), ($timo)));
	}' unless defined(&sx_sleep);
	eval 'sub SX_DUPOK () {0x1;}' unless defined(&SX_DUPOK);
	eval 'sub SX_NOPROFILE () {0x2;}' unless defined(&SX_NOPROFILE);
	eval 'sub SX_NOWITNESS () {0x4;}' unless defined(&SX_NOWITNESS);
	eval 'sub SX_QUIET () {0x8;}' unless defined(&SX_QUIET);
	eval 'sub SX_NOADAPTIVE () {0x10;}' unless defined(&SX_NOADAPTIVE);
	eval 'sub SX_RECURSE () {0x20;}' unless defined(&SX_RECURSE);
	eval 'sub SX_INTERRUPTIBLE () {0x40;}' unless defined(&SX_INTERRUPTIBLE);
	if(defined( &INVARIANTS) || defined( &INVARIANT_SUPPORT)) {
	    eval 'sub SA_LOCKED () { &LA_LOCKED;}' unless defined(&SA_LOCKED);
	    eval 'sub SA_SLOCKED () { &LA_SLOCKED;}' unless defined(&SA_SLOCKED);
	    eval 'sub SA_XLOCKED () { &LA_XLOCKED;}' unless defined(&SA_XLOCKED);
	    eval 'sub SA_UNLOCKED () { &LA_UNLOCKED;}' unless defined(&SA_UNLOCKED);
	    eval 'sub SA_RECURSED () { &LA_RECURSED;}' unless defined(&SA_RECURSED);
	    eval 'sub SA_NOTRECURSED () { &LA_NOTRECURSED;}' unless defined(&SA_NOTRECURSED);
	    eval 'sub SX_LOCKED () { &LA_LOCKED;}' unless defined(&SX_LOCKED);
	    eval 'sub SX_SLOCKED () { &LA_SLOCKED;}' unless defined(&SX_SLOCKED);
	    eval 'sub SX_XLOCKED () { &LA_XLOCKED;}' unless defined(&SX_XLOCKED);
	    eval 'sub SX_UNLOCKED () { &LA_UNLOCKED;}' unless defined(&SX_UNLOCKED);
	    eval 'sub SX_RECURSED () { &LA_RECURSED;}' unless defined(&SX_RECURSED);
	    eval 'sub SX_NOTRECURSED () { &LA_NOTRECURSED;}' unless defined(&SX_NOTRECURSED);
	}
    }
}
1;

Man Man