config root man

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
Upload File :
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/machine/reg.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_MACHINE_REG_H_)) {
    eval 'sub _MACHINE_REG_H_ () {1;}' unless defined(&_MACHINE_REG_H_);
    if(defined( &_KERNEL)  && !defined( &_STANDALONE)) {
	require 'machine/opt_compat.ph';
    }
    eval 'sub DBREG_DR7_LOCAL_ENABLE () {0x1;}' unless defined(&DBREG_DR7_LOCAL_ENABLE);
    eval 'sub DBREG_DR7_GLOBAL_ENABLE () {0x2;}' unless defined(&DBREG_DR7_GLOBAL_ENABLE);
    eval 'sub DBREG_DR7_LEN_1 () {0x;}' unless defined(&DBREG_DR7_LEN_1);
    eval 'sub DBREG_DR7_LEN_2 () {0x1;}' unless defined(&DBREG_DR7_LEN_2);
    eval 'sub DBREG_DR7_LEN_4 () {0x3;}' unless defined(&DBREG_DR7_LEN_4);
    eval 'sub DBREG_DR7_LEN_8 () {0x2;}' unless defined(&DBREG_DR7_LEN_8);
    eval 'sub DBREG_DR7_EXEC () {0x;}' unless defined(&DBREG_DR7_EXEC);
    eval 'sub DBREG_DR7_WRONLY () {0x1;}' unless defined(&DBREG_DR7_WRONLY);
    eval 'sub DBREG_DR7_RDWR () {0x3;}' unless defined(&DBREG_DR7_RDWR);
    eval 'sub DBREG_DR7_MASK {
        my($i) = @_;
	    eval q((0xf << (($i) * 4+ 16) | 0x3 << ($i) * 2));
    }' unless defined(&DBREG_DR7_MASK);
    eval 'sub DBREG_DR7_SET {
        my($i, $len, $access, $enable) = @_;
	    eval q(((($len) << 2| ($access)) << (($i) * 4+ 16) | ($enable) << ($i) * 2));
    }' unless defined(&DBREG_DR7_SET);
    eval 'sub DBREG_DR7_GD () {0x2000;}' unless defined(&DBREG_DR7_GD);
    eval 'sub DBREG_DR7_ENABLED {
        my($d, $i) = @_;
	    eval q(((($d) & 0x3 << ($i) * 2) != 0));
    }' unless defined(&DBREG_DR7_ENABLED);
    eval 'sub DBREG_DR7_ACCESS {
        my($d, $i) = @_;
	    eval q((($d) >> (($i) * 4+ 16) & 0x3));
    }' unless defined(&DBREG_DR7_ACCESS);
    eval 'sub DBREG_DR7_LEN {
        my($d, $i) = @_;
	    eval q((($d) >> (($i) * 4+ 18) & 0x3));
    }' unless defined(&DBREG_DR7_LEN);
    eval 'sub DBREG_DRX {
        my($d,$x) = @_;
	    eval q((($d)-> $dr[($x)]));
    }' unless defined(&DBREG_DRX);
    if(defined(&COMPAT_FREEBSD32)) {
	require 'machine/fpu.ph';
	require 'compat/ia32/ia32_reg.ph';
    }
    if(defined(&_KERNEL)) {
    }
}
1;

Man Man