require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_MACHINE_PTRACE_H_)) {
    eval 'sub _MACHINE_PTRACE_H_ () {1;}' unless defined(&_MACHINE_PTRACE_H_);
    eval 'sub PT_GETREGS () {( &PT_FIRSTMACH + 0);}' unless defined(&PT_GETREGS);
    eval 'sub PT_SETREGS () {( &PT_FIRSTMACH + 1);}' unless defined(&PT_SETREGS);
    eval 'sub PT_GETFPREGS () {( &PT_FIRSTMACH + 2);}' unless defined(&PT_GETFPREGS);
    eval 'sub PT_SETFPREGS () {( &PT_FIRSTMACH + 3);}' unless defined(&PT_SETFPREGS);
    eval 'sub PT_STEP () {( &PT_FIRSTMACH + 4);}' unless defined(&PT_STEP);
    eval 'sub FIX_SSTEP {
        my($p) = @_;
	    eval q( &process_sstep($p, 0));
    }' unless defined(&FIX_SSTEP);
}
1;
