xref: /PHP-7.2/Zend/zend_dtrace.c (revision 03f3b847)
1 /*
2    +----------------------------------------------------------------------+
3    | Zend Engine                                                          |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1998-2009 Zend Technologies Ltd. (http://www.zend.com) |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 2.00 of the Zend license,     |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.zend.com/license/2_00.txt.                                |
11    | If you did not receive a copy of the Zend license and are unable to  |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@zend.com so we can mail you a copy immediately.              |
14    +----------------------------------------------------------------------+
15    | Authors: David Soria Parra <david.soriaparra@sun.com>                |
16    +----------------------------------------------------------------------+
17 */
18 
19 /* $Id: $ */
20 
21 #include "zend.h"
22 #include "zend_API.h"
23 #include "zend_dtrace.h"
24 
25 #ifdef HAVE_DTRACE
26 
27 ZEND_API zend_op_array *(*zend_dtrace_compile_file)(zend_file_handle *file_handle, int type);
28 ZEND_API void (*zend_dtrace_execute)(zend_op_array *op_array);
29 ZEND_API void (*zend_dtrace_execute_internal)(zend_execute_data *execute_data, zval *return_value);
30 
31 /* PHP DTrace probes {{{ */
dtrace_get_executed_filename(void)32 static inline const char *dtrace_get_executed_filename(void)
33 {
34 	zend_execute_data *ex = EG(current_execute_data);
35 
36 	while (ex && (!ex->func || !ZEND_USER_CODE(ex->func->type))) {
37 		ex = ex->prev_execute_data;
38 	}
39 	if (ex) {
40 		return ZSTR_VAL(ex->func->op_array.filename);
41 	} else {
42 		return zend_get_executed_filename();
43 	}
44 }
45 
dtrace_compile_file(zend_file_handle * file_handle,int type)46 ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type)
47 {
48 	zend_op_array *res;
49 	DTRACE_COMPILE_FILE_ENTRY(ZSTR_VAL(file_handle->opened_path), (char *)file_handle->filename);
50 	res = compile_file(file_handle, type);
51 	DTRACE_COMPILE_FILE_RETURN(ZSTR_VAL(file_handle->opened_path), (char *)file_handle->filename);
52 
53 	return res;
54 }
55 
56 /* We wrap the execute function to have fire the execute-entry/return and function-entry/return probes */
dtrace_execute_ex(zend_execute_data * execute_data)57 ZEND_API void dtrace_execute_ex(zend_execute_data *execute_data)
58 {
59 	int lineno;
60 	const char *scope, *filename, *funcname, *classname;
61 	scope = filename = funcname = classname = NULL;
62 
63 	/* we need filename and lineno for both execute and function probes */
64 	if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()
65 		|| DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
66 		filename = dtrace_get_executed_filename();
67 		lineno = zend_get_executed_lineno();
68 	}
69 
70 	if (DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
71 		classname = get_active_class_name(&scope);
72 		funcname = get_active_function_name();
73 	}
74 
75 	if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
76 		DTRACE_EXECUTE_ENTRY((char *)filename, lineno);
77 	}
78 
79 	if (DTRACE_FUNCTION_ENTRY_ENABLED() && funcname != NULL) {
80 		DTRACE_FUNCTION_ENTRY((char *)funcname, (char *)filename, lineno, (char *)classname, (char *)scope);
81 	}
82 
83 	execute_ex(execute_data);
84 
85 	if (DTRACE_FUNCTION_RETURN_ENABLED() && funcname != NULL) {
86 		DTRACE_FUNCTION_RETURN((char *)funcname, (char *)filename, lineno, (char *)classname, (char *)scope);
87 	}
88 
89 	if (DTRACE_EXECUTE_RETURN_ENABLED()) {
90 		DTRACE_EXECUTE_RETURN((char *)filename, lineno);
91 	}
92 }
93 
dtrace_execute_internal(zend_execute_data * execute_data,zval * return_value)94 ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data, zval *return_value)
95 {
96 	int lineno;
97 	const char *filename;
98 	if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()) {
99 		filename = dtrace_get_executed_filename();
100 		lineno = zend_get_executed_lineno();
101 	}
102 
103 	if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
104 		DTRACE_EXECUTE_ENTRY((char *)filename, lineno);
105 	}
106 
107 	execute_internal(execute_data, return_value);
108 
109 	if (DTRACE_EXECUTE_RETURN_ENABLED()) {
110 		DTRACE_EXECUTE_RETURN((char *)filename, lineno);
111 	}
112 }
113 
114 /* }}} */
115 
116 #endif /* HAVE_DTRACE */
117 
118 /*
119  * Local variables:
120  * tab-width: 4
121  * c-basic-offset: 4
122  * indent-tabs-mode: t
123  * End:
124  * vim600: sw=4 ts=4 fdm=marker
125  * vim<600: sw=4 ts=4
126  */
127