require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_M88K_PCB_H_)) {
    eval 'sub _M88K_PCB_H_ () {1;}' unless defined(&_M88K_PCB_H_);
    require 'machine/frame.ph';
    eval 'sub USER_REGS {
        my($p) = @_;
	    eval q(((((($p)-> ($p_addr->{u_pcb}->{user_state}))))));
    }' unless defined(&USER_REGS);
}
1;
