mirror of
https://github.com/php/php-src.git
synced 2024-11-24 02:15:04 +08:00
107 lines
4.4 KiB
C
107 lines
4.4 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| 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> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
#include "phpdbg.h"
|
|
#include "phpdbg_print.h"
|
|
#include "phpdbg_utils.h"
|
|
#include "phpdbg_opcode.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;
|
|
} /* }}} */
|
|
|
|
PHPDBG_PRINT(class) /* {{{ */
|
|
{
|
|
zend_class_entry **ce;
|
|
|
|
if (expr && expr_len > 0L) {
|
|
if (zend_lookup_class(expr, strlen(expr), &ce TSRMLS_CC) == SUCCESS) {
|
|
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);
|
|
|
|
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);
|
|
zend_hash_get_current_data_ex(&(*ce)->function_table, (void**) &method, &position) == SUCCESS;
|
|
zend_hash_move_forward_ex(&(*ce)->function_table, &position)) {
|
|
switch (method->type) {
|
|
case ZEND_USER_FUNCTION: {
|
|
zend_op_array* op_array = &method->op_array;
|
|
|
|
if (op_array) {
|
|
zend_op *opline = &op_array->opcodes[0];
|
|
zend_uint opcode = 0,
|
|
end = op_array->last-1;
|
|
|
|
phpdbg_writeln(
|
|
"\t%s::%s() in %s:%d-%d",
|
|
(*ce)->name, method->common.function_name,
|
|
op_array->filename ? op_array->filename : "unknown",
|
|
op_array->line_start, op_array->line_end);
|
|
|
|
do {
|
|
char *decode = phpdbg_decode_opcode(opline->opcode);
|
|
if (decode != NULL) {
|
|
phpdbg_writeln(
|
|
"\t\t%p:%s", opline, decode);
|
|
} else phpdbg_error("\tFailed to decode opline @ %ld", opline);
|
|
|
|
opline++;
|
|
} while (++opcode < end);
|
|
}
|
|
} break;
|
|
|
|
default: {
|
|
phpdbg_writeln(
|
|
"\tInternal %s::%s()", (*ce)->name, method->common.function_name);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
phpdbg_error("Cannot find class %s/%lu", expr, expr_len);
|
|
}
|
|
} else {
|
|
phpdbg_error("No class name provided!");
|
|
}
|
|
|
|
return SUCCESS;
|
|
} /* }}} */
|