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.1

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 {{{ */
                     27: static inline 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: 
                     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, file_handle->filename);
                     40:        res = compile_file(file_handle, type TSRMLS_CC);
                     41:        DTRACE_COMPILE_FILE_RETURN(file_handle->opened_path, 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 */
                     47: ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC)
                     48: {
                     49:        int lineno;
                     50:        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:                filename = dtrace_get_executed_filename(TSRMLS_C);
                     62:                classname = get_active_class_name(&scope TSRMLS_CC);
                     63:                funcname = get_active_function_name(TSRMLS_C);
                     64:                lineno = zend_get_executed_lineno(TSRMLS_C);
                     65:        }
                     66: 
                     67:        if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
                     68:                DTRACE_EXECUTE_ENTRY(filename, lineno);
                     69:        }
                     70: 
                     71:        if (DTRACE_FUNCTION_ENTRY_ENABLED() && funcname != NULL) {
                     72:                DTRACE_FUNCTION_ENTRY(funcname, filename, lineno, classname, scope);
                     73:        }
                     74: 
                     75:        execute(op_array TSRMLS_CC);
                     76: 
                     77:        if (DTRACE_FUNCTION_RETURN_ENABLED() && funcname != NULL) {
                     78:                DTRACE_FUNCTION_RETURN(funcname, filename, lineno, classname, scope);
                     79:        }
                     80: 
                     81:        if (DTRACE_EXECUTE_RETURN_ENABLED()) {
                     82:                DTRACE_EXECUTE_RETURN(filename, lineno);
                     83:        }
                     84: }
                     85: 
                     86: ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC)
                     87: {
                     88:        int lineno;
                     89:        char *filename;
                     90:        if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()) {
                     91:                filename = dtrace_get_executed_filename(TSRMLS_C);
                     92:                lineno = zend_get_executed_lineno(TSRMLS_C);
                     93:        }
                     94: 
                     95:        if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
                     96:                DTRACE_EXECUTE_ENTRY(filename, lineno);
                     97:        }
                     98: 
                     99:        execute_internal(execute_data_ptr, return_value_used TSRMLS_CC);
                    100: 
                    101:        if (DTRACE_EXECUTE_RETURN_ENABLED()) {
                    102:                DTRACE_EXECUTE_RETURN(filename, lineno);
                    103:        }
                    104: }
                    105: 
                    106: /* }}} */
                    107: #endif /* HAVE_DTRACE */
                    108: