%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/resourcevar.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_RESOURCEVAR_H_)) {
    eval 'sub _SYS_RESOURCEVAR_H_ () {1;}' unless defined(&_SYS_RESOURCEVAR_H_);
    require 'sys/resource.ph';
    require 'sys/queue.ph';
    if(defined(&_KERNEL)) {
	require 'sys/_lock.ph';
	require 'sys/_mutex.ph';
    }
    eval 'sub pstat_startzero () { &p_cru;}' unless defined(&pstat_startzero);
    eval 'sub pstat_endzero () { &pstat_startcopy;}' unless defined(&pstat_endzero);
    eval 'sub pstat_startcopy () { &p_prof;}' unless defined(&pstat_startcopy);
    eval 'sub pstat_endcopy () { &p_start;}' unless defined(&pstat_endcopy);
    if(defined(&_KERNEL)) {
	if(defined(&RACCT)) {
	}
	eval 'sub lim_cur {
	    my($td, $which) = @_;
    	    eval q(({  &rlim_t  &_rlim; \'struct thread\' * &_td = ($td); \'int\'  &_which = ($which);  &if ( &__builtin_constant_p($which)  && $which !=  &RLIMIT_DATA  && $which !=  &RLIMIT_STACK  && $which !=  &RLIMIT_VMEM) {  &_rlim =  ($td->{td_limit}->{pl_rlimit[$which]}->{rlim_cur}); }  &else {  &_rlim =  &lim_cur( &_td,  &_which); }  &_rlim; }));
	}' unless defined(&lim_cur);
	if(defined(&RACCT)) {
	}
    }
}
1;

Zerion Mini Shell 1.0