config root man

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_MACHINE_ASM_H_)) {
    eval 'sub _MACHINE_ASM_H_ () {1;}' unless defined(&_MACHINE_ASM_H_);
    require 'sys/cdefs.ph';
    if(defined(&PIC)) {
	eval 'sub PIC_PLT {
	    my($x) = @_;
    	    eval q($x@ &PLT);
	}' unless defined(&PIC_PLT);
	eval 'sub PIC_GOT {
	    my($x) = @_;
    	    eval q($x@ &GOTPCREL(% &rip));
	}' unless defined(&PIC_GOT);
    } else {
	eval 'sub PIC_PLT {
	    my($x) = @_;
    	    eval q($x);
	}' unless defined(&PIC_PLT);
	eval 'sub PIC_GOT {
	    my($x) = @_;
    	    eval q($x);
	}' unless defined(&PIC_GOT);
    }
    eval 'sub CNAME {
        my($csym) = @_;
	    eval q($csym);
    }' unless defined(&CNAME);
    eval 'sub HIDENAME {
        my($asmsym) = @_;
	    eval q(.$asmsym);
    }' unless defined(&HIDENAME);
    eval 'sub _START_ENTRY () {. &text; . &p2align 4,0x90;}' unless defined(&_START_ENTRY);
    eval 'sub _ENTRY {
        my($x) = @_;
	    eval q( &_START_ENTRY; . &globl  &CNAME($x); . &type  &CNAME($x),@ &function;  &CNAME($x):);
    }' unless defined(&_ENTRY);
    if(defined(&PROF)) {
	eval 'sub ALTENTRY {
	    my($x) = @_;
    	    eval q( &_ENTRY($x);  &pushq % &rbp;  &movq % &rsp,% &rbp;  &call  &PIC_PLT( &HIDENAME( &mcount));  &popq % &rbp;  &jmp 9 &f);
	}' unless defined(&ALTENTRY);
	eval 'sub ENTRY {
	    my($x) = @_;
    	    eval q( &_ENTRY($x);  &pushq % &rbp;  &movq % &rsp,% &rbp;  &call  &PIC_PLT( &HIDENAME( &mcount));  &popq % &rbp; 9:);
	}' unless defined(&ENTRY);
    } else {
	eval 'sub ALTENTRY {
	    my($x) = @_;
    	    eval q( &_ENTRY($x));
	}' unless defined(&ALTENTRY);
	eval 'sub ENTRY {
	    my($x) = @_;
    	    eval q( &_ENTRY($x));
	}' unless defined(&ENTRY);
    }
    eval 'sub END {
        my($x) = @_;
	    eval q(. &size $x, . - $x);
    }' unless defined(&END);
    eval 'sub RCSID {
        my($x) = @_;
	    eval q(. &text; . &asciz $x);
    }' unless defined(&RCSID);
    undef(&__FBSDID) if defined(&__FBSDID);
    if(!defined( &lint)  && !defined( &STRIP_FBSDID)) {
	eval 'sub __FBSDID {
	    my($s) = @_;
    	    eval q(. &ident $s);
	}' unless defined(&__FBSDID);
    } else {
	eval 'sub __FBSDID {
	    my($s) = @_;
    	    eval q();
	}' unless defined(&__FBSDID);
    }
}
1;