| Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/machine/ |
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/machine/legacyvar.ph |
require '_h2ph_pre.ph';
no warnings 'redefine';
unless(defined(&_MACHINE_LEGACYVAR_H_)) {
eval 'sub _MACHINE_LEGACYVAR_H_ () {1;}' unless defined(&_MACHINE_LEGACYVAR_H_);
eval("sub LEGACY_IVAR_PCIDOMAIN () { 0; }") unless defined(&LEGACY_IVAR_PCIDOMAIN);
eval("sub LEGACY_IVAR_PCIBUS () { 1; }") unless defined(&LEGACY_IVAR_PCIBUS);
eval("sub LEGACY_IVAR_PCISLOT () { 2; }") unless defined(&LEGACY_IVAR_PCISLOT);
eval("sub LEGACY_IVAR_PCIFUNC () { 3; }") unless defined(&LEGACY_IVAR_PCIFUNC);
eval 'sub LEGACY_ACCESSOR {
my($var, $ivar, $type) = @_;
eval q( &__BUS_ACCESSOR( &legacy, $var, &LEGACY, $ivar, $type));
}' unless defined(&LEGACY_ACCESSOR);
undef(&LEGACY_ACCESSOR) if defined(&LEGACY_ACCESSOR);
}
1;