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/cpuset.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_CPUSET_H_)) { eval 'sub _SYS_CPUSET_H_ () {1;}' unless defined(&_SYS_CPUSET_H_); require 'sys/_cpuset.ph'; eval 'sub CPUSETBUFSIZ () {((2+ $sizeof{\'long\'} * 2) * &_NCPUWORDS);}' unless defined(&CPUSETBUFSIZ); eval 'sub __cpuset_mask { my($n) = @_; eval q((1<< (( &_NCPUWORDS == 1) ? ( &__size_t)($n) : (($n) % &_NCPUBITS)))); }' unless defined(&__cpuset_mask); eval 'sub __cpuset_word { my($n) = @_; eval q((( &_NCPUWORDS == 1) ? 0: (($n) / &_NCPUBITS))); }' unless defined(&__cpuset_word); eval 'sub CPU_CLR { my($n, $p) = @_; eval q((($p)-> $__bits[ &__cpuset_word($n)] &= ~ &__cpuset_mask($n))); }' unless defined(&CPU_CLR); eval 'sub CPU_COPY { my($f, $t) = @_; eval q(( &void)(*($t) = *($f))); }' unless defined(&CPU_COPY); eval 'sub CPU_ISSET { my($n, $p) = @_; eval q(((($p)-> $__bits[ &__cpuset_word($n)] & &__cpuset_mask($n)) != 0)); }' unless defined(&CPU_ISSET); eval 'sub CPU_SET { my($n, $p) = @_; eval q((($p)-> $__bits[ &__cpuset_word($n)] |= &__cpuset_mask($n))); }' unless defined(&CPU_SET); eval 'sub CPU_ZERO { my($p) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) ($p)-> $__bits[ &__i] = 0; } &while (0)); }' unless defined(&CPU_ZERO); eval 'sub CPU_FILL { my($p) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) ($p)-> $__bits[ &__i] = -1; } &while (0)); }' unless defined(&CPU_FILL); eval 'sub CPU_SETOF { my($n, $p) = @_; eval q( &do { &CPU_ZERO($p); (($p)-> $__bits[ &__cpuset_word($n)] = &__cpuset_mask($n)); } &while (0)); }' unless defined(&CPU_SETOF); eval 'sub CPU_EMPTY { my($p) = @_; eval q( &__extension__ ({ &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &if (($p)-> $__bits[ &__i]) &break; &__i == &_NCPUWORDS; })); }' unless defined(&CPU_EMPTY); eval 'sub CPU_ISFULLSET { my($p) = @_; eval q( &__extension__ ({ &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &if (($p)-> $__bits[ &__i] != -1) &break; &__i == &_NCPUWORDS; })); }' unless defined(&CPU_ISFULLSET); eval 'sub CPU_SUBSET { my($p, $c) = @_; eval q( &__extension__ ({ &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &if ((($c)-> $__bits[ &__i] & ($p)-> $__bits[ &__i]) != ($c)-> $__bits[ &__i]) &break; &__i == &_NCPUWORDS; })); }' unless defined(&CPU_SUBSET); eval 'sub CPU_OVERLAP { my($p, $c) = @_; eval q( &__extension__ ({ &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &if ((($c)-> $__bits[ &__i] & ($p)-> $__bits[ &__i]) != 0) &break; &__i != &_NCPUWORDS; })); }' unless defined(&CPU_OVERLAP); eval 'sub CPU_CMP { my($p, $c) = @_; eval q( &__extension__ ({ &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &if ((($c)-> $__bits[ &__i] != ($p)-> $__bits[ &__i])) &break; &__i != &_NCPUWORDS; })); }' unless defined(&CPU_CMP); eval 'sub CPU_OR { my($d, $s) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) ($d)-> $__bits[ &__i] |= ($s)-> $__bits[ &__i]; } &while (0)); }' unless defined(&CPU_OR); eval 'sub CPU_AND { my($d, $s) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) ($d)-> $__bits[ &__i] &= ($s)-> $__bits[ &__i]; } &while (0)); }' unless defined(&CPU_AND); eval 'sub CPU_NAND { my($d, $s) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) ($d)-> $__bits[ &__i] &= ~($s)-> $__bits[ &__i]; } &while (0)); }' unless defined(&CPU_NAND); eval 'sub CPU_CLR_ATOMIC { my($n, $p) = @_; eval q( &atomic_clear_long(($p)-> $__bits[ &__cpuset_word($n)], &__cpuset_mask($n))); }' unless defined(&CPU_CLR_ATOMIC); eval 'sub CPU_SET_ATOMIC { my($n, $p) = @_; eval q( &atomic_set_long(($p)-> $__bits[ &__cpuset_word($n)], &__cpuset_mask($n))); }' unless defined(&CPU_SET_ATOMIC); eval 'sub CPU_OR_ATOMIC { my($d, $s) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &atomic_set_long(($d)-> $__bits[ &__i], ($s)-> $__bits[ &__i]); } &while (0)); }' unless defined(&CPU_OR_ATOMIC); eval 'sub CPU_COPY_STORE_REL { my($f, $t) = @_; eval q( &do { &__size_t &__i; &for ( &__i = 0; &__i < &_NCPUWORDS; &__i++) &atomic_store_rel_long(($t)-> $__bits[ &__i], ($f)-> $__bits[ &__i]); } &while (0)); }' unless defined(&CPU_COPY_STORE_REL); eval 'sub CPU_LEVEL_ROOT () {1;}' unless defined(&CPU_LEVEL_ROOT); eval 'sub CPU_LEVEL_CPUSET () {2;}' unless defined(&CPU_LEVEL_CPUSET); eval 'sub CPU_LEVEL_WHICH () {3;}' unless defined(&CPU_LEVEL_WHICH); eval 'sub CPU_WHICH_TID () {1;}' unless defined(&CPU_WHICH_TID); eval 'sub CPU_WHICH_PID () {2;}' unless defined(&CPU_WHICH_PID); eval 'sub CPU_WHICH_CPUSET () {3;}' unless defined(&CPU_WHICH_CPUSET); eval 'sub CPU_WHICH_IRQ () {4;}' unless defined(&CPU_WHICH_IRQ); eval 'sub CPU_WHICH_JAIL () {5;}' unless defined(&CPU_WHICH_JAIL); eval 'sub CPUSET_INVALID () {-1;}' unless defined(&CPUSET_INVALID); eval 'sub CPUSET_DEFAULT () {0;}' unless defined(&CPUSET_DEFAULT); if(defined(&_KERNEL)) { eval 'sub CPU_SET_ROOT () {0x1;}' unless defined(&CPU_SET_ROOT); eval 'sub CPU_SET_RDONLY () {0x2;}' unless defined(&CPU_SET_RDONLY); } else { } } 1;