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/ktr.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_KTR_H_)) { eval 'sub _SYS_KTR_H_ () {1;}' unless defined(&_SYS_KTR_H_); eval 'sub KTR_GEN () {0x1;}' unless defined(&KTR_GEN); eval 'sub KTR_NET () {0x2;}' unless defined(&KTR_NET); eval 'sub KTR_DEV () {0x4;}' unless defined(&KTR_DEV); eval 'sub KTR_LOCK () {0x8;}' unless defined(&KTR_LOCK); eval 'sub KTR_SMP () {0x10;}' unless defined(&KTR_SMP); eval 'sub KTR_SUBSYS () {0x20;}' unless defined(&KTR_SUBSYS); eval 'sub KTR_PMAP () {0x40;}' unless defined(&KTR_PMAP); eval 'sub KTR_MALLOC () {0x80;}' unless defined(&KTR_MALLOC); eval 'sub KTR_TRAP () {0x100;}' unless defined(&KTR_TRAP); eval 'sub KTR_INTR () {0x200;}' unless defined(&KTR_INTR); eval 'sub KTR_SIG () {0x400;}' unless defined(&KTR_SIG); eval 'sub KTR_SPARE2 () {0x800;}' unless defined(&KTR_SPARE2); eval 'sub KTR_PROC () {0x1000;}' unless defined(&KTR_PROC); eval 'sub KTR_SYSC () {0x2000;}' unless defined(&KTR_SYSC); eval 'sub KTR_INIT () {0x4000;}' unless defined(&KTR_INIT); eval 'sub KTR_SPARE3 () {0x8000;}' unless defined(&KTR_SPARE3); eval 'sub KTR_SPARE4 () {0x10000;}' unless defined(&KTR_SPARE4); eval 'sub KTR_EVH () {0x20000;}' unless defined(&KTR_EVH); eval 'sub KTR_VFS () {0x40000;}' unless defined(&KTR_VFS); eval 'sub KTR_VOP () {0x80000;}' unless defined(&KTR_VOP); eval 'sub KTR_VM () {0x100000;}' unless defined(&KTR_VM); eval 'sub KTR_INET () {0x200000;}' unless defined(&KTR_INET); eval 'sub KTR_RUNQ () {0x400000;}' unless defined(&KTR_RUNQ); eval 'sub KTR_CONTENTION () {0x800000;}' unless defined(&KTR_CONTENTION); eval 'sub KTR_UMA () {0x1000000;}' unless defined(&KTR_UMA); eval 'sub KTR_CALLOUT () {0x2000000;}' unless defined(&KTR_CALLOUT); eval 'sub KTR_GEOM () {0x4000000;}' unless defined(&KTR_GEOM); eval 'sub KTR_BUSDMA () {0x8000000;}' unless defined(&KTR_BUSDMA); eval 'sub KTR_INET6 () {0x10000000;}' unless defined(&KTR_INET6); eval 'sub KTR_SCHED () {0x20000000;}' unless defined(&KTR_SCHED); eval 'sub KTR_BUF () {0x40000000;}' unless defined(&KTR_BUF); eval 'sub KTR_ALL () {0x7fffffff;}' unless defined(&KTR_ALL); if(defined(&KTR)) { unless(defined(&KTR_COMPILE)) { eval 'sub KTR_COMPILE () {( &KTR_ALL);}' unless defined(&KTR_COMPILE); } } else { undef(&KTR_COMPILE) if defined(&KTR_COMPILE); eval 'sub KTR_COMPILE () {0;}' unless defined(&KTR_COMPILE); } eval 'sub KTR_VERSION () {2;}' unless defined(&KTR_VERSION); eval 'sub KTR_PARMS () {6;}' unless defined(&KTR_PARMS); unless(defined(&LOCORE)) { require 'sys/param.ph'; require 'sys/_cpuset.ph'; if(defined(&KTR)) { eval 'sub CTR6 { my($m, $format, $p1, $p2, $p3, $p4, $p5, $p6) = @_; eval q( &do { &if ( &KTR_COMPILE & ) &ktr_tracepoint(, &__FILE__, &__LINE__, $format, , , , , , ($p6)); } &while(0)); }' unless defined(&CTR6); eval 'sub CTR0 { my($m, $format) = @_; eval q( &CTR6($m, $format, 0, 0, 0, 0, 0, 0)); }' unless defined(&CTR0); eval 'sub CTR1 { my($m, $format, $p1) = @_; eval q( &CTR6($m, $format, $p1, 0, 0, 0, 0, 0)); }' unless defined(&CTR1); eval 'sub CTR2 { my($m, $format, $p1, $p2) = @_; eval q( &CTR6($m, $format, $p1, $p2, 0, 0, 0, 0)); }' unless defined(&CTR2); eval 'sub CTR3 { my($m, $format, $p1, $p2, $p3) = @_; eval q( &CTR6($m, $format, $p1, $p2, $p3, 0, 0, 0)); }' unless defined(&CTR3); eval 'sub CTR4 { my($m, $format, $p1, $p2, $p3, $p4) = @_; eval q( &CTR6($m, $format, $p1, $p2, $p3, $p4, 0, 0)); }' unless defined(&CTR4); eval 'sub CTR5 { my($m, $format, $p1, $p2, $p3, $p4, $p5) = @_; eval q( &CTR6($m, $format, $p1, $p2, $p3, $p4, $p5, 0)); }' unless defined(&CTR5); } else { eval 'sub CTR0 { my($m, $d) = @_; eval q(( &void)0); }' unless defined(&CTR0); eval 'sub CTR1 { my($m, $d, $p1) = @_; eval q(( &void)0); }' unless defined(&CTR1); eval 'sub CTR2 { my($m, $d, $p1, $p2) = @_; eval q(( &void)0); }' unless defined(&CTR2); eval 'sub CTR3 { my($m, $d, $p1, $p2, $p3) = @_; eval q(( &void)0); }' unless defined(&CTR3); eval 'sub CTR4 { my($m, $d, $p1, $p2, $p3, $p4) = @_; eval q(( &void)0); }' unless defined(&CTR4); eval 'sub CTR5 { my($m, $d, $p1, $p2, $p3, $p4, $p5) = @_; eval q(( &void)0); }' unless defined(&CTR5); eval 'sub CTR6 { my($m, $d, $p1, $p2, $p3, $p4, $p5, $p6) = @_; eval q(( &void)0); }' unless defined(&CTR6); } eval 'sub TR0 { my($d) = @_; eval q( &CTR0( &KTR_GEN, $d)); }' unless defined(&TR0); eval 'sub TR1 { my($d, $p1) = @_; eval q( &CTR1( &KTR_GEN, $d, $p1)); }' unless defined(&TR1); eval 'sub TR2 { my($d, $p1, $p2) = @_; eval q( &CTR2( &KTR_GEN, $d, $p1, $p2)); }' unless defined(&TR2); eval 'sub TR3 { my($d, $p1, $p2, $p3) = @_; eval q( &CTR3( &KTR_GEN, $d, $p1, $p2, $p3)); }' unless defined(&TR3); eval 'sub TR4 { my($d, $p1, $p2, $p3, $p4) = @_; eval q( &CTR4( &KTR_GEN, $d, $p1, $p2, $p3, $p4)); }' unless defined(&TR4); eval 'sub TR5 { my($d, $p1, $p2, $p3, $p4, $p5) = @_; eval q( &CTR5( &KTR_GEN, $d, $p1, $p2, $p3, $p4, $p5)); }' unless defined(&TR5); eval 'sub TR6 { my($d, $p1, $p2, $p3, $p4, $p5, $p6) = @_; eval q( &CTR6( &KTR_GEN, $d, $p1, $p2, $p3, $p4, $p5, $p6)); }' unless defined(&TR6); eval 'sub KTR_ATTR_LINKED () {"linkedto:\\"%s\\"";}' unless defined(&KTR_ATTR_LINKED); eval 'sub KTR_EFMT { my($egroup, $ident, $etype) = @_; eval q(\\"KTRGRAPH group:\\\\\\"\\" $egroup \\"\\\\\\", id:\\\\\\"%s\\\\\\", \\" $etype \\", attributes: \\"); }' unless defined(&KTR_EFMT); eval 'sub KTR_EVENT0 { my($m, $egroup, $ident, $etype, $edat) = @_; eval q( &CTR2($m, &KTR_EFMT($egroup, $ident, $etype) \\"none\\", $ident, $edat)); }' unless defined(&KTR_EVENT0); eval 'sub KTR_EVENT1 { my($m, $egroup, $ident, $etype, $edat, $a0, $v0) = @_; eval q( &CTR3($m, &KTR_EFMT($egroup, $ident, $etype) $a0, $ident, $edat, ($v0))); }' unless defined(&KTR_EVENT1); eval 'sub KTR_EVENT2 { my($m, $egroup, $ident, $etype, $edat, $a0, $v0, $a1, $v1) = @_; eval q( &CTR4($m, &KTR_EFMT($egroup, $ident, $etype) $a0 \\", \\" $a1, $ident, $edat, ($v0), ($v1))); }' unless defined(&KTR_EVENT2); eval 'sub KTR_EVENT3 { my($m, $egroup, $ident, $etype, $edat, $a0, $v0, $a1, $v1, $a2, $v2) = @_; eval q( &CTR5($m, &KTR_EFMT($egroup, $ident, $etype) $a0 \\", \\" $a1 \\", \\" $a2, $ident, $edat, ($v0), ($v1), ($v2))); }' unless defined(&KTR_EVENT3); eval 'sub KTR_EVENT4 { my($m, $egroup, $ident, $etype, $edat, $a0, $v0, $a1, $v1, $a2, $v2, $a3, $v3) = @_; eval q( &CTR6($m, &KTR_EFMT($egroup, $ident, $etype) $a0 \\", \\" $a1 \\", \\" $a2 \\", \\" $a3, $ident, $edat, ($v0), ($v1), ($v2), ($v3))); }' unless defined(&KTR_EVENT4); eval 'sub KTR_STATE0 { my($m, $egroup, $ident, $state) = @_; eval q( &KTR_EVENT0($m, $egroup, $ident, \\"state:\\\\\\"%s\\\\\\"\\", $state)); }' unless defined(&KTR_STATE0); eval 'sub KTR_STATE1 { my($m, $egroup, $ident, $state, $a0, $v0) = @_; eval q( &KTR_EVENT1($m, $egroup, $ident, \\"state:\\\\\\"%s\\\\\\"\\", $state, $a0, ($v0))); }' unless defined(&KTR_STATE1); eval 'sub KTR_STATE2 { my($m, $egroup, $ident, $state, $a0, $v0, $a1, $v1) = @_; eval q( &KTR_EVENT2($m, $egroup, $ident, \\"state:\\\\\\"%s\\\\\\"\\", $state, $a0, ($v0), $a1, ($v1))); }' unless defined(&KTR_STATE2); eval 'sub KTR_STATE3 { my($m, $egroup, $ident, $state, $a0, $v0, $a1, $v1, $a2, $v2) = @_; eval q( &KTR_EVENT3($m, $egroup, $ident, \\"state:\\\\\\"%s\\\\\\"\\", $state, $a0, ($v0), $a1, ($v1), $a2, ($v2))); }' unless defined(&KTR_STATE3); eval 'sub KTR_STATE4 { my($m, $egroup, $ident, $state, $a0, $v0, $a1, $v1, $a2, $v2, $a3, $v3) = @_; eval q( &KTR_EVENT4($m, $egroup, $ident, \\"state:\\\\\\"%s\\\\\\"\\", $state, $a0, ($v0), $a1, ($v1), $a2, ($v2), $a3, ($v3))); }' unless defined(&KTR_STATE4); eval 'sub KTR_COUNTER0 { my($m, $egroup, $ident, $counter) = @_; eval q( &KTR_EVENT0($m, $egroup, $ident, \\"counter:%d\\", $counter)); }' unless defined(&KTR_COUNTER0); eval 'sub KTR_COUNTER1 { my($m, $egroup, $ident, $edat, $a0, $v0) = @_; eval q( &KTR_EVENT1($m, $egroup, $ident, \\"counter:%d\\", &counter, $a0, ($v0))); }' unless defined(&KTR_COUNTER1); eval 'sub KTR_COUNTER2 { my($m, $egroup, $ident, $counter, $a0, $v0, $a1, $v1) = @_; eval q( &KTR_EVENT2($m, $egroup, $ident, \\"counter:%d\\", $counter, $a0, ($v0), $a1, ($v1))); }' unless defined(&KTR_COUNTER2); eval 'sub KTR_COUNTER3 { my($m, $egroup, $ident, $counter, $a0, $v0, $a1, $v1, $a2, $v2) = @_; eval q( &KTR_EVENT3($m, $egroup, $ident, \\"counter:%d\\", $counter, $a0, ($v0), $a1, ($v1), $a2, ($v2))); }' unless defined(&KTR_COUNTER3); eval 'sub KTR_COUNTER4 { my($m, $egroup, $ident, $counter, $a0, $v0, $a1, $v1, $a2, $v2, $a3, $v3) = @_; eval q( &KTR_EVENT4($m, $egroup, $ident, \\"counter:%d\\", $counter, $a0, ($v0), $a1, ($v1), $a2, ($v2), $a3, ($v3))); }' unless defined(&KTR_COUNTER4); eval 'sub KTR_POINT0 { my($m, $egroup, $ident, $point) = @_; eval q( &KTR_EVENT0($m, $egroup, $ident, \\"point:\\\\\\"%s\\\\\\"\\", $point)); }' unless defined(&KTR_POINT0); eval 'sub KTR_POINT1 { my($m, $egroup, $ident, $point, $a0, $v0) = @_; eval q( &KTR_EVENT1($m, $egroup, $ident, \\"point:\\\\\\"%s\\\\\\"\\", $point, $a0, ($v0))); }' unless defined(&KTR_POINT1); eval 'sub KTR_POINT2 { my($m, $egroup, $ident, $point, $a0, $v0, $a1, $v1) = @_; eval q( &KTR_EVENT2($m, $egroup, $ident, \\"point:\\\\\\"%s\\\\\\"\\", $point, $a0, ($v0), $a1, ($v1))); }' unless defined(&KTR_POINT2); eval 'sub KTR_POINT3 { my($m, $egroup, $ident, $point, $a0, $v0, $a1, $v1, $a2, $v2) = @_; eval q( &KTR_EVENT3($m, $egroup, $ident, \\"point:\\\\\\"%s\\\\\\"\\", $point, $a0, ($v0), $a1, ($v1), $a2, ($v2))); }' unless defined(&KTR_POINT3); eval 'sub KTR_POINT4 { my($m, $egroup, $ident, $point, $a0, $v0, $a1, $v1, $a2, $v2, $a3, $v3) = @_; eval q( &KTR_EVENT4($m, $egroup, $ident, \\"point:\\\\\\"%s\\\\\\"\\", $point, $a0, ($v0), $a1, ($v1), $a2, ($v2), $a3, ($v3))); }' unless defined(&KTR_POINT4); if(((defined(&KTR_COMPILE) ? &KTR_COMPILE : undef) & (defined(&KTR_INIT) ? &KTR_INIT : undef)) != 0) { eval 'sub ITR0 { my($d) = @_; eval q( &CTR0( &KTR_INIT, $d)); }' unless defined(&ITR0); eval 'sub ITR1 { my($d, $p1) = @_; eval q( &CTR1( &KTR_INIT, $d, $p1)); }' unless defined(&ITR1); eval 'sub ITR2 { my($d, $p1, $p2) = @_; eval q( &CTR2( &KTR_INIT, $d, $p1, $p2)); }' unless defined(&ITR2); eval 'sub ITR3 { my($d, $p1, $p2, $p3) = @_; eval q( &CTR3( &KTR_INIT, $d, $p1, $p2, $p3)); }' unless defined(&ITR3); eval 'sub ITR4 { my($d, $p1, $p2, $p3, $p4) = @_; eval q( &CTR4( &KTR_INIT, $d, $p1, $p2, $p3, $p4)); }' unless defined(&ITR4); eval 'sub ITR5 { my($d, $p1, $p2, $p3, $p4, $p5) = @_; eval q( &CTR5( &KTR_INIT, $d, $p1, $p2, $p3, $p4, $p5)); }' unless defined(&ITR5); eval 'sub ITR6 { my($d, $p1, $p2, $p3, $p4, $p5, $p6) = @_; eval q( &CTR6( &KTR_INIT, $d, $p1, $p2, $p3, $p4, $p5, $p6)); }' unless defined(&ITR6); } else { eval 'sub ITR0 { my($d) = @_; eval q(); }' unless defined(&ITR0); eval 'sub ITR1 { my($d, $p1) = @_; eval q(); }' unless defined(&ITR1); eval 'sub ITR2 { my($d, $p1, $p2) = @_; eval q(); }' unless defined(&ITR2); eval 'sub ITR3 { my($d, $p1, $p2, $p3) = @_; eval q(); }' unless defined(&ITR3); eval 'sub ITR4 { my($d, $p1, $p2, $p3, $p4) = @_; eval q(); }' unless defined(&ITR4); eval 'sub ITR5 { my($d, $p1, $p2, $p3, $p4, $p5) = @_; eval q(); }' unless defined(&ITR5); eval 'sub ITR6 { my($d, $p1, $p2, $p3, $p4, $p5, $p6) = @_; eval q(); }' unless defined(&ITR6); } } } 1;