mirror of
https://github.com/php/php-src.git
synced 2024-12-18 14:30:35 +08:00
340 lines
7.6 KiB
C
340 lines
7.6 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: Andi Gutmans <andi@zend.com> |
|
|
| Zeev Suraski <zeev@zend.com> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include <stdio.h>
|
|
#include "zend.h"
|
|
#include "zend_API.h"
|
|
#include "zend_ast.h"
|
|
#include "zend_globals.h"
|
|
#include "zend_constants.h"
|
|
#include "zend_list.h"
|
|
|
|
ZEND_API void _zval_dtor_func(zval *zvalue ZEND_FILE_LINE_DC)
|
|
{
|
|
switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
|
|
case IS_STRING:
|
|
case IS_CONSTANT:
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
|
STR_RELEASE(Z_STR_P(zvalue));
|
|
break;
|
|
case IS_ARRAY:
|
|
case IS_CONSTANT_ARRAY: {
|
|
TSRMLS_FETCH();
|
|
|
|
if (Z_ARRVAL_P(zvalue) != &EG(symbol_table).ht) {
|
|
/* break possible cycles */
|
|
Z_TYPE_P(zvalue) = IS_NULL;
|
|
zend_hash_destroy(Z_ARRVAL_P(zvalue));
|
|
efree(Z_ARR_P(zvalue));
|
|
}
|
|
}
|
|
break;
|
|
case IS_CONSTANT_AST:
|
|
zend_ast_destroy(Z_AST_P(zvalue)->ast);
|
|
efree(Z_AST_P(zvalue));
|
|
break;
|
|
case IS_OBJECT:
|
|
{
|
|
TSRMLS_FETCH();
|
|
|
|
OBJ_RELEASE(Z_OBJ_P(zvalue));
|
|
}
|
|
break;
|
|
case IS_RESOURCE:
|
|
{
|
|
TSRMLS_FETCH();
|
|
|
|
if (Z_DELREF_P(zvalue) == 0) {
|
|
/* destroy resource */
|
|
zend_list_delete(Z_RES_P(zvalue));
|
|
}
|
|
}
|
|
break;
|
|
case IS_REFERENCE:
|
|
if (Z_DELREF_P(zvalue) == 0) {
|
|
zval_dtor(Z_REFVAL_P(zvalue));
|
|
efree(Z_REF_P(zvalue));
|
|
}
|
|
break;
|
|
case IS_LONG:
|
|
case IS_DOUBLE:
|
|
case IS_BOOL:
|
|
case IS_NULL:
|
|
default:
|
|
return;
|
|
break;
|
|
}
|
|
}
|
|
|
|
ZEND_API void _zval_dtor_func_for_ptr(zval *zvalue ZEND_FILE_LINE_DC)
|
|
{
|
|
switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
|
|
case IS_STRING:
|
|
case IS_CONSTANT:
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
|
STR_FREE(Z_STR_P(zvalue));
|
|
break;
|
|
case IS_ARRAY:
|
|
case IS_CONSTANT_ARRAY: {
|
|
TSRMLS_FETCH();
|
|
|
|
if (Z_ARRVAL_P(zvalue) != &EG(symbol_table).ht) {
|
|
/* break possible cycles */
|
|
Z_TYPE_P(zvalue) = IS_NULL;
|
|
zend_hash_destroy(Z_ARRVAL_P(zvalue));
|
|
efree(Z_ARR_P(zvalue));
|
|
}
|
|
}
|
|
break;
|
|
case IS_CONSTANT_AST:
|
|
zend_ast_destroy(Z_AST_P(zvalue)->ast);
|
|
efree(Z_AST_P(zvalue));
|
|
break;
|
|
case IS_OBJECT:
|
|
{
|
|
TSRMLS_FETCH();
|
|
|
|
zend_objects_store_del(Z_OBJ_P(zvalue) TSRMLS_CC);
|
|
}
|
|
break;
|
|
case IS_RESOURCE:
|
|
{
|
|
TSRMLS_FETCH();
|
|
|
|
/* destroy resource */
|
|
zend_list_delete(Z_RES_P(zvalue));
|
|
}
|
|
break;
|
|
case IS_REFERENCE:
|
|
zval_dtor(Z_REFVAL_P(zvalue));
|
|
efree(Z_REF_P(zvalue));
|
|
break;
|
|
case IS_LONG:
|
|
case IS_DOUBLE:
|
|
case IS_BOOL:
|
|
case IS_NULL:
|
|
default:
|
|
return;
|
|
break;
|
|
}
|
|
}
|
|
|
|
ZEND_API void _zval_internal_dtor(zval *zvalue ZEND_FILE_LINE_DC)
|
|
{
|
|
switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
|
|
case IS_STRING:
|
|
case IS_CONSTANT:
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
|
STR_RELEASE(Z_STR_P(zvalue));
|
|
break;
|
|
case IS_ARRAY:
|
|
case IS_CONSTANT_ARRAY:
|
|
case IS_CONSTANT_AST:
|
|
case IS_OBJECT:
|
|
case IS_RESOURCE:
|
|
zend_error(E_CORE_ERROR, "Internal zval's can't be arrays, objects or resources");
|
|
break;
|
|
case IS_LONG:
|
|
case IS_DOUBLE:
|
|
case IS_BOOL:
|
|
case IS_NULL:
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
|
|
ZEND_API void _zval_internal_dtor_for_ptr(zval *zvalue ZEND_FILE_LINE_DC)
|
|
{
|
|
switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
|
|
case IS_STRING:
|
|
case IS_CONSTANT:
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
|
STR_FREE(Z_STR_P(zvalue));
|
|
break;
|
|
case IS_ARRAY:
|
|
case IS_CONSTANT_ARRAY:
|
|
case IS_CONSTANT_AST:
|
|
case IS_OBJECT:
|
|
case IS_RESOURCE:
|
|
zend_error(E_CORE_ERROR, "Internal zval's can't be arrays, objects or resources");
|
|
break;
|
|
case IS_LONG:
|
|
case IS_DOUBLE:
|
|
case IS_BOOL:
|
|
case IS_NULL:
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
|
|
ZEND_API void zval_add_ref(zval *p)
|
|
{
|
|
if (Z_REFCOUNTED_P(p)) {
|
|
Z_ADDREF_P(p);
|
|
}
|
|
}
|
|
|
|
|
|
ZEND_API void _zval_copy_ctor_func(zval *zvalue ZEND_FILE_LINE_DC)
|
|
{
|
|
switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
|
|
case IS_CONSTANT:
|
|
case IS_STRING:
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
|
if (!IS_INTERNED(Z_STR_P(zvalue))) {
|
|
Z_STR_P(zvalue) = STR_DUP(Z_STR_P(zvalue), 0);
|
|
}
|
|
break;
|
|
case IS_ARRAY:
|
|
case IS_CONSTANT_ARRAY: {
|
|
HashTable *ht = Z_ARRVAL_P(zvalue);
|
|
TSRMLS_FETCH();
|
|
|
|
if (ht == &EG(symbol_table).ht) {
|
|
return; /* do nothing */
|
|
}
|
|
ZVAL_NEW_ARR(zvalue);
|
|
zend_hash_init(Z_ARRVAL_P(zvalue), zend_hash_num_elements(ht), NULL, ZVAL_PTR_DTOR, 0);
|
|
zend_hash_copy(Z_ARRVAL_P(zvalue), ht, zval_add_ref);
|
|
}
|
|
break;
|
|
case IS_CONSTANT_AST: {
|
|
zend_ast_ref *ast = emalloc(sizeof(zend_ast_ref));
|
|
|
|
ast->gc.refcount = 1;
|
|
ast->gc.u.v.type = IS_CONSTANT_AST;
|
|
ast->ast = zend_ast_copy(Z_ASTVAL_P(zvalue));
|
|
Z_AST_P(zvalue) = ast;
|
|
}
|
|
break;
|
|
case IS_OBJECT:
|
|
case IS_RESOURCE:
|
|
case IS_REFERENCE:
|
|
Z_ADDREF_P(zvalue);
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
ZEND_API int zend_print_variable(zval *var)
|
|
{
|
|
return zend_print_zval(var, 0);
|
|
}
|
|
|
|
|
|
ZEND_API void _zval_dtor_wrapper(zval *zvalue)
|
|
{
|
|
TSRMLS_FETCH();
|
|
|
|
GC_REMOVE_ZVAL_FROM_BUFFER(zvalue);
|
|
zval_dtor(zvalue);
|
|
}
|
|
|
|
|
|
#if ZEND_DEBUG
|
|
ZEND_API void _zval_copy_ctor_wrapper(zval *zvalue)
|
|
{
|
|
zval_copy_ctor(zvalue);
|
|
}
|
|
|
|
|
|
ZEND_API void _zval_internal_dtor_wrapper(zval *zvalue)
|
|
{
|
|
zval_internal_dtor(zvalue);
|
|
}
|
|
|
|
|
|
ZEND_API void _zval_ptr_dtor_wrapper(zval *zval_ptr)
|
|
{
|
|
zval_ptr_dtor(zval_ptr);
|
|
}
|
|
|
|
|
|
ZEND_API void _zval_internal_ptr_dtor_wrapper(zval *zval_ptr)
|
|
{
|
|
zval_internal_ptr_dtor(zval_ptr);
|
|
}
|
|
#endif
|
|
|
|
ZEND_API int zval_copy_static_var(zval *p TSRMLS_DC, int num_args, va_list args, zend_hash_key *key) /* {{{ */
|
|
{
|
|
HashTable *target = va_arg(args, HashTable*);
|
|
zend_bool is_ref;
|
|
zval tmp;
|
|
|
|
if (Z_TYPE_P(p) & (IS_LEXICAL_VAR|IS_LEXICAL_REF)) {
|
|
is_ref = Z_TYPE_P(p) & IS_LEXICAL_REF;
|
|
|
|
if (!EG(active_symbol_table)) {
|
|
zend_rebuild_symbol_table(TSRMLS_C);
|
|
}
|
|
p = zend_hash_find(EG(active_symbol_table), key->key);
|
|
if (!p) {
|
|
p = &tmp;
|
|
ZVAL_NULL(&tmp);
|
|
if (is_ref) {
|
|
ZVAL_NEW_REF(&tmp, &tmp);
|
|
zend_hash_add(EG(active_symbol_table), key->key, &tmp);
|
|
} else {
|
|
zend_error(E_NOTICE,"Undefined variable: %s", key->key->val);
|
|
}
|
|
} else {
|
|
if (is_ref) {
|
|
SEPARATE_ZVAL_TO_MAKE_IS_REF(p);
|
|
/*
|
|
if (!Z_ISREF_P(p)) {
|
|
if (IS_REFCOUNTED(Z_TYPE_P(p)) && Z_REFCOUNT_P(p) > 1) {
|
|
Z_DELREF_P(p);
|
|
ZVAL_NEW_REF(p, p);
|
|
zval_copy_ctor(Z_REFVAL_P(p));
|
|
Z_SET_REFCOUNT_P(Z_REFVAL_P(p), 1);
|
|
} else {
|
|
ZVAL_NEW_REF(p, p);
|
|
}
|
|
}
|
|
*/
|
|
} else if (Z_ISREF_P(p)) {
|
|
ZVAL_COPY_VALUE(&tmp, Z_REFVAL_P(p));
|
|
if (Z_REFCOUNTED(tmp) && Z_REFCOUNT(tmp) > 1) {
|
|
zval_copy_ctor(&tmp);
|
|
Z_SET_REFCOUNT(tmp, 0);
|
|
}
|
|
p = &tmp;
|
|
}
|
|
}
|
|
}
|
|
if (zend_hash_add(target, key->key, p)) {
|
|
if (Z_REFCOUNTED_P(p)) {
|
|
Z_ADDREF_P(p);
|
|
}
|
|
}
|
|
return ZEND_HASH_APPLY_KEEP;
|
|
}
|
|
/* }}} */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* indent-tabs-mode: t
|
|
* End:
|
|
*/
|