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/module_khelp.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_MODULE_KHELP_H_)) { eval 'sub _SYS_MODULE_KHELP_H_ () {1;}' unless defined(&_SYS_MODULE_KHELP_H_); require 'vm/uma.ph'; eval 'sub HELPER_NEEDS_OSD () {0x1;}' unless defined(&HELPER_NEEDS_OSD); eval 'sub HELPER_NAME_MAXLEN () {16;}' unless defined(&HELPER_NAME_MAXLEN); eval 'sub KHELP_DECLARE_MOD { my($hname, $hdata, $hhooks, $version) = @_; eval q( &static \'struct khelp_modevent_data\' &kmd_$hname = { . &name = $hname, . &helper = $hdata . &hooks = $hhooks, . &nhooks = $sizeof{$hhooks} / $sizeof{$hhooks->[0]}, }; &static &moduledata_t &h_$hname = { . &name = $hname, . &evhand = &khelp_modevent, . &priv = &kmd_$hname }; &DECLARE_MODULE($hname, &h_$hname, &SI_SUB_PROTO_IFATTACHDOMAIN, &SI_ORDER_ANY); &MODULE_VERSION($hname, $version)); }' unless defined(&KHELP_DECLARE_MOD); eval 'sub KHELP_DECLARE_MOD_UMA { my($hname, $hdata, $hhooks, $version, $size, $ctor, $dtor) = @_; eval q( &static \'struct khelp_modevent_data\' &kmd_$hname = { . &name = $hname, . &helper = $hdata, . &hooks = $hhooks, . &nhooks = $sizeof{$hhooks} / $sizeof{$hhooks->[0]}, . &uma_zsize = $size, . &umactor = $ctor, . &umadtor = $dtor }; &static &moduledata_t &h_$hname = { . &name = $hname, . &evhand = &khelp_modevent, . &priv = &kmd_$hname }; &DECLARE_MODULE($hname, &h_$hname, &SI_SUB_PROTO_IFATTACHDOMAIN, &SI_ORDER_ANY); &MODULE_VERSION($hname, $version)); }' unless defined(&KHELP_DECLARE_MOD_UMA); } 1;