require '_h2ph_pre.ph';

no warnings 'redefine';

require 'machine/cpu.ph';
unless(defined(&USERMODE)) {
    sub USERMODE {
	my($ps) = @_;
	eval q(((($ps) &  &SR_KSU_MASK) ==  &SR_KSU_USER));
    }
}
unless(defined(&BASEPRI)) {
    sub BASEPRI {
	my($ps) = @_;
	eval q(((($ps) & ( &INT_MASK |  &SR_INT_ENA_PREV)) == ( &INT_MASK |  &SR_INT_ENA_PREV)));
    }
}
if(defined(&_KERNEL)) {
    require 'machine/intr.ph';
}
1;
