require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_M88K_PMAP_H_)) {
    eval 'sub _M88K_PMAP_H_ () {1;}' unless defined(&_M88K_PMAP_H_);
    require 'machine/mmu.ph';
    if(defined(&MULTIPROCESSOR)) {
    }
    if(defined(&_KERNEL)) {
	eval 'sub pmap_kernel () {
	    eval q(( &kernel_pmap_store));
	}' unless defined(&pmap_kernel);
	eval 'sub pmap_resident_count {
	    my($pmap) = @_;
    	    eval q((($pmap)-> ($pm_stats->{resident_count})));
	}' unless defined(&pmap_resident_count);
	eval 'sub pmap_wired_count {
	    my($pmap) = @_;
    	    eval q((($pmap)-> ($pm_stats->{wired_count})));
	}' unless defined(&pmap_wired_count);
	eval 'sub pmap_phys_address {
	    my($frame) = @_;
    	    eval q((( &paddr_t)( &ptoa($frame))));
	}' unless defined(&pmap_phys_address);
	eval 'sub pmap_copy {
	    my($dp,$sp,$d,$l,$s) = @_;
    	    eval q( &do { }  &while (0));
	}' unless defined(&pmap_copy);
	eval 'sub pmap_update {
	    my($pmap) = @_;
    	    eval q( &do { }  &while (0));
	}' unless defined(&pmap_update);
	eval 'sub pmap_clear_modify {
	    my($pg) = @_;
    	    eval q( &pmap_unsetbit($pg,  &PG_M));
	}' unless defined(&pmap_clear_modify);
	eval 'sub pmap_clear_reference {
	    my($pg) = @_;
    	    eval q( &pmap_unsetbit($pg,  &PG_U));
	}' unless defined(&pmap_clear_reference);
	eval 'sub pmap_unuse_final {
	    my($p) = @_;
    	    eval q();
	}' unless defined(&pmap_unuse_final);
    }
}
1;
