ok

Mini Shell

Direktori : /usr/lib64/perl5/CORE/
Upload File :
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)

Zerion Mini Shell 1.0