Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/ |
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/sys/linker.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_LINKER_H_)) { eval 'sub _SYS_LINKER_H_ () {1;}' unless defined(&_SYS_LINKER_H_); if(defined(&_KERNEL)) { require 'machine/elf.ph'; require 'sys/kobj.ph'; if(defined(&MALLOC_DECLARE)) { } eval 'sub LINKER_FILE_LINKED () {0x1;}' unless defined(&LINKER_FILE_LINKED); } eval 'sub MODINFO_END () {0x;}' unless defined(&MODINFO_END); eval 'sub MODINFO_NAME () {0x1;}' unless defined(&MODINFO_NAME); eval 'sub MODINFO_TYPE () {0x2;}' unless defined(&MODINFO_TYPE); eval 'sub MODINFO_ADDR () {0x3;}' unless defined(&MODINFO_ADDR); eval 'sub MODINFO_SIZE () {0x4;}' unless defined(&MODINFO_SIZE); eval 'sub MODINFO_EMPTY () {0x5;}' unless defined(&MODINFO_EMPTY); eval 'sub MODINFO_ARGS () {0x6;}' unless defined(&MODINFO_ARGS); eval 'sub MODINFO_METADATA () {0x8000;}' unless defined(&MODINFO_METADATA); eval 'sub MODINFOMD_AOUTEXEC () {0x1;}' unless defined(&MODINFOMD_AOUTEXEC); eval 'sub MODINFOMD_ELFHDR () {0x2;}' unless defined(&MODINFOMD_ELFHDR); eval 'sub MODINFOMD_SSYM () {0x3;}' unless defined(&MODINFOMD_SSYM); eval 'sub MODINFOMD_ESYM () {0x4;}' unless defined(&MODINFOMD_ESYM); eval 'sub MODINFOMD_DYNAMIC () {0x5;}' unless defined(&MODINFOMD_DYNAMIC); if(!defined( &__sparc64__) && !defined( &__powerpc__)) { eval 'sub MODINFOMD_ENVP () {0x6;}' unless defined(&MODINFOMD_ENVP); eval 'sub MODINFOMD_HOWTO () {0x7;}' unless defined(&MODINFOMD_HOWTO); eval 'sub MODINFOMD_KERNEND () {0x8;}' unless defined(&MODINFOMD_KERNEND); } eval 'sub MODINFOMD_SHDR () {0x9;}' unless defined(&MODINFOMD_SHDR); eval 'sub MODINFOMD_NOCOPY () {0x8000;}' unless defined(&MODINFOMD_NOCOPY); eval 'sub MODINFOMD_DEPLIST () {(0x4001 | &MODINFOMD_NOCOPY);}' unless defined(&MODINFOMD_DEPLIST); if(defined(&_KERNEL)) { eval 'sub MD_FETCH { my($mdp, $info, $type) = @_; eval q(({ $type * &__p; &__p = ($type *) &preload_search_info(($mdp), &MODINFO_METADATA | ($info)); &__p ? * &__p : 0; })); }' unless defined(&MD_FETCH); } eval 'sub LINKER_HINTS_VERSION () {1;}' unless defined(&LINKER_HINTS_VERSION); if(defined(&_KERNEL)) { if(defined(&KLD_DEBUG)) { eval 'sub KLD_DEBUG_FILE () {1;}' unless defined(&KLD_DEBUG_FILE); eval 'sub KLD_DEBUG_SYM () {2;}' unless defined(&KLD_DEBUG_SYM); eval 'sub KLD_DPF { my($cat, $args) = @_; eval q( &do { &if ( &kld_debug & &KLD_DEBUG_$cat) &printf $args; } &while (0)); }' unless defined(&KLD_DPF); } else { eval 'sub KLD_DPF { my($cat, $args) = @_; eval q(); }' unless defined(&KLD_DPF); } eval 'sub ELF_RELOC_REL () {1;}' unless defined(&ELF_RELOC_REL); eval 'sub ELF_RELOC_RELA () {2;}' unless defined(&ELF_RELOC_RELA); } eval 'sub KLDSYM_LOOKUP () {1;}' unless defined(&KLDSYM_LOOKUP); eval 'sub LINKER_UNLOAD_NORMAL () {0;}' unless defined(&LINKER_UNLOAD_NORMAL); eval 'sub LINKER_UNLOAD_FORCE () {1;}' unless defined(&LINKER_UNLOAD_FORCE); unless(defined(&_KERNEL)) { require 'sys/cdefs.ph'; } } 1;