require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_POWERPC_BAT_H_)) {
    eval 'sub _POWERPC_BAT_H_ () {1;}' unless defined(&_POWERPC_BAT_H_);
    eval 'sub BATU {
        my($vaddr) = @_;
	    eval q(((($vaddr)&0xf0000000)|0x1ffe));
    }' unless defined(&BATU);
    eval 'sub BATL {
        my($raddr,$wimg) = @_;
	    eval q(((($raddr)&0xf0000000)|($wimg)|0x2));
    }' unless defined(&BATL);
    eval 'sub BAT_W () {0x40;}' unless defined(&BAT_W);
    eval 'sub BAT_I () {0x20;}' unless defined(&BAT_I);
    eval 'sub BAT_M () {0x10;}' unless defined(&BAT_M);
    eval 'sub BAT_G () {0x8;}' unless defined(&BAT_G);
    if(defined(&_KERNEL)) {
    }
}
1;
