Mr.Combet Webshell
Your IP :
3.15.235.85
Server IP :
185.136.159.155
Server :
Linux 185-136-159-155.cprapid.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software :
Apache
PHP Version :
8.1.29
Add File :
Submit
Add Directory :
Submit
Dir :
~
/
lib64
/
perl5
/
CORE
/
View File Name :
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)