Server : Apache System : Linux server1.cgrithy.com 3.10.0-1160.95.1.el7.x86_64 #1 SMP Mon Jul 24 13:59:37 UTC 2023 x86_64 User : nobody ( 99) PHP Version : 8.1.23 Disable Function : NONE Directory :  /lib64/perl5/CORE/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

/* 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)