Return to zend_dtrace.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / Zend

Annotation of embedaddon/php/Zend/zend_dtrace.c, revision 1.1.1.2

1.1       misho       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 {{{ */
1.1.1.2 ! misho      27: static inline const char *dtrace_get_executed_filename(TSRMLS_D)
1.1       misho      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: 
                     36: ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC)
                     37: {
                     38:        zend_op_array *res;
1.1.1.2 ! misho      39:        DTRACE_COMPILE_FILE_ENTRY(file_handle->opened_path, (char *)file_handle->filename);
1.1       misho      40:        res = compile_file(file_handle, type TSRMLS_CC);
1.1.1.2 ! misho      41:        DTRACE_COMPILE_FILE_RETURN(file_handle->opened_path, (char *)file_handle->filename);
1.1       misho      42: 
                     43:        return res;
                     44: }
                     45: 
                     46: /* We wrap the execute function to have fire the execute-entry/return and function-entry/return probes */
                     47: ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC)
                     48: {
                     49:        int lineno;
1.1.1.2 ! misho      50:        const char *scope, *filename, *funcname, *classname;
1.1       misho      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()) {
1.1.1.2 ! misho      66:                DTRACE_EXECUTE_ENTRY((char *)filename, lineno);
1.1       misho      67:        }
                     68: 
                     69:        if (DTRACE_FUNCTION_ENTRY_ENABLED() && funcname != NULL) {
1.1.1.2 ! misho      70:                DTRACE_FUNCTION_ENTRY((char *)funcname, (char *)filename, lineno, (char *)classname, (char *)scope);
1.1       misho      71:        }
                     72: 
                     73:        execute(op_array TSRMLS_CC);
                     74: 
                     75:        if (DTRACE_FUNCTION_RETURN_ENABLED() && funcname != NULL) {
1.1.1.2 ! misho      76:                DTRACE_FUNCTION_RETURN((char *)funcname, (char *)filename, lineno, (char *)classname, (char *)scope);
1.1       misho      77:        }
                     78: 
                     79:        if (DTRACE_EXECUTE_RETURN_ENABLED()) {
1.1.1.2 ! misho      80:                DTRACE_EXECUTE_RETURN((char *)filename, lineno);
1.1       misho      81:        }
                     82: }
                     83: 
                     84: ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC)
                     85: {
                     86:        int lineno;
1.1.1.2 ! misho      87:        const char *filename;
1.1       misho      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()) {
1.1.1.2 ! misho      94:                DTRACE_EXECUTE_ENTRY((char *)filename, lineno);
1.1       misho      95:        }
                     96: 
                     97:        execute_internal(execute_data_ptr, return_value_used TSRMLS_CC);
                     98: 
                     99:        if (DTRACE_EXECUTE_RETURN_ENABLED()) {
1.1.1.2 ! misho     100:                DTRACE_EXECUTE_RETURN((char *)filename, lineno);
1.1       misho     101:        }
                    102: }
                    103: 
                    104: /* }}} */
                    105: #endif /* HAVE_DTRACE */
                    106: