Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/a.out.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&__A_OUT_GNU_H__)) {
    eval 'sub __A_OUT_GNU_H__ () {1;}' unless defined(&__A_OUT_GNU_H__);
    require 'bits/a.out.ph';
    eval 'sub __GNU_EXEC_MACROS__ () {1;}' unless defined(&__GNU_EXEC_MACROS__);
    eval("sub M_OLDSUN2 () { 0; }") unless defined(&M_OLDSUN2);
    eval("sub M_68010 () { 1; }") unless defined(&M_68010);
    eval("sub M_68020 () { 2; }") unless defined(&M_68020);
    eval("sub M_SPARC () { 3; }") unless defined(&M_SPARC);
    eval("sub M_386 () { 100; }") unless defined(&M_386);
    eval("sub M_MIPS1 () { 151; }") unless defined(&M_MIPS1);
    eval("sub M_MIPS2 () { 152; }") unless defined(&M_MIPS2);
    eval 'sub N_MAGIC {
        my($exec) = @_;
	    eval q((($exec). &a_info & 0xffff));
    }' unless defined(&N_MAGIC);
    eval 'sub N_MACHTYPE {
        my($exec) = @_;
	    eval q((( &enum  &machine_type)((($exec). &a_info >> 16) & 0xff)));
    }' unless defined(&N_MACHTYPE);
    eval 'sub N_FLAGS {
        my($exec) = @_;
	    eval q(((($exec). &a_info >> 24) & 0xff));
    }' unless defined(&N_FLAGS);
    eval 'sub N_SET_INFO {
        my($exec, $magic, $type, $flags) = @_;
	    eval q((. &a_info = ( & 0xffff) | ((($type) & 0xff) << 16) | ((($flags) & 0xff) << 24)));
    }' unless defined(&N_SET_INFO);
    eval 'sub N_SET_MAGIC {
        my($exec, $magic) = @_;
	    eval q((($exec). &a_info = (($exec). &a_info & 0xffff0000) | (($magic) & 0xffff)));
    }' unless defined(&N_SET_MAGIC);
    eval 'sub N_SET_MACHTYPE {
        my($exec, $machtype) = @_;
	    eval q((. &a_info = (. &a_info&0xff00ffff) | (((($machtype))&0xff) << 16)));
    }' unless defined(&N_SET_MACHTYPE);
    eval 'sub N_SET_FLAGS {
        my($exec, $flags) = @_;
	    eval q((($exec). &a_info = (($exec). &a_info&0xffffff) | ((($flags) & 0xff) << 24)));
    }' unless defined(&N_SET_FLAGS);
    eval 'sub OMAGIC () {0407;}' unless defined(&OMAGIC);
    eval 'sub NMAGIC () {0410;}' unless defined(&NMAGIC);
    eval 'sub ZMAGIC () {0413;}' unless defined(&ZMAGIC);
    eval 'sub QMAGIC () {0314;}' unless defined(&QMAGIC);
    eval 'sub CMAGIC () {0421;}' unless defined(&CMAGIC);
    eval 'sub N_TRSIZE {
        my($a) = @_;
	    eval q((($a). &a_trsize));
    }' unless defined(&N_TRSIZE);
    eval 'sub N_DRSIZE {
        my($a) = @_;
	    eval q((($a). &a_drsize));
    }' unless defined(&N_DRSIZE);
    eval 'sub N_SYMSIZE {
        my($a) = @_;
	    eval q((($a). &a_syms));
    }' unless defined(&N_SYMSIZE);
    eval 'sub N_BADMAG {
        my($x) = @_;
	    eval q(( &N_MAGIC($x) !=  &OMAGIC  &&  &N_MAGIC($x) !=  &NMAGIC  &&  &N_MAGIC($x) !=  &ZMAGIC  &&  &N_MAGIC($x) !=  &QMAGIC));
    }' unless defined(&N_BADMAG);
    eval 'sub _N_HDROFF {
        my($x) = @_;
	    eval q((1024- $sizeof{\'struct exec\'}));
    }' unless defined(&_N_HDROFF);
    eval 'sub N_TXTOFF {
        my($x) = @_;
	    eval q(( &N_MAGIC($x) ==  &ZMAGIC ?  &_N_HDROFF(($x)) + $sizeof{\'struct exec\'} : ( &N_MAGIC($x) ==  &QMAGIC ? 0: $sizeof{\'struct exec\'})));
    }' unless defined(&N_TXTOFF);
    eval 'sub N_DATOFF {
        my($x) = @_;
	    eval q(( &N_TXTOFF($x) + ($x). &a_text));
    }' unless defined(&N_DATOFF);
    eval 'sub N_TRELOFF {
        my($x) = @_;
	    eval q(( &N_DATOFF($x) + ($x). &a_data));
    }' unless defined(&N_TRELOFF);
    eval 'sub N_DRELOFF {
        my($x) = @_;
	    eval q(( &N_TRELOFF($x) +  &N_TRSIZE($x)));
    }' unless defined(&N_DRELOFF);
    eval 'sub N_SYMOFF {
        my($x) = @_;
	    eval q(( &N_DRELOFF($x) +  &N_DRSIZE($x)));
    }' unless defined(&N_SYMOFF);
    eval 'sub N_STROFF {
        my($x) = @_;
	    eval q(( &N_SYMOFF($x) +  &N_SYMSIZE($x)));
    }' unless defined(&N_STROFF);
    eval 'sub N_TXTADDR {
        my($x) = @_;
	    eval q(( &N_MAGIC($x) ==  &QMAGIC ? 4096: 0));
    }' unless defined(&N_TXTADDR);
    eval 'sub SEGMENT_SIZE () {1024;}' unless defined(&SEGMENT_SIZE);
    eval 'sub _N_SEGMENT_ROUND {
        my($x) = @_;
	    eval q(((($x) +  &SEGMENT_SIZE - 1) & ~( &SEGMENT_SIZE - 1)));
    }' unless defined(&_N_SEGMENT_ROUND);
    eval 'sub _N_TXTENDADDR {
        my($x) = @_;
	    eval q(( &N_TXTADDR($x)+($x). &a_text));
    }' unless defined(&_N_TXTENDADDR);
    eval 'sub N_DATADDR {
        my($x) = @_;
	    eval q(( &N_MAGIC($x)== &OMAGIC? ( &_N_TXTENDADDR($x)) : ( &_N_SEGMENT_ROUND ( &_N_TXTENDADDR($x)))));
    }' unless defined(&N_DATADDR);
    eval 'sub N_BSSADDR {
        my($x) = @_;
	    eval q(( &N_DATADDR($x) + ($x). &a_data));
    }' unless defined(&N_BSSADDR);
    if(!defined (&N_NLIST_DECLARED)) {
    }
    eval 'sub N_UNDF () {0;}' unless defined(&N_UNDF);
    eval 'sub N_ABS () {2;}' unless defined(&N_ABS);
    eval 'sub N_TEXT () {4;}' unless defined(&N_TEXT);
    eval 'sub N_DATA () {6;}' unless defined(&N_DATA);
    eval 'sub N_BSS () {8;}' unless defined(&N_BSS);
    eval 'sub N_FN () {15;}' unless defined(&N_FN);
    eval 'sub N_EXT () {1;}' unless defined(&N_EXT);
    eval 'sub N_TYPE () {036;}' unless defined(&N_TYPE);
    eval 'sub N_STAB () {0340;}' unless defined(&N_STAB);
    eval 'sub N_INDR () {0xa;}' unless defined(&N_INDR);
    eval 'sub N_SETA () {0x14;}' unless defined(&N_SETA);
    eval 'sub N_SETT () {0x16;}' unless defined(&N_SETT);
    eval 'sub N_SETD () {0x18;}' unless defined(&N_SETD);
    eval 'sub N_SETB () {0x1a;}' unless defined(&N_SETB);
    eval 'sub N_SETV () {0x1c;}' unless defined(&N_SETV);
    if(!defined (&N_RELOCATION_INFO_DECLARED)) {
    }
}
1;