require '_h2ph_pre.ph';

no warnings qw(redefine misc);

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;