%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/lib/perl5/site_perl/mach/5.32/sys/
Upload File :
Create Path :
Current File : //usr/local/lib/perl5/site_perl/mach/5.32/sys/sf_buf.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_SF_BUF_H_)) {
    eval 'sub _SYS_SF_BUF_H_ () {1;}' unless defined(&_SYS_SF_BUF_H_);
    if(defined(&_KERNEL)) {
	require 'sys/types.ph';
	require 'sys/systm.ph';
	require 'sys/counter.ph';
	require 'vm/vm.ph';
	require 'vm/vm_param.ph';
	require 'vm/vm_page.ph';
	if(defined(&SFBUF)) {
	    if(defined(&SMP)  && defined(&SFBUF_CPUSET)) {
		require 'sys/_cpuset.ph';
	    }
	    require 'sys/queue.ph';
	    if(defined(&SMP)  && defined(&SFBUF_CPUSET)) {
	    }
	} else {
	}
	unless(defined(&SFBUF_NOMD)) {
	    require 'machine/sf_buf.ph';
	}
	if(defined(&SFBUF)) {
	    eval 'sub sf_buf_kva {
	        my($sf) = @_;
    		eval q({  &if ( &PMAP_HAS_DMAP) ( &PHYS_TO_DMAP( &VM_PAGE_TO_PHYS(( &vm_page_t)$sf))); ( ($sf->{kva})); });
	    }' unless defined(&sf_buf_kva);
	    eval 'sub sf_buf_page {
	        my($sf) = @_;
    		eval q({  &if ( &PMAP_HAS_DMAP) (( &vm_page_t)$sf); ( ($sf->{m})); });
	    }' unless defined(&sf_buf_page);
	    unless(defined(&SFBUF_MAP)) {
		require 'vm/pmap.ph';
		eval 'sub sf_buf_map {
		    my($sf,$flags) = @_;
    		    eval q({  &pmap_qenter( ($sf->{kva}),  ($sf->{m}), 1); });
		}' unless defined(&sf_buf_map);
		eval 'sub sf_buf_unmap {
		    my($sf) = @_;
    		    eval q({ (0); });
		}' unless defined(&sf_buf_unmap);
	    }
	    if(defined(&SMP)  && defined(&SFBUF_CPUSET)) {
	    }
	    if(defined(&SFBUF_PROCESS_PAGE)) {
	    }
	} else {
	    eval 'sub sf_buf_alloc {
	        my($m,$pri) = @_;
    		eval q({ ($m); });
	    }' unless defined(&sf_buf_alloc);
	    eval 'sub sf_buf_free {
	        my($sf) = @_;
    		eval q({ });
	    }' unless defined(&sf_buf_free);
	    eval 'sub sf_buf_ref {
	        my($sf) = @_;
    		eval q({ });
	    }' unless defined(&sf_buf_ref);
	}
	eval 'sub SFB_CATCH () {1;}' unless defined(&SFB_CATCH);
	eval 'sub SFB_CPUPRIVATE () {2;}' unless defined(&SFB_CPUPRIVATE);
	eval 'sub SFB_DEFAULT () {0;}' unless defined(&SFB_DEFAULT);
	eval 'sub SFB_NOWAIT () {4;}' unless defined(&SFB_NOWAIT);
	eval 'sub SFSTAT_ADD {
	    my($name, $val) = @_;
    	    eval q( &counter_u64_add( $sfstat[ &offsetof(\'struct sfstat\', $name) / $sizeof{ &uint64_t}], ($val)));
	}' unless defined(&SFSTAT_ADD);
	eval 'sub SFSTAT_INC {
	    my($name) = @_;
    	    eval q( &SFSTAT_ADD($name, 1));
	}' unless defined(&SFSTAT_INC);
    }
}
1;

Zerion Mini Shell 1.0