KGRKJGETMRETU895U-589TY5MIGM5JGB5SDFESFREWTGR54TY
Server : Apache/2.4.62
System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64
User : www ( 80)
PHP Version : 8.3.8
Disable Function : NONE
Directory :  /usr/local/lib/perl5/site_perl/mach/5.36/sys/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/local/lib/perl5/site_perl/mach/5.36/sys/physmem.ph
require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_PHYSMEM_H_)) {
    eval 'sub _SYS_PHYSMEM_H_ () {1;}' unless defined(&_SYS_PHYSMEM_H_);
    unless(defined(&_KERNEL)) {
	require 'stdbool.ph';
    }
    eval 'sub EXFLAG_NODUMP () {0x1;}' unless defined(&EXFLAG_NODUMP);
    eval 'sub EXFLAG_NOALLOC () {0x2;}' unless defined(&EXFLAG_NOALLOC);
    if(defined(&FDT)) {
	require 'machine/ofw_machdep.ph';
	eval 'sub physmem_hardware_regions {
	    my($mrptr,$mrcount) = @_;
    	    eval q({  &while ($mrcount--) {  &physmem_hardware_region( ($mrptr->{mr_start}),  ($mrptr->{mr_size})); ++$mrptr; } });
	}' unless defined(&physmem_hardware_regions);
	eval 'sub physmem_exclude_regions {
	    my($mrptr,$mrcount,$exflags) = @_;
    	    eval q({  &while ($mrcount--) {  &physmem_exclude_region( ($mrptr->{mr_start}),  ($mrptr->{mr_size}), $exflags); ++$mrptr; } });
	}' unless defined(&physmem_exclude_regions);
    }
}
1;

Anon7 - 2021