?
Current Path : /usr/lib64/perl5/CORE/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
Current File : //usr/lib64/perl5/CORE/perldtrace.h |
/* Generated by the Systemtap dtrace wrapper */ #define _SDT_HAS_SEMAPHORES 1 #define STAP_HAS_SEMAPHORES 1 /* deprecated */ #include <sys/sdt.h> /* PERL_SUB_ENTRY ( const char *, const char *, int, const char * ) */ #if defined STAP_SDT_V1 #define PERL_SUB_ENTRY_ENABLED() __builtin_expect (sub__entry_semaphore, 0) #define perl_sub__entry_semaphore sub__entry_semaphore #else #define PERL_SUB_ENTRY_ENABLED() __builtin_expect (perl_sub__entry_semaphore, 0) #endif __extension__ extern unsigned short perl_sub__entry_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes"))); #define PERL_SUB_ENTRY(arg1, arg2, arg3, arg4) \ DTRACE_PROBE4 (perl, sub__entry, arg1, arg2, arg3, arg4) /* PERL_SUB_RETURN ( const char *, const char *, int, const char * ) */ #if defined STAP_SDT_V1 #define PERL_SUB_RETURN_ENABLED() __builtin_expect (sub__return_semaphore, 0) #define perl_sub__return_semaphore sub__return_semaphore #else #define PERL_SUB_RETURN_ENABLED() __builtin_expect (perl_sub__return_semaphore, 0) #endif __extension__ extern unsigned short perl_sub__return_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes"))); #define PERL_SUB_RETURN(arg1, arg2, arg3, arg4) \ DTRACE_PROBE4 (perl, sub__return, arg1, arg2, arg3, arg4) /* PERL_PHASE_CHANGE ( const char *, const char * ) */ #if defined STAP_SDT_V1 #define PERL_PHASE_CHANGE_ENABLED() __builtin_expect (phase__change_semaphore, 0) #define perl_phase__change_semaphore phase__change_semaphore #else #define PERL_PHASE_CHANGE_ENABLED() __builtin_expect (perl_phase__change_semaphore, 0) #endif __extension__ extern unsigned short perl_phase__change_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes"))); #define PERL_PHASE_CHANGE(arg1, arg2) \ DTRACE_PROBE2 (perl, phase__change, arg1, arg2)