Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/machine/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/machine/param.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_AMD64_INCLUDE_PARAM_H_)) { eval 'sub _AMD64_INCLUDE_PARAM_H_ () {1;}' unless defined(&_AMD64_INCLUDE_PARAM_H_); require 'machine/_align.ph'; eval 'sub __HAVE_ACPI () {1;}' unless defined(&__HAVE_ACPI); eval 'sub __PCI_REROUTE_INTERRUPT () {1;}' unless defined(&__PCI_REROUTE_INTERRUPT); unless(defined(&MACHINE)) { eval 'sub MACHINE () {"amd64";}' unless defined(&MACHINE); } unless(defined(&MACHINE_ARCH)) { eval 'sub MACHINE_ARCH () {"amd64";}' unless defined(&MACHINE_ARCH); } unless(defined(&MACHINE_ARCH32)) { eval 'sub MACHINE_ARCH32 () {"i386";}' unless defined(&MACHINE_ARCH32); } if(defined( &SMP) || defined( &KLD_MODULE)) { unless(defined(&MAXCPU)) { eval 'sub MAXCPU () {64;}' unless defined(&MAXCPU); } } else { eval 'sub MAXCPU () {1;}' unless defined(&MAXCPU); } eval 'sub ALIGNBYTES () { &_ALIGNBYTES;}' unless defined(&ALIGNBYTES); eval 'sub ALIGN { my($p) = @_; eval q( &_ALIGN($p)); }' unless defined(&ALIGN); eval 'sub ALIGNED_POINTER { my($p, $t) = @_; eval q(1); }' unless defined(&ALIGNED_POINTER); eval 'sub CACHE_LINE_SHIFT () {7;}' unless defined(&CACHE_LINE_SHIFT); eval 'sub CACHE_LINE_SIZE () {(1<< &CACHE_LINE_SHIFT);}' unless defined(&CACHE_LINE_SIZE); eval 'sub NPTEPG () {( &PAGE_SIZE/($sizeof{ &pt_entry_t}));}' unless defined(&NPTEPG); eval 'sub NPTEPGSHIFT () {9;}' unless defined(&NPTEPGSHIFT); eval 'sub PAGE_SHIFT () {12;}' unless defined(&PAGE_SHIFT); eval 'sub PAGE_SIZE () {(1<< &PAGE_SHIFT);}' unless defined(&PAGE_SIZE); eval 'sub PAGE_MASK () {( &PAGE_SIZE-1);}' unless defined(&PAGE_MASK); eval 'sub NPDEPG () {( &PAGE_SIZE/($sizeof{ &pd_entry_t}));}' unless defined(&NPDEPG); eval 'sub NPDEPGSHIFT () {9;}' unless defined(&NPDEPGSHIFT); eval 'sub PDRSHIFT () {21;}' unless defined(&PDRSHIFT); eval 'sub NBPDR () {(1<< &PDRSHIFT);}' unless defined(&NBPDR); eval 'sub PDRMASK () {( &NBPDR-1);}' unless defined(&PDRMASK); eval 'sub NPDPEPG () {( &PAGE_SIZE/($sizeof{ &pdp_entry_t}));}' unless defined(&NPDPEPG); eval 'sub NPDPEPGSHIFT () {9;}' unless defined(&NPDPEPGSHIFT); eval 'sub PDPSHIFT () {30;}' unless defined(&PDPSHIFT); eval 'sub NBPDP () {(1<< &PDPSHIFT);}' unless defined(&NBPDP); eval 'sub PDPMASK () {( &NBPDP-1);}' unless defined(&PDPMASK); eval 'sub NPML4EPG () {( &PAGE_SIZE/($sizeof{ &pml4_entry_t}));}' unless defined(&NPML4EPG); eval 'sub NPML4EPGSHIFT () {9;}' unless defined(&NPML4EPGSHIFT); eval 'sub PML4SHIFT () {39;}' unless defined(&PML4SHIFT); eval 'sub NBPML4 () {(1<< &PML4SHIFT);}' unless defined(&NBPML4); eval 'sub PML4MASK () {( &NBPML4-1);}' unless defined(&PML4MASK); eval 'sub MAXPAGESIZES () {3;}' unless defined(&MAXPAGESIZES); eval 'sub IOPAGES () {2;}' unless defined(&IOPAGES); unless(defined(&KSTACK_PAGES)) { eval 'sub KSTACK_PAGES () {4;}' unless defined(&KSTACK_PAGES); } eval 'sub KSTACK_GUARD_PAGES () {1;}' unless defined(&KSTACK_GUARD_PAGES); unless(defined(&VM_SWZONE_SIZE_MAX)) { eval 'sub VM_SWZONE_SIZE_MAX () {(32* 1024* 1024);}' unless defined(&VM_SWZONE_SIZE_MAX); } eval 'sub round_page { my($x) = @_; eval q((((($x)) + &PAGE_MASK) & ~( &PAGE_MASK))); }' unless defined(&round_page); eval 'sub trunc_page { my($x) = @_; eval q((($x) & ~( &PAGE_MASK))); }' unless defined(&trunc_page); eval 'sub trunc_2mpage { my($x) = @_; eval q((($x) & ~ &PDRMASK)); }' unless defined(&trunc_2mpage); eval 'sub round_2mpage { my($x) = @_; eval q((((($x)) + &PDRMASK) & ~ &PDRMASK)); }' unless defined(&round_2mpage); eval 'sub trunc_1gpage { my($x) = @_; eval q((($x) & ~ &PDPMASK)); }' unless defined(&trunc_1gpage); eval 'sub atop { my($x) = @_; eval q((($x) >> &PAGE_SHIFT)); }' unless defined(&atop); eval 'sub ptoa { my($x) = @_; eval q((($x) << &PAGE_SHIFT)); }' unless defined(&ptoa); eval 'sub amd64_btop { my($x) = @_; eval q((($x) >> &PAGE_SHIFT)); }' unless defined(&amd64_btop); eval 'sub amd64_ptob { my($x) = @_; eval q((($x) << &PAGE_SHIFT)); }' unless defined(&amd64_ptob); eval 'sub pgtok { my($x) = @_; eval q((($x) * ( &PAGE_SIZE / 1024))); }' unless defined(&pgtok); } 1;