File Manager

003 File Manager

Current Path: /usr/local/lib/perl5/site_perl/mach/5.32/machine

usr / local / lib / perl5 / site_perl / mach / 5.32 / machine /

📁 ..
📄 _align.ph(85 B)
📄 _bus.ph(186 B)
📄 _inttypes.ph(88 B)
📄 _limits.ph(86 B)
📄 _stdint.ph(86 B)
📄 _types.ph(85 B)
📄 acpica_machdep.ph(93 B)
📄 apm_bios.ph(87 B)
📄 asm.ph(2.5 KB)
📄 asmacros.ph(4.5 KB)
📄 atomic.ph(23.93 KB)
📄 bus.ph(82 B)
📄 bus_dma.ph(207 B)
📄 clock.ph(303 B)
📄 counter.ph(1.6 KB)
📄 cpu.ph(1.38 KB)
📄 cpufunc.ph(21.3 KB)
📄 cputypes.ph(87 B)
📄 csan.ph(775 B)
📄 db_machdep.ph(2.72 KB)
📄 dump.ph(83 B)
📄 efi.ph(1003 B)
📄 elf.ph(82 B)
📄 endian.ph(85 B)
📄 exec.ph(236 B)
📄 fdt.ph(82 B)
📄 float.ph(84 B)
📄 floatingpoint.ph(238 B)
📄 fpu.ph(729 B)
📄 frame.ph(196 B)
📄 gdb_machdep.ph(1.85 KB)
📄 ieeefp.ph(5.91 KB)
📄 in_cksum.ph(1.19 KB)
📄 intr_machdep.ph(573 B)
📄 iodev.ph(659 B)
📄 iommu.ph(84 B)
📄 kdb.ph(956 B)
📄 limits.ph(374 B)
📄 md_var.ph(210 B)
📄 memdev.ph(324 B)
📄 metadata.ph(87 B)
📄 minidump.ph(355 B)
📄 mp_watchdog.ph(195 B)
📄 nexusvar.ph(186 B)
📄 npx.ph(82 B)
📄 ofw_machdep.ph(90 B)
📄 param.ph(5.11 KB)
📄 pcb.ph(1011 B)
📄 pci_cfgreg.ph(89 B)
📄 pcpu.ph(8.96 KB)
📄 pcpu_aux.ph(758 B)
📄 pmap.ph(13.6 KB)
📄 pmc_mdep.ph(3.2 KB)
📄 ppireg.ph(744 B)
📄 proc.ph(1.06 KB)
📄 procctl.ph(86 B)
📄 profile.ph(4.01 KB)
📄 psl.ph(82 B)
📄 ptrace.ph(85 B)
📄 pvclock.ph(86 B)
📄 reg.ph(82 B)
📄 reloc.ph(192 B)
📄 resource.ph(555 B)
📄 runq.ph(727 B)
📄 segments.ph(251 B)
📄 setjmp.ph(85 B)
📄 sf_buf.ph(305 B)
📄 sgx.ph(657 B)
📄 sgxreg.ph(2.68 KB)
📄 sigframe.ph(87 B)
📄 signal.ph(85 B)
📄 smp.ph(296 B)
📄 specialreg.ph(89 B)
📄 stack.ph(84 B)
📄 stdarg.ph(85 B)
📄 sysarch.ph(86 B)
📄 timerreg.ph(685 B)
📄 trap.ph(83 B)
📄 tss.ph(171 B)
📄 ucontext.ph(87 B)
📄 vdso.ph(83 B)
📄 vm.ph(1.04 KB)
📄 vmm.ph(11.92 KB)
📄 vmm_dev.ph(14.37 KB)
📄 vmm_instruction_emul.ph(384 B)
📄 vmm_snapshot.ph(2.65 KB)
📄 vmparam.ph(5.83 KB)

Editing: asmacros.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_MACHINE_ASMACROS_H_)) {
    eval 'sub _MACHINE_ASMACROS_H_ () {1;}' unless defined(&_MACHINE_ASMACROS_H_);
    require 'sys/cdefs.ph';
    eval 'sub CNAME {
        my($csym) = @_;
	    eval q($csym);
    }' unless defined(&CNAME);
    eval 'sub ALIGN_DATA () {. &p2align 3;}' unless defined(&ALIGN_DATA);
    if(defined(&GPROF)) {
	eval 'sub ALIGN_TEXT () {. &p2align 4,0x90;}' unless defined(&ALIGN_TEXT);
    } else {
	eval 'sub ALIGN_TEXT () {. &p2align 4,0x90;}' unless defined(&ALIGN_TEXT);
    }
    eval 'sub SUPERALIGN_TEXT () {. &p2align 4,0x90;}' unless defined(&SUPERALIGN_TEXT);
    eval 'sub GEN_ENTRY {
        my($name) = @_;
	    eval q( &ALIGN_TEXT; . &globl  &CNAME($name); . &type  &CNAME($name),@ &function;  &CNAME($name):);
    }' unless defined(&GEN_ENTRY);
    eval 'sub NON_GPROF_ENTRY {
        my($name) = @_;
	    eval q( &GEN_ENTRY($name));
    }' unless defined(&NON_GPROF_ENTRY);
    eval 'sub NON_GPROF_RET () {. &byte 0xc3;}' unless defined(&NON_GPROF_RET);
    eval 'sub END {
        my($name) = @_;
	    eval q(. &size $name, . - $name);
    }' unless defined(&END);
    if(defined(&GPROF)) {
	eval 'sub ALTENTRY {
	    my($name) = @_;
    	    eval q( &GEN_ENTRY($name) ;  &MCOUNT ;  &MEXITCOUNT ;  &jmp 9 &f);
	}' unless defined(&ALTENTRY);
	eval 'sub CROSSJUMP {
	    my($jtrue, $label, $jfalse) = @_;
    	    eval q($jfalse 8 &f;  &MEXITCOUNT;  &jmp  &__CONCAT( &to,$label); 8:);
	}' unless defined(&CROSSJUMP);
	eval 'sub CROSSJUMPTARGET {
	    my($label) = @_;
    	    eval q( &ALIGN_TEXT;  &__CONCAT( &to,$label): ;  &MCOUNT;  &jmp $label);
	}' unless defined(&CROSSJUMPTARGET);
	eval 'sub ENTRY {
	    my($name) = @_;
    	    eval q( &GEN_ENTRY($name) ; 9: ;  &MCOUNT);
	}' unless defined(&ENTRY);
	eval 'sub FAKE_MCOUNT {
	    my($caller) = @_;
    	    eval q( &pushq $caller ;  &call  &__mcount ;  &popq % &rcx);
	}' unless defined(&FAKE_MCOUNT);
	eval 'sub MCOUNT () { &call  &__mcount;}' unless defined(&MCOUNT);
	eval 'sub MCOUNT_LABEL {
	    my($name) = @_;
    	    eval q( &GEN_ENTRY($name) ;  &nop ;  &ALIGN_TEXT);
	}' unless defined(&MCOUNT_LABEL);
	if(defined(&GUPROF)) {
	    eval 'sub MEXITCOUNT () { &call . &mexitcount;}' unless defined(&MEXITCOUNT);
	    eval 'sub ret () { &MEXITCOUNT ;  &NON_GPROF_RET;}' unless defined(&ret);
	} else {
	    eval 'sub MEXITCOUNT () {1;}' unless defined(&MEXITCOUNT);
	}
    } else {
	eval 'sub ALTENTRY {
	    my($name) = @_;
    	    eval q( &GEN_ENTRY($name));
	}' unless defined(&ALTENTRY);
	eval 'sub CROSSJUMP {
	    my($jtrue, $label, $jfalse) = @_;
    	    eval q($jtrue $label);
	}' unless defined(&CROSSJUMP);
	eval 'sub CROSSJUMPTARGET {
	    my($label) = @_;
    	    eval q();
	}' unless defined(&CROSSJUMPTARGET);
	eval 'sub ENTRY {
	    my($name) = @_;
    	    eval q( &GEN_ENTRY($name));
	}' unless defined(&ENTRY);
	eval 'sub FAKE_MCOUNT {
	    my($caller) = @_;
    	    eval q();
	}' unless defined(&FAKE_MCOUNT);
	eval 'sub MCOUNT () {1;}' unless defined(&MCOUNT);
	eval 'sub MCOUNT_LABEL {
	    my($name) = @_;
    	    eval q();
	}' unless defined(&MCOUNT_LABEL);
	eval 'sub MEXITCOUNT () {1;}' unless defined(&MEXITCOUNT);
    }
    eval 'sub PUSH_FRAME_POINTER () { &pushq % &rbp ;  &movq % &rsp, % &rbp ;;}' unless defined(&PUSH_FRAME_POINTER);
    eval 'sub POP_FRAME_POINTER () { &popq % &rbp;}' unless defined(&POP_FRAME_POINTER);
    if(defined(&LOCORE)) {
	eval 'sub PCPU {
	    my($member) = @_;
    	    eval q(% &gs: &PC_  $member);
	}' unless defined(&PCPU);
	eval 'sub PCPU_ADDR {
	    my($member, $reg) = @_;
    	    eval q( &movq % &gs: &PC_PRVSPACE, $reg ;  &addq $ &PC_  $member, $reg);
	}' unless defined(&PCPU_ADDR);
	eval 'sub IDTVEC {
	    my($name) = @_;
    	    eval q( &ALIGN_TEXT; . &globl  &__CONCAT( &X,$name); . &type  &__CONCAT( &X,$name),@ &function;  &__CONCAT( &X,$name):);
	}' unless defined(&IDTVEC);
    }
    if(defined(&__STDC__)) {
	eval 'sub ELFNOTE () {( &name,  &type,  &desctype,  &descdata...) . &pushsection . ($note->{name})  ; . &align 4; .\'long 2f\' - 1 &f ; .\'long 4f\' - 3 &f ; .\'long type\' ; 1:. &asciz  &name ; 2:. &align 4; 3: &desctype  &descdata ; 4:. &align 4; . &popsection;}' unless defined(&ELFNOTE);
    } else {
	eval 'sub ELFNOTE {
	    my($name, $type, $desctype, $descdata) = @_;
    	    eval q(. &pushsection . ($note->{name})  ; . &align 4; .\'long 2f\' - 1 &f ; .\'long 4f\' - 3 &f ; .\'long type\' ; 1:. &asciz \\"name\\" ; 2:. &align 4; 3:$desctype $descdata ; 4:. &align 4; . &popsection);
	}' unless defined(&ELFNOTE);
    }
}
1;

003 File Manager

Editing: asmacros.ph

Upload File

Create Folder