mirror of
https://github.com/php/php-src.git
synced 2024-09-23 19:07:26 +00:00
268 lines
7.6 KiB
C
268 lines
7.6 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 5 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2014 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 3.01 of the PHP 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.php.net/license/3_01.txt |
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: Felipe Pena <felipe@php.net> |
|
|
| Authors: Joe Watkins <joe.watkins@live.co.uk> |
|
|
| Authors: Bob Weinand <bwoebi@php.net> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
#include "phpdbg.h"
|
|
#include "phpdbg_print.h"
|
|
#include "phpdbg_utils.h"
|
|
#include "phpdbg_opcode.h"
|
|
#include "phpdbg_prompt.h"
|
|
|
|
ZEND_EXTERN_MODULE_GLOBALS(phpdbg);
|
|
|
|
PHPDBG_PRINT(opline) /* {{{ */
|
|
{
|
|
if (EG(in_execution) && EG(current_execute_data)) {
|
|
phpdbg_print_opline(EG(current_execute_data), 1 TSRMLS_CC);
|
|
} else {
|
|
phpdbg_error("Not Executing!");
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|
|
|
|
static inline void phpdbg_print_function_helper(zend_function *method TSRMLS_DC) /* {{{ */
|
|
{
|
|
switch (method->type) {
|
|
case ZEND_USER_FUNCTION: {
|
|
zend_op_array* op_array = &(method->op_array);
|
|
HashTable vars;
|
|
|
|
if (op_array) {
|
|
zend_op *opline = &(op_array->opcodes[0]);
|
|
zend_uint opcode = 0,
|
|
end = op_array->last-1;
|
|
|
|
if (method->common.scope) {
|
|
phpdbg_writeln("\tL%d-%d %s::%s() %s",
|
|
op_array->line_start, op_array->line_end,
|
|
method->common.scope->name->val,
|
|
method->common.function_name->val,
|
|
op_array->filename ? op_array->filename->val : "unknown");
|
|
} else {
|
|
phpdbg_writeln("\tL%d-%d %s() %s",
|
|
method->common.function_name ? op_array->line_start : 0,
|
|
method->common.function_name ? op_array->line_end : 0,
|
|
method->common.function_name ? method->common.function_name->val : "{main}",
|
|
op_array->filename ? op_array->filename->val : "unknown");
|
|
}
|
|
|
|
zend_hash_init(&vars, op_array->last, NULL, NULL, 0);
|
|
do {
|
|
char *decode = phpdbg_decode_opline(op_array, opline, &vars TSRMLS_CC);
|
|
if (decode != NULL) {
|
|
phpdbg_writeln("\t\tL%u\t%p %-30s %s",
|
|
opline->lineno,
|
|
opline,
|
|
phpdbg_decode_opcode(opline->opcode),
|
|
decode);
|
|
free(decode);
|
|
} else {
|
|
phpdbg_error("\tFailed to decode opline %16p", opline);
|
|
}
|
|
opline++;
|
|
} while (++opcode < end);
|
|
zend_hash_destroy(&vars);
|
|
}
|
|
} break;
|
|
|
|
default: {
|
|
if (method->common.scope) {
|
|
phpdbg_writeln("\tInternal %s::%s()", method->common.scope->name->val, method->common.function_name->val);
|
|
} else {
|
|
phpdbg_writeln("\tInternal %s()", method->common.function_name->val);
|
|
}
|
|
}
|
|
}
|
|
} /* }}} */
|
|
|
|
PHPDBG_PRINT(exec) /* {{{ */
|
|
{
|
|
if (PHPDBG_G(exec)) {
|
|
if (!PHPDBG_G(ops)) {
|
|
phpdbg_compile(TSRMLS_C);
|
|
}
|
|
|
|
if (PHPDBG_G(ops)) {
|
|
phpdbg_notice("Context %s", PHPDBG_G(exec));
|
|
|
|
phpdbg_print_function_helper((zend_function*) PHPDBG_G(ops) TSRMLS_CC);
|
|
}
|
|
} else {
|
|
phpdbg_error("No execution context set");
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|
|
|
|
PHPDBG_PRINT(stack) /* {{{ */
|
|
{
|
|
zend_op_array *ops = EG(active_op_array);
|
|
|
|
if (EG(in_execution) && ops) {
|
|
if (ops->function_name) {
|
|
if (ops->scope) {
|
|
phpdbg_notice("Stack in %s::%s()", ops->scope->name->val, ops->function_name->val);
|
|
} else {
|
|
phpdbg_notice("Stack in %s()", ops->function_name->val);
|
|
}
|
|
} else {
|
|
if (ops->filename) {
|
|
phpdbg_notice("Stack in %s", ops->filename->val);
|
|
} else {
|
|
phpdbg_notice("Stack @ %p", ops);
|
|
}
|
|
}
|
|
phpdbg_print_function_helper((zend_function*) ops TSRMLS_CC);
|
|
} else {
|
|
phpdbg_error("Not Executing!");
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|
|
|
|
PHPDBG_PRINT(class) /* {{{ */
|
|
{
|
|
zend_class_entry *ce;
|
|
|
|
switch (param->type) {
|
|
case STR_PARAM: {
|
|
zval tmp; /* param->str need to be zend_string later */
|
|
ZVAL_STRINGL(&tmp, param->str, param->len);
|
|
if ((ce = zend_lookup_class(Z_STR(tmp) TSRMLS_CC)) != NULL) {
|
|
zval_ptr_dtor(&tmp);
|
|
phpdbg_notice("%s %s: %s",
|
|
(ce->type == ZEND_USER_CLASS) ?
|
|
"User" : "Internal",
|
|
(ce->ce_flags & ZEND_ACC_INTERFACE) ?
|
|
"Interface" :
|
|
(ce->ce_flags & ZEND_ACC_ABSTRACT) ?
|
|
"Abstract Class" :
|
|
"Class",
|
|
ce->name->val);
|
|
|
|
phpdbg_writeln("Methods (%d):", zend_hash_num_elements(&ce->function_table));
|
|
if (zend_hash_num_elements(&ce->function_table)) {
|
|
HashPosition position;
|
|
zend_function *method;
|
|
|
|
for (zend_hash_internal_pointer_reset_ex(&ce->function_table, &position);
|
|
(method = zend_hash_get_current_data_ptr_ex(&ce->function_table, &position)) != NULL;
|
|
zend_hash_move_forward_ex(&ce->function_table, &position)) {
|
|
phpdbg_print_function_helper(method TSRMLS_CC);
|
|
}
|
|
}
|
|
} else {
|
|
phpdbg_error("The class %s could not be found", param->str);
|
|
zval_ptr_dtor(&tmp);
|
|
}
|
|
} break;
|
|
|
|
phpdbg_default_switch_case();
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|
|
|
|
PHPDBG_PRINT(method) /* {{{ */
|
|
{
|
|
switch (param->type) {
|
|
case METHOD_PARAM: {
|
|
zend_class_entry *ce;
|
|
zval tmp;
|
|
|
|
ZVAL_STRING(&tmp, param->method.class);
|
|
if ((ce = zend_lookup_class(Z_STR(tmp) TSRMLS_CC)) != NULL) {
|
|
zend_function *fbc;
|
|
char *lcname = zend_str_tolower_dup(param->method.name, strlen(param->method.name));
|
|
|
|
zval_ptr_dtor(&tmp);
|
|
|
|
if ((fbc = zend_hash_str_find_ptr(&ce->function_table, lcname, strlen(lcname))) != NULL) {
|
|
phpdbg_notice("%s Method %s",
|
|
(fbc->type == ZEND_USER_FUNCTION) ? "User" : "Internal",
|
|
fbc->common.function_name->val);
|
|
|
|
phpdbg_print_function_helper(fbc TSRMLS_CC);
|
|
} else {
|
|
phpdbg_error("The method %s could not be found", param->method.name);
|
|
}
|
|
|
|
efree(lcname);
|
|
} else {
|
|
zval_ptr_dtor(&tmp);
|
|
phpdbg_error("The class %s could not be found", param->method.class);
|
|
}
|
|
} break;
|
|
|
|
phpdbg_default_switch_case();
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|
|
|
|
PHPDBG_PRINT(func) /* {{{ */
|
|
{
|
|
switch (param->type) {
|
|
case STR_PARAM: {
|
|
HashTable *func_table = EG(function_table);
|
|
zend_function* fbc;
|
|
const char *func_name = param->str;
|
|
size_t func_name_len = param->len;
|
|
char *lcname;
|
|
/* search active scope if begins with period */
|
|
if (func_name[0] == '.') {
|
|
if (EG(scope)) {
|
|
func_name++;
|
|
func_name_len--;
|
|
|
|
func_table = &EG(scope)->function_table;
|
|
} else {
|
|
phpdbg_error("No active class");
|
|
return SUCCESS;
|
|
}
|
|
} else if (!EG(function_table)) {
|
|
phpdbg_error("No function table loaded");
|
|
return SUCCESS;
|
|
} else {
|
|
func_table = EG(function_table);
|
|
}
|
|
|
|
lcname = zend_str_tolower_dup(func_name, func_name_len);
|
|
|
|
if ((fbc = zend_hash_str_find_ptr(func_table, lcname, strlen(lcname))) != NULL) {
|
|
phpdbg_notice("%s %s %s",
|
|
(fbc->type == ZEND_USER_FUNCTION) ? "User" : "Internal",
|
|
(fbc->common.scope) ? "Method" : "Function",
|
|
fbc->common.function_name->val);
|
|
|
|
phpdbg_print_function_helper(fbc TSRMLS_CC);
|
|
} else {
|
|
phpdbg_error("The function %s could not be found", func_name);
|
|
}
|
|
|
|
efree(lcname);
|
|
} break;
|
|
|
|
phpdbg_default_switch_case();
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|