2013-12-08 18:29:15 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| PHP Version 5 |
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Copyright (c) 1997-2013 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 "zend.h"
|
|
|
|
#include "phpdbg.h"
|
|
|
|
#include "phpdbg_utils.h"
|
|
|
|
#include "phpdbg_frame.h"
|
|
|
|
#include "phpdbg_list.h"
|
|
|
|
|
|
|
|
ZEND_EXTERN_MODULE_GLOBALS(phpdbg);
|
|
|
|
|
|
|
|
void phpdbg_restore_frame(TSRMLS_D) /* {{{ */
|
|
|
|
{
|
|
|
|
if (PHPDBG_FRAME(num) == 0) {
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
PHPDBG_FRAME(num) = 0;
|
|
|
|
|
|
|
|
/* move things back */
|
|
|
|
EG(current_execute_data) = PHPDBG_FRAME(execute_data);
|
|
|
|
|
|
|
|
EG(opline_ptr) = &PHPDBG_EX(opline);
|
|
|
|
EG(active_op_array) = PHPDBG_EX(op_array);
|
|
|
|
EG(return_value_ptr_ptr) = PHPDBG_EX(original_return_value);
|
|
|
|
EG(active_symbol_table) = PHPDBG_EX(symbol_table);
|
|
|
|
EG(This) = PHPDBG_EX(current_this);
|
|
|
|
EG(scope) = PHPDBG_EX(current_scope);
|
|
|
|
EG(called_scope) = PHPDBG_EX(current_called_scope);
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
void phpdbg_switch_frame(int frame TSRMLS_DC) /* {{{ */
|
|
|
|
{
|
|
|
|
zend_execute_data *execute_data = PHPDBG_FRAME(num)?PHPDBG_FRAME(execute_data):EG(current_execute_data);
|
|
|
|
int i = 0;
|
|
|
|
|
|
|
|
if (PHPDBG_FRAME(num) == frame) {
|
|
|
|
phpdbg_notice("Already in frame #%d", frame);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
while (execute_data) {
|
|
|
|
if (i++ == frame) {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
do {
|
|
|
|
execute_data = execute_data->prev_execute_data;
|
|
|
|
} while (execute_data && execute_data->opline == NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (execute_data == NULL) {
|
|
|
|
phpdbg_error("No frame #%d", frame);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
phpdbg_restore_frame(TSRMLS_C);
|
|
|
|
|
|
|
|
if (frame > 0) {
|
|
|
|
PHPDBG_FRAME(num) = frame;
|
|
|
|
|
|
|
|
/* backup things and jump back */
|
|
|
|
PHPDBG_FRAME(execute_data) = EG(current_execute_data);
|
|
|
|
EG(current_execute_data) = execute_data;
|
|
|
|
|
|
|
|
EG(opline_ptr) = &PHPDBG_EX(opline);
|
|
|
|
EG(active_op_array) = PHPDBG_EX(op_array);
|
|
|
|
PHPDBG_FRAME(execute_data)->original_return_value = EG(return_value_ptr_ptr);
|
|
|
|
EG(return_value_ptr_ptr) = PHPDBG_EX(original_return_value);
|
|
|
|
EG(active_symbol_table) = PHPDBG_EX(symbol_table);
|
|
|
|
EG(This) = PHPDBG_EX(current_this);
|
|
|
|
EG(scope) = PHPDBG_EX(current_scope);
|
|
|
|
EG(called_scope) = PHPDBG_EX(current_called_scope);
|
|
|
|
}
|
|
|
|
|
|
|
|
phpdbg_notice("Switched to frame #%d", frame);
|
|
|
|
phpdbg_list_file(
|
|
|
|
zend_get_executed_filename(TSRMLS_C),
|
|
|
|
3,
|
|
|
|
zend_get_executed_lineno(TSRMLS_C)-1,
|
|
|
|
zend_get_executed_lineno(TSRMLS_C)
|
|
|
|
TSRMLS_CC
|
|
|
|
);
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-12-08 18:47:53 +00:00
|
|
|
static void phpdbg_dump_prototype(zval **tmp TSRMLS_DC) /* {{{ */
|
|
|
|
{
|
|
|
|
zval **funcname, **class, **type, **args, **argstmp;
|
|
|
|
char is_class;
|
|
|
|
|
|
|
|
zend_hash_find(Z_ARRVAL_PP(tmp), "function", sizeof("function"),
|
|
|
|
(void **)&funcname);
|
|
|
|
|
|
|
|
if ((is_class = zend_hash_find(Z_ARRVAL_PP(tmp),
|
|
|
|
"object", sizeof("object"), (void **)&class)) == FAILURE) {
|
|
|
|
is_class = zend_hash_find(Z_ARRVAL_PP(tmp), "class", sizeof("class"),
|
|
|
|
(void **)&class);
|
|
|
|
} else {
|
|
|
|
zend_get_object_classname(*class, (const char **)&Z_STRVAL_PP(class),
|
|
|
|
(zend_uint *)&Z_STRLEN_PP(class) TSRMLS_CC);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (is_class == SUCCESS) {
|
|
|
|
zend_hash_find(Z_ARRVAL_PP(tmp), "type", sizeof("type"), (void **)&type);
|
|
|
|
}
|
|
|
|
|
|
|
|
phpdbg_write("%s%s%s(",
|
|
|
|
is_class == FAILURE?"":Z_STRVAL_PP(class),
|
|
|
|
is_class == FAILURE?"":Z_STRVAL_PP(type),
|
|
|
|
Z_STRVAL_PP(funcname)
|
|
|
|
);
|
|
|
|
|
|
|
|
if (zend_hash_find(Z_ARRVAL_PP(tmp), "args", sizeof("args"),
|
|
|
|
(void **)&args) == SUCCESS) {
|
|
|
|
HashPosition iterator;
|
2013-12-08 19:37:35 +00:00
|
|
|
const zend_function *func = phpdbg_get_function(
|
|
|
|
Z_STRVAL_PP(funcname), is_class == FAILURE ? NULL : Z_STRVAL_PP(class) TSRMLS_CC);
|
|
|
|
const zend_arg_info *arginfo = func ? func->common.arg_info : NULL;
|
|
|
|
int j = 0, m = func ? func->common.num_args : 0;
|
2013-12-08 20:04:39 +00:00
|
|
|
zend_bool is_variadic = 0;
|
2013-12-08 18:47:53 +00:00
|
|
|
|
|
|
|
zend_hash_internal_pointer_reset_ex(Z_ARRVAL_PP(args), &iterator);
|
|
|
|
while (zend_hash_get_current_data_ex(Z_ARRVAL_PP(args),
|
|
|
|
(void **) &argstmp, &iterator) == SUCCESS) {
|
2013-12-08 19:52:14 +00:00
|
|
|
if (j) {
|
|
|
|
phpdbg_write(", ");
|
|
|
|
}
|
2013-12-08 19:37:35 +00:00
|
|
|
if (m && j < m) {
|
2013-12-08 20:04:39 +00:00
|
|
|
#if PHP_VERSION_ID >= 50600
|
|
|
|
is_variadic = arginfo[j].is_variadic;
|
|
|
|
#endif
|
|
|
|
phpdbg_write("%s=%s",
|
|
|
|
arginfo[j].name, is_variadic ? "[": "");
|
2013-12-08 19:37:35 +00:00
|
|
|
}
|
2013-12-08 19:52:14 +00:00
|
|
|
++j;
|
2013-12-08 19:37:35 +00:00
|
|
|
|
2013-12-08 18:47:53 +00:00
|
|
|
zend_print_flat_zval_r(*argstmp TSRMLS_CC);
|
|
|
|
zend_hash_move_forward_ex(Z_ARRVAL_PP(args), &iterator);
|
|
|
|
}
|
2013-12-08 20:04:39 +00:00
|
|
|
if (is_variadic) {
|
|
|
|
phpdbg_write("]");
|
|
|
|
}
|
2013-12-08 18:47:53 +00:00
|
|
|
}
|
|
|
|
phpdbg_write(")");
|
|
|
|
}
|
|
|
|
|
2013-12-08 18:33:19 +00:00
|
|
|
void phpdbg_dump_backtrace(size_t num TSRMLS_DC) /* {{{ */
|
2013-12-08 18:29:15 +00:00
|
|
|
{
|
|
|
|
zval zbacktrace;
|
2013-12-08 18:47:53 +00:00
|
|
|
zval **tmp;
|
|
|
|
zval **file, **line;
|
2013-12-08 18:29:15 +00:00
|
|
|
HashPosition position;
|
2013-12-08 20:43:19 +00:00
|
|
|
int i = 1, limit = num;
|
|
|
|
int user_defined;
|
2013-12-08 18:29:15 +00:00
|
|
|
|
|
|
|
if (limit < 0) {
|
|
|
|
phpdbg_error("Invalid backtrace size %d", limit);
|
|
|
|
}
|
|
|
|
|
|
|
|
zend_fetch_debug_backtrace(
|
|
|
|
&zbacktrace, 0, 0, limit TSRMLS_CC);
|
|
|
|
|
|
|
|
zend_hash_internal_pointer_reset_ex(Z_ARRVAL(zbacktrace), &position);
|
|
|
|
zend_hash_get_current_data_ex(Z_ARRVAL(zbacktrace), (void**)&tmp, &position);
|
|
|
|
while (1) {
|
2013-12-08 20:43:19 +00:00
|
|
|
user_defined = zend_hash_find(Z_ARRVAL_PP(tmp), "file", sizeof("file"), (void **)&file);
|
2013-12-08 18:29:15 +00:00
|
|
|
zend_hash_find(Z_ARRVAL_PP(tmp), "line", sizeof("line"), (void **)&line);
|
|
|
|
zend_hash_move_forward_ex(Z_ARRVAL(zbacktrace), &position);
|
2013-12-08 18:47:53 +00:00
|
|
|
|
2013-12-08 18:48:20 +00:00
|
|
|
if (zend_hash_get_current_data_ex(Z_ARRVAL(zbacktrace),
|
|
|
|
(void**)&tmp, &position) == FAILURE) {
|
2013-12-08 20:43:19 +00:00
|
|
|
phpdbg_write("frame #0: {main} at %s:%ld", Z_STRVAL_PP(file), Z_LVAL_PP(line));
|
2013-12-08 18:29:15 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
2013-12-08 20:43:19 +00:00
|
|
|
if (user_defined == SUCCESS) {
|
|
|
|
phpdbg_write("frame #%d: ", i++);
|
|
|
|
phpdbg_dump_prototype(tmp TSRMLS_CC);
|
|
|
|
phpdbg_writeln(" at %s:%ld", Z_STRVAL_PP(file), Z_LVAL_PP(line));
|
|
|
|
} else {
|
|
|
|
phpdbg_write(" => ");
|
|
|
|
phpdbg_dump_prototype(tmp TSRMLS_CC);
|
|
|
|
phpdbg_writeln(" (internal function)");
|
|
|
|
}
|
2013-12-08 18:29:15 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
phpdbg_writeln(EMPTY);
|
|
|
|
zval_dtor(&zbacktrace);
|
|
|
|
} /* }}} */
|