php-src/Zend/zend_dtrace.c at PHP-8.4.4 · php/php-src · GitHub

Name: php-src/Zend/zend_dtrace.c at PHP-8.4.4 · php/php-src · GitHub
Rating: 4.8 (4432 reviews)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
/*
 +----------------------------------------------------------------------+
 | Zend Engine |
 +----------------------------------------------------------------------+
 | Copyright (c) Zend Technologies Ltd. (http://www.zend.com) |
 +----------------------------------------------------------------------+
 | This source file is subject to version 2.00 of the Zend license, |
 | that is bundled with this package in the file LICENSE, and is |
 | available through the world-wide-web at the following url: |
 | http://www.zend.com/license/2_00.txt. |
 | If you did not receive a copy of the Zend license and are unable to |
 | obtain it through the world-wide-web, please send a note to |
 | license@zend.com so we can mail you a copy immediately. |
 +----------------------------------------------------------------------+
 | Authors: David Soria Parra <david.soriaparra@sun.com> |
 +----------------------------------------------------------------------+
*/

#include"zend.h"
#include"zend_API.h"
#include"zend_dtrace.h"

#ifdefHAVE_DTRACE

ZEND_APIzend_op_array*(*zend_dtrace_compile_file)(zend_file_handle*file_handle, inttype);
ZEND_APIvoid (*zend_dtrace_execute)(zend_op_array*op_array);
ZEND_APIvoid (*zend_dtrace_execute_internal)(zend_execute_data*execute_data, zval*return_value);

/* PHP DTrace probes {{{ */
staticinlineconstchar*dtrace_get_executed_filename(void)
{
zend_execute_data*ex=EG(current_execute_data);

while (ex&& (!ex->func|| !ZEND_USER_CODE(ex->func->type))) {
ex=ex->prev_execute_data;
 }
if (ex) {
returnZSTR_VAL(ex->func->op_array.filename);
 } else {
returnzend_get_executed_filename();
 }
}

ZEND_APIzend_op_array*dtrace_compile_file(zend_file_handle*file_handle, inttype)
{
zend_op_array*res;
DTRACE_COMPILE_FILE_ENTRY(ZSTR_VAL(file_handle->opened_path), ZSTR_VAL(file_handle->filename));
res=compile_file(file_handle, type);
DTRACE_COMPILE_FILE_RETURN(ZSTR_VAL(file_handle->opened_path), ZSTR_VAL(file_handle->filename));

returnres;
}

/* We wrap the execute function to have fire the execute-entry/return and function-entry/return probes */
ZEND_APIvoiddtrace_execute_ex(zend_execute_data*execute_data)
{
intlineno;
constchar*scope, *filename, *funcname, *classname;
scope=filename=funcname=classname=NULL;

/* we need filename and lineno for both execute and function probes */
if (DTRACE_EXECUTE_ENTRY_ENABLED() ||DTRACE_EXECUTE_RETURN_ENABLED()
||DTRACE_FUNCTION_ENTRY_ENABLED() ||DTRACE_FUNCTION_RETURN_ENABLED()) {
filename=dtrace_get_executed_filename();
lineno=zend_get_executed_lineno();
 }

if (DTRACE_FUNCTION_ENTRY_ENABLED() ||DTRACE_FUNCTION_RETURN_ENABLED()) {
classname=get_active_class_name(&scope);
funcname=get_active_function_name();
 }

if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
DTRACE_EXECUTE_ENTRY((char*)filename, lineno);
 }

if (DTRACE_FUNCTION_ENTRY_ENABLED() &&funcname!=NULL) {
DTRACE_FUNCTION_ENTRY((char*)funcname, (char*)filename, lineno, (char*)classname, (char*)scope);
 }

execute_ex(execute_data);

if (DTRACE_FUNCTION_RETURN_ENABLED() &&funcname!=NULL) {
DTRACE_FUNCTION_RETURN((char*)funcname, (char*)filename, lineno, (char*)classname, (char*)scope);
 }

if (DTRACE_EXECUTE_RETURN_ENABLED()) {
DTRACE_EXECUTE_RETURN((char*)filename, lineno);
 }
}

ZEND_APIvoiddtrace_execute_internal(zend_execute_data*execute_data, zval*return_value)
{
intlineno;
constchar*filename;
if (DTRACE_EXECUTE_ENTRY_ENABLED() ||DTRACE_EXECUTE_RETURN_ENABLED()) {
filename=dtrace_get_executed_filename();
lineno=zend_get_executed_lineno();
 }

if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
DTRACE_EXECUTE_ENTRY((char*)filename, lineno);
 }

execute_internal(execute_data, return_value);

if (DTRACE_EXECUTE_RETURN_ENABLED()) {
DTRACE_EXECUTE_RETURN((char*)filename, lineno);
 }
}

voiddtrace_error_notify_cb(inttype, zend_string*error_filename, uint32_terror_lineno, zend_string*message)
{
if (DTRACE_ERROR_ENABLED()) {
DTRACE_ERROR(ZSTR_VAL(message), ZSTR_VAL(error_filename), error_lineno);
 }
}

/* }}} */

#endif/* HAVE_DTRACE */