mirror of
https://github.com/php/php-src.git
synced 2024-09-22 10:27:25 +00:00
acfbb7b6dc
* master: (67 commits) remove the NEWS entry for the reverted fpm fix remove the NEWS entry for the reverted fpm fix remove the NEWS entry for the reverted fpm fix Revert "Fix Bug #67530 error_log=syslog ignored" --enable-fpm for the travis build fix the last fpm NEWS entry, the other bug is related, but not the same what we fixed here NEWS NEWS Fix bug #67091: make install fails to install libphp5.so on FreeBSD 10.0 adding NEWS entry for the fix for bug #65641 Updated NEWS file for recent phpdbg fixes Fixed issue krakjoe/phpdbg#94 - List behavior is inconsistent Fix issue krakjoe/phpdbg#97 - list now appends a newline if there is none The prompt should always ensure it is on a newline Fixed test Inform about back command existence in help - Fixes krakjoe/phpdbg#100 No way to list the current stack/frames Fix issue krakjoe/phpdbg#98 break if does not seem to work Fix issue krakjoe/phpdbg#99 register function has the same behavior as run Fix readline/libedit (Thanks to @remicollet) Replace incorrect `E` command with `ev` in watch help Fix typo in `finish` help ... Conflicts: Zend/zend_ast.c Zend/zend_highlight.c Zend/zend_indent.c ext/spl/spl_array.c ext/spl/spl_observer.c ext/standard/info.c
408 lines
12 KiB
C
408 lines
12 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| Zend Engine |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1998-2014 Zend Technologies Ltd. (http://www.zend.com) |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 2.00 of the Zend 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.zend.com/license/2_00.txt. |
|
|
| If you did not receive a copy of the Zend license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@zend.com so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: Bob Weinand <bwoebi@php.net> |
|
|
| Dmitry Stogov <dmitry@zend.com> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include "zend_ast.h"
|
|
#include "zend_API.h"
|
|
#include "zend_operators.h"
|
|
|
|
ZEND_API zend_ast *zend_ast_create_constant(zval *zv)
|
|
{
|
|
zend_ast *ast = emalloc(sizeof(zend_ast) + sizeof(zval));
|
|
ast->kind = ZEND_CONST;
|
|
ast->children = 0;
|
|
ZVAL_COPY_VALUE(&ast->u.val, zv);
|
|
return ast;
|
|
}
|
|
|
|
ZEND_API zend_ast* zend_ast_create_unary(uint kind, zend_ast *op0)
|
|
{
|
|
zend_ast *ast = emalloc(sizeof(zend_ast));
|
|
ast->kind = kind;
|
|
ast->children = 1;
|
|
(&ast->u.child)[0] = op0;
|
|
return ast;
|
|
}
|
|
|
|
ZEND_API zend_ast* zend_ast_create_binary(uint kind, zend_ast *op0, zend_ast *op1)
|
|
{
|
|
zend_ast *ast = emalloc(sizeof(zend_ast) + sizeof(zend_ast*));
|
|
ast->kind = kind;
|
|
ast->children = 2;
|
|
(&ast->u.child)[0] = op0;
|
|
(&ast->u.child)[1] = op1;
|
|
return ast;
|
|
}
|
|
|
|
ZEND_API zend_ast* zend_ast_create_ternary(uint kind, zend_ast *op0, zend_ast *op1, zend_ast *op2)
|
|
{
|
|
zend_ast *ast = emalloc(sizeof(zend_ast) + sizeof(zend_ast*) * 2);
|
|
ast->kind = kind;
|
|
ast->children = 3;
|
|
(&ast->u.child)[0] = op0;
|
|
(&ast->u.child)[1] = op1;
|
|
(&ast->u.child)[2] = op2;
|
|
return ast;
|
|
}
|
|
|
|
ZEND_API zend_ast* zend_ast_create_dynamic(uint kind)
|
|
{
|
|
zend_ast *ast = emalloc(sizeof(zend_ast) + sizeof(zend_ast*) * 3); /* use 4 children as deafult */
|
|
ast->kind = kind;
|
|
ast->children = 0;
|
|
return ast;
|
|
}
|
|
|
|
ZEND_API void zend_ast_dynamic_add(zend_ast **ast, zend_ast *op)
|
|
{
|
|
if ((*ast)->children >= 4 && (*ast)->children == ((*ast)->children & -(*ast)->children)) {
|
|
*ast = erealloc(*ast, sizeof(zend_ast) + sizeof(zend_ast*) * ((*ast)->children * 2 + 1));
|
|
}
|
|
(&(*ast)->u.child)[(*ast)->children++] = op;
|
|
}
|
|
|
|
ZEND_API void zend_ast_dynamic_shrink(zend_ast **ast)
|
|
{
|
|
*ast = erealloc(*ast, sizeof(zend_ast) + sizeof(zend_ast*) * ((*ast)->children - 1));
|
|
}
|
|
|
|
ZEND_API int zend_ast_is_ct_constant(zend_ast *ast)
|
|
{
|
|
int i;
|
|
|
|
if (ast->kind == ZEND_CONST) {
|
|
return !Z_CONSTANT(ast->u.val);
|
|
} else {
|
|
for (i = 0; i < ast->children; i++) {
|
|
if ((&ast->u.child)[i]) {
|
|
if (!zend_ast_is_ct_constant((&ast->u.child)[i])) {
|
|
return 0;
|
|
}
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
static void zend_ast_add_array_element(zval *result, zval *offset, zval *expr TSRMLS_DC)
|
|
{
|
|
switch (Z_TYPE_P(offset)) {
|
|
case IS_UNDEF:
|
|
zend_hash_next_index_insert(Z_ARRVAL_P(result), expr);
|
|
break;
|
|
case IS_STRING:
|
|
zend_symtable_update(Z_ARRVAL_P(result), Z_STR_P(offset), expr);
|
|
//???
|
|
zval_dtor(offset);
|
|
break;
|
|
case IS_NULL:
|
|
zend_symtable_update(Z_ARRVAL_P(result), STR_EMPTY_ALLOC(), expr);
|
|
break;
|
|
case IS_LONG:
|
|
zend_hash_index_update(Z_ARRVAL_P(result), Z_LVAL_P(offset), expr);
|
|
break;
|
|
case IS_FALSE:
|
|
zend_hash_index_update(Z_ARRVAL_P(result), 0, expr);
|
|
break;
|
|
case IS_TRUE:
|
|
zend_hash_index_update(Z_ARRVAL_P(result), 1, expr);
|
|
break;
|
|
case IS_DOUBLE:
|
|
zend_hash_index_update(Z_ARRVAL_P(result), zend_dval_to_lval(Z_DVAL_P(offset)), expr);
|
|
break;
|
|
default:
|
|
zend_error(E_ERROR, "Illegal offset type");
|
|
break;
|
|
}
|
|
}
|
|
|
|
ZEND_API void zend_ast_evaluate(zval *result, zend_ast *ast, zend_class_entry *scope TSRMLS_DC)
|
|
{
|
|
zval op1, op2;
|
|
|
|
switch (ast->kind) {
|
|
case ZEND_ADD:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
add_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_SUB:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
sub_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_MUL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
mul_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_POW:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
pow_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_DIV:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
div_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_MOD:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
mod_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_SL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
shift_left_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_SR:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
shift_right_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_CONCAT:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
concat_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_BW_OR:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
bitwise_or_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_BW_AND:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
bitwise_and_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_BW_XOR:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
bitwise_xor_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_BW_NOT:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
bitwise_not_function(result, &op1 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
break;
|
|
case ZEND_BOOL_NOT:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
boolean_not_function(result, &op1 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
break;
|
|
case ZEND_BOOL_XOR:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
boolean_xor_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_IS_IDENTICAL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
is_identical_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_IS_NOT_IDENTICAL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
is_not_identical_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_IS_EQUAL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
is_equal_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_IS_NOT_EQUAL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
is_not_equal_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_IS_SMALLER:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
is_smaller_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_IS_SMALLER_OR_EQUAL:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
is_smaller_or_equal_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_CONST:
|
|
ZVAL_DUP(result, &ast->u.val);
|
|
if (Z_OPT_CONSTANT_P(result)) {
|
|
zval_update_constant_ex(result, 1, scope TSRMLS_CC);
|
|
}
|
|
break;
|
|
case ZEND_BOOL_AND:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
if (zend_is_true(&op1 TSRMLS_CC)) {
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
ZVAL_BOOL(result, zend_is_true(&op2 TSRMLS_CC));
|
|
zval_dtor(&op2);
|
|
} else {
|
|
ZVAL_BOOL(result, 0);
|
|
}
|
|
zval_dtor(&op1);
|
|
break;
|
|
case ZEND_BOOL_OR:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
if (zend_is_true(&op1 TSRMLS_CC)) {
|
|
ZVAL_BOOL(result, 1);
|
|
} else {
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
ZVAL_BOOL(result, zend_is_true(&op2 TSRMLS_CC));
|
|
zval_dtor(&op2);
|
|
}
|
|
zval_dtor(&op1);
|
|
break;
|
|
case ZEND_SELECT:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
if (zend_is_true(&op1 TSRMLS_CC)) {
|
|
if (!(&ast->u.child)[1]) {
|
|
*result = op1;
|
|
} else {
|
|
zend_ast_evaluate(result, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
}
|
|
} else {
|
|
zend_ast_evaluate(result, (&ast->u.child)[2], scope TSRMLS_CC);
|
|
zval_dtor(&op1);
|
|
}
|
|
break;
|
|
case ZEND_UNARY_PLUS:
|
|
ZVAL_LONG(&op1, 0);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
add_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_UNARY_MINUS:
|
|
ZVAL_LONG(&op1, 0);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
sub_function(result, &op1, &op2 TSRMLS_CC);
|
|
zval_dtor(&op2);
|
|
break;
|
|
case ZEND_INIT_ARRAY:
|
|
array_init(result);
|
|
{
|
|
int i;
|
|
for (i = 0; i < ast->children; i+=2) {
|
|
if ((&ast->u.child)[i]) {
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[i], scope TSRMLS_CC);
|
|
} else {
|
|
ZVAL_UNDEF(&op1);
|
|
}
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[i+1], scope TSRMLS_CC);
|
|
zend_ast_add_array_element(result, &op1, &op2 TSRMLS_CC);
|
|
}
|
|
}
|
|
break;
|
|
//???
|
|
#if 0
|
|
case ZEND_FETCH_DIM_R:
|
|
zend_ast_evaluate(&op1, (&ast->u.child)[0], scope TSRMLS_CC);
|
|
zend_ast_evaluate(&op2, (&ast->u.child)[1], scope TSRMLS_CC);
|
|
{
|
|
zval *tmp;
|
|
zend_fetch_dimension_by_zval(&tmp, &op1, &op2 TSRMLS_CC);
|
|
ZVAL_ZVAL(result, tmp, 1, 1);
|
|
}
|
|
zval_dtor(&op1);
|
|
zval_dtor(&op2);
|
|
break;
|
|
#endif
|
|
default:
|
|
zend_error(E_ERROR, "Unsupported constant expression");
|
|
}
|
|
}
|
|
|
|
ZEND_API zend_ast *zend_ast_copy(zend_ast *ast)
|
|
{
|
|
if (ast == NULL) {
|
|
return NULL;
|
|
} else if (ast->kind == ZEND_CONST) {
|
|
zend_ast *copy = zend_ast_create_constant(&ast->u.val);
|
|
zval_copy_ctor(©->u.val);
|
|
return copy;
|
|
} else if (ast->children) {
|
|
zend_ast *new = emalloc(sizeof(zend_ast) + sizeof(zend_ast*) * (ast->children - 1));
|
|
int i;
|
|
new->kind = ast->kind;
|
|
new->children = ast->children;
|
|
for (i = 0; i < ast->children; i++) {
|
|
(&new->u.child)[i] = zend_ast_copy((&ast->u.child)[i]);
|
|
}
|
|
return new;
|
|
}
|
|
return zend_ast_create_dynamic(ast->kind);
|
|
}
|
|
|
|
ZEND_API void zend_ast_destroy(zend_ast *ast)
|
|
{
|
|
int i;
|
|
|
|
if (ast->kind == ZEND_CONST) {
|
|
zval_dtor(&ast->u.val);
|
|
} else {
|
|
for (i = 0; i < ast->children; i++) {
|
|
if ((&ast->u.child)[i]) {
|
|
zend_ast_destroy((&ast->u.child)[i]);
|
|
}
|
|
}
|
|
}
|
|
efree(ast);
|
|
}
|