xref: /PHP-5.4/Zend/zend_dtrace.c (revision 5ab6d215)
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 /* PHP DTrace probes {{{ */
dtrace_get_executed_filename(TSRMLS_D)27 static inline const char *dtrace_get_executed_filename(TSRMLS_D)
28 {
29 	if (EG(current_execute_data) && EG(current_execute_data)->op_array) {
30 		return EG(current_execute_data)->op_array->filename;
31 	} else {
32 		return zend_get_executed_filename(TSRMLS_C);
33 	}
34 }
35 
dtrace_compile_file(zend_file_handle * file_handle,int type TSRMLS_DC)36 ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC)
37 {
38 	zend_op_array *res;
39 	DTRACE_COMPILE_FILE_ENTRY(file_handle->opened_path, (char *)file_handle->filename);
40 	res = compile_file(file_handle, type TSRMLS_CC);
41 	DTRACE_COMPILE_FILE_RETURN(file_handle->opened_path, (char *)file_handle->filename);
42 
43 	return res;
44 }
45 
46 /* We wrap the execute function to have fire the execute-entry/return and function-entry/return probes */
dtrace_execute(zend_op_array * op_array TSRMLS_DC)47 ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC)
48 {
49 	int lineno;
50 	const char *scope, *filename, *funcname, *classname;
51 	scope = filename = funcname = classname = NULL;
52 
53 	/* we need filename and lineno for both execute and function probes */
54 	if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()
55 		|| DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
56 		filename = dtrace_get_executed_filename(TSRMLS_C);
57 		lineno = zend_get_executed_lineno(TSRMLS_C);
58 	}
59 
60 	if (DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
61 		classname = get_active_class_name(&scope TSRMLS_CC);
62 		funcname = get_active_function_name(TSRMLS_C);
63 	}
64 
65 	if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
66 		DTRACE_EXECUTE_ENTRY((char *)filename, lineno);
67 	}
68 
69 	if (DTRACE_FUNCTION_ENTRY_ENABLED() && funcname != NULL) {
70 		DTRACE_FUNCTION_ENTRY((char *)funcname, (char *)filename, lineno, (char *)classname, (char *)scope);
71 	}
72 
73 	execute(op_array TSRMLS_CC);
74 
75 	if (DTRACE_FUNCTION_RETURN_ENABLED() && funcname != NULL) {
76 		DTRACE_FUNCTION_RETURN((char *)funcname, (char *)filename, lineno, (char *)classname, (char *)scope);
77 	}
78 
79 	if (DTRACE_EXECUTE_RETURN_ENABLED()) {
80 		DTRACE_EXECUTE_RETURN((char *)filename, lineno);
81 	}
82 }
83 
dtrace_execute_internal(zend_execute_data * execute_data_ptr,int return_value_used TSRMLS_DC)84 ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC)
85 {
86 	int lineno;
87 	const char *filename;
88 	if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()) {
89 		filename = dtrace_get_executed_filename(TSRMLS_C);
90 		lineno = zend_get_executed_lineno(TSRMLS_C);
91 	}
92 
93 	if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
94 		DTRACE_EXECUTE_ENTRY((char *)filename, lineno);
95 	}
96 
97 	execute_internal(execute_data_ptr, return_value_used TSRMLS_CC);
98 
99 	if (DTRACE_EXECUTE_RETURN_ENABLED()) {
100 		DTRACE_EXECUTE_RETURN((char *)filename, lineno);
101 	}
102 }
103 
104 /* }}} */
105 #endif /* HAVE_DTRACE */
106 
107