config root man

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_MACHINE_PMC_MDEP_H)) {
    eval 'sub _MACHINE_PMC_MDEP_H () {1;}' unless defined(&_MACHINE_PMC_MDEP_H);
    if(defined(&_KERNEL)) {
    }
    require 'dev/hwpmc/hwpmc_amd.ph';
    require 'dev/hwpmc/hwpmc_core.ph';
    require 'dev/hwpmc/hwpmc_piv.ph';
    require 'dev/hwpmc/hwpmc_tsc.ph';
    require 'dev/hwpmc/hwpmc_uncore.ph';
    eval 'sub PMC_MDEP_CLASS_INDEX_TSC () {1;}' unless defined(&PMC_MDEP_CLASS_INDEX_TSC);
    eval 'sub PMC_MDEP_CLASS_INDEX_K8 () {2;}' unless defined(&PMC_MDEP_CLASS_INDEX_K8);
    eval 'sub PMC_MDEP_CLASS_INDEX_P4 () {2;}' unless defined(&PMC_MDEP_CLASS_INDEX_P4);
    eval 'sub PMC_MDEP_CLASS_INDEX_IAP () {2;}' unless defined(&PMC_MDEP_CLASS_INDEX_IAP);
    eval 'sub PMC_MDEP_CLASS_INDEX_IAF () {3;}' unless defined(&PMC_MDEP_CLASS_INDEX_IAF);
    eval 'sub PMC_MDEP_CLASS_INDEX_UCP () {4;}' unless defined(&PMC_MDEP_CLASS_INDEX_UCP);
    eval 'sub PMC_MDEP_CLASS_INDEX_UCF () {5;}' unless defined(&PMC_MDEP_CLASS_INDEX_UCF);
    eval 'sub PMCLOG_READADDR () { &PMCLOG_READ64;}' unless defined(&PMCLOG_READADDR);
    eval 'sub PMCLOG_EMITADDR () { &PMCLOG_EMIT64;}' unless defined(&PMCLOG_EMITADDR);
    if(defined(&_KERNEL)) {
	eval 'sub PMC_TRAPFRAME_TO_PC {
	    my($TF) = @_;
    	    eval q((($TF)-> &tf_rip));
	}' unless defined(&PMC_TRAPFRAME_TO_PC);
	eval 'sub PMC_TRAPFRAME_TO_FP {
	    my($TF) = @_;
    	    eval q((($TF)-> &tf_rbp));
	}' unless defined(&PMC_TRAPFRAME_TO_FP);
	eval 'sub PMC_TRAPFRAME_TO_USER_SP {
	    my($TF) = @_;
    	    eval q((($TF)-> &tf_rsp));
	}' unless defined(&PMC_TRAPFRAME_TO_USER_SP);
	eval 'sub PMC_TRAPFRAME_TO_KERNEL_SP {
	    my($TF) = @_;
    	    eval q((($TF)-> &tf_rsp));
	}' unless defined(&PMC_TRAPFRAME_TO_KERNEL_SP);
	eval 'sub PMC_AT_FUNCTION_PROLOGUE_PUSH_BP {
	    my($I) = @_;
    	    eval q(((($I) & 0xffffffff) == 0xe5894855));
	}' unless defined(&PMC_AT_FUNCTION_PROLOGUE_PUSH_BP);
	eval 'sub PMC_AT_FUNCTION_PROLOGUE_MOV_SP_BP {
	    my($I) = @_;
    	    eval q(((($I) & 0xffffff) == 0xe58948));
	}' unless defined(&PMC_AT_FUNCTION_PROLOGUE_MOV_SP_BP);
	eval 'sub PMC_AT_FUNCTION_EPILOGUE_RET {
	    my($I) = @_;
    	    eval q(((($I) & 0xff) == 0xc3));
	}' unless defined(&PMC_AT_FUNCTION_EPILOGUE_RET);
	eval 'sub PMC_IN_TRAP_HANDLER {
	    my($PC) = @_;
    	    eval q((($PC) >= ( &uintptr_t)  &start_exceptions  && ($PC) < ( &uintptr_t)  &end_exceptions));
	}' unless defined(&PMC_IN_TRAP_HANDLER);
	eval 'sub PMC_IN_KERNEL_STACK {
	    my($S,$START,$END) = @_;
    	    eval q((($S) >= ($START)  && ($S) < ($END)));
	}' unless defined(&PMC_IN_KERNEL_STACK);
	eval 'sub PMC_IN_KERNEL {
	    my($va) = @_;
    	    eval q(((($va) >=  &DMAP_MIN_ADDRESS  && ($va) <  &DMAP_MAX_ADDRESS) || (($va) >=  &VM_MIN_KERNEL_ADDRESS  && ($va) <  &VM_MAX_KERNEL_ADDRESS)));
	}' unless defined(&PMC_IN_KERNEL);
	eval 'sub PMC_IN_USERSPACE {
	    my($va) = @_;
    	    eval q((($va) <=  &VM_MAXUSER_ADDRESS));
	}' unless defined(&PMC_IN_USERSPACE);
	eval 'sub PMC_FAKE_TRAPFRAME {
	    my($TF) = @_;
    	    eval q( &do { ($TF)-> &tf_cs = 0; ($TF)-> &tf_rflags = 0;  &__asm  &__volatile(\\"movq %%rbp,%0\\" : \\"=r\\" (($TF)-> &tf_rbp));  &__asm  &__volatile(\\"movq %%rsp,%0\\" : \\"=r\\" (($TF)-> &tf_rsp));  &__asm  &__volatile(\\"call 1f \\\\n\\\\t1: pop %0\\" : \\"=r\\"(($TF)-> &tf_rip)); }  &while (0));
	}' unless defined(&PMC_FAKE_TRAPFRAME);
    }
}
1;