1999-04-07 18:10:10 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Zend Engine |
|
|
|
|
+----------------------------------------------------------------------+
|
2017-01-04 17:14:55 +00:00
|
|
|
| Copyright (c) 1998-2017 Zend Technologies Ltd. (http://www.zend.com) |
|
1999-04-07 18:10:10 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 15:16:21 +00:00
|
|
|
| This source file is subject to version 2.00 of the Zend license, |
|
2015-01-03 09:22:58 +00:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-10 20:04:29 +00:00
|
|
|
| available through the world-wide-web at the following url: |
|
2001-12-11 15:16:21 +00:00
|
|
|
| http://www.zend.com/license/2_00.txt. |
|
1999-07-16 14:58:16 +00:00
|
|
|
| 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. |
|
1999-04-07 18:10:10 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Authors: Andi Gutmans <andi@zend.com> |
|
|
|
|
| Zeev Suraski <zeev@zend.com> |
|
2015-08-31 08:38:16 +00:00
|
|
|
| Dmitry Stogov <dmitry@zend.com> |
|
1999-04-07 18:10:10 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
2003-02-01 01:49:15 +00:00
|
|
|
/* $Id$ */
|
1999-07-16 14:58:16 +00:00
|
|
|
|
1999-04-07 18:10:10 +00:00
|
|
|
#include <stdio.h>
|
|
|
|
#include "zend.h"
|
|
|
|
#include "zend_API.h"
|
2013-10-31 07:57:12 +00:00
|
|
|
#include "zend_ast.h"
|
1999-04-07 18:10:10 +00:00
|
|
|
#include "zend_globals.h"
|
|
|
|
#include "zend_constants.h"
|
|
|
|
#include "zend_list.h"
|
|
|
|
|
2015-03-13 18:10:09 +00:00
|
|
|
ZEND_API void ZEND_FASTCALL _zval_dtor_func(zend_refcounted *p ZEND_FILE_LINE_DC)
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
2016-04-22 15:48:35 +00:00
|
|
|
if (--GC_REFCOUNT(p)) {
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2014-04-02 10:34:44 +00:00
|
|
|
switch (GC_TYPE(p)) {
|
1999-04-07 18:10:10 +00:00
|
|
|
case IS_STRING:
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_CONSTANT: {
|
|
|
|
zend_string *str = (zend_string*)p;
|
2014-04-15 11:40:40 +00:00
|
|
|
CHECK_ZVAL_STRING_REL(str);
|
2016-04-22 15:48:35 +00:00
|
|
|
zend_string_free(str);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-03-19 13:00:28 +00:00
|
|
|
}
|
2014-05-07 11:03:56 +00:00
|
|
|
case IS_ARRAY: {
|
|
|
|
zend_array *arr = (zend_array*)p;
|
2015-02-13 19:20:39 +00:00
|
|
|
zend_array_destroy(arr);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_CONSTANT_AST: {
|
2014-05-07 11:03:56 +00:00
|
|
|
zend_ast_ref *ast = (zend_ast_ref*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2014-07-26 16:08:31 +00:00
|
|
|
zend_ast_destroy_and_free(ast->ast);
|
2014-08-26 12:21:58 +00:00
|
|
|
efree_size(ast, sizeof(zend_ast_ref));
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-03-19 13:00:28 +00:00
|
|
|
}
|
|
|
|
case IS_OBJECT: {
|
|
|
|
zend_object *obj = (zend_object*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2016-04-22 15:48:35 +00:00
|
|
|
zend_objects_store_del(obj);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2002-03-15 16:26:17 +00:00
|
|
|
}
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_RESOURCE: {
|
|
|
|
zend_resource *res = (zend_resource*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2016-04-22 15:48:35 +00:00
|
|
|
/* destroy resource */
|
|
|
|
zend_list_free(res);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2001-07-30 04:54:16 +00:00
|
|
|
}
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_REFERENCE: {
|
|
|
|
zend_reference *ref = (zend_reference*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2016-04-22 15:48:35 +00:00
|
|
|
i_zval_ptr_dtor(&ref->val ZEND_FILE_LINE_RELAY_CC);
|
|
|
|
efree_size(ref, sizeof(zend_reference));
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-02-18 12:27:38 +00:00
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
default:
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2015-03-13 18:10:09 +00:00
|
|
|
ZEND_API void ZEND_FASTCALL _zval_dtor_func_for_ptr(zend_refcounted *p ZEND_FILE_LINE_DC)
|
2014-02-17 13:59:18 +00:00
|
|
|
{
|
2014-04-02 10:34:44 +00:00
|
|
|
switch (GC_TYPE(p)) {
|
2014-02-17 13:59:18 +00:00
|
|
|
case IS_STRING:
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_CONSTANT: {
|
|
|
|
zend_string *str = (zend_string*)p;
|
2014-04-15 11:40:40 +00:00
|
|
|
CHECK_ZVAL_STRING_REL(str);
|
2014-08-25 17:24:55 +00:00
|
|
|
zend_string_free(str);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-03-19 13:00:28 +00:00
|
|
|
}
|
2014-05-07 11:03:56 +00:00
|
|
|
case IS_ARRAY: {
|
|
|
|
zend_array *arr = (zend_array*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2015-02-13 19:20:39 +00:00
|
|
|
zend_array_destroy(arr);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-02-17 13:59:18 +00:00
|
|
|
}
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_CONSTANT_AST: {
|
2014-05-07 11:03:56 +00:00
|
|
|
zend_ast_ref *ast = (zend_ast_ref*)p;
|
2014-03-19 13:00:28 +00:00
|
|
|
|
2014-07-26 16:08:31 +00:00
|
|
|
zend_ast_destroy_and_free(ast->ast);
|
2014-08-26 12:21:58 +00:00
|
|
|
efree_size(ast, sizeof(zend_ast_ref));
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-03-19 13:00:28 +00:00
|
|
|
}
|
|
|
|
case IS_OBJECT: {
|
|
|
|
zend_object *obj = (zend_object*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
zend_objects_store_del(obj);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-02-17 13:59:18 +00:00
|
|
|
}
|
2014-03-19 13:00:28 +00:00
|
|
|
case IS_RESOURCE: {
|
|
|
|
zend_resource *res = (zend_resource*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2014-02-17 13:59:18 +00:00
|
|
|
/* destroy resource */
|
2014-05-07 22:48:31 +00:00
|
|
|
zend_list_free(res);
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-03-19 13:00:28 +00:00
|
|
|
}
|
|
|
|
case IS_REFERENCE: {
|
|
|
|
zend_reference *ref = (zend_reference*)p;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
i_zval_ptr_dtor(&ref->val ZEND_FILE_LINE_RELAY_CC);
|
2014-08-26 12:21:58 +00:00
|
|
|
efree_size(ref, sizeof(zend_reference));
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-02-17 13:59:18 +00:00
|
|
|
}
|
|
|
|
default:
|
2014-04-03 11:26:23 +00:00
|
|
|
break;
|
2014-02-17 13:59:18 +00:00
|
|
|
}
|
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2003-08-24 17:32:47 +00:00
|
|
|
ZEND_API void _zval_internal_dtor(zval *zvalue ZEND_FILE_LINE_DC)
|
|
|
|
{
|
2014-04-03 11:26:23 +00:00
|
|
|
switch (Z_TYPE_P(zvalue)) {
|
2003-08-24 17:32:47 +00:00
|
|
|
case IS_STRING:
|
|
|
|
case IS_CONSTANT:
|
2014-04-15 11:40:40 +00:00
|
|
|
CHECK_ZVAL_STRING_REL(Z_STR_P(zvalue));
|
2014-08-25 17:24:55 +00:00
|
|
|
zend_string_release(Z_STR_P(zvalue));
|
2003-08-24 17:32:47 +00:00
|
|
|
break;
|
|
|
|
case IS_ARRAY:
|
2013-11-06 18:21:07 +00:00
|
|
|
case IS_CONSTANT_AST:
|
2003-08-24 17:32:47 +00:00
|
|
|
case IS_OBJECT:
|
|
|
|
case IS_RESOURCE:
|
2015-04-01 10:32:23 +00:00
|
|
|
zend_error_noreturn(E_CORE_ERROR, "Internal zval's can't be arrays, objects or resources");
|
2003-08-24 17:32:47 +00:00
|
|
|
break;
|
2014-04-14 09:24:43 +00:00
|
|
|
case IS_REFERENCE: {
|
|
|
|
zend_reference *ref = (zend_reference*)Z_REF_P(zvalue);
|
|
|
|
|
|
|
|
zval_internal_ptr_dtor(&ref->val);
|
|
|
|
free(ref);
|
|
|
|
break;
|
|
|
|
}
|
2003-08-24 17:32:47 +00:00
|
|
|
case IS_LONG:
|
|
|
|
case IS_DOUBLE:
|
2014-04-30 14:32:42 +00:00
|
|
|
case IS_FALSE:
|
|
|
|
case IS_TRUE:
|
2003-08-24 17:32:47 +00:00
|
|
|
case IS_NULL:
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-02-17 13:59:18 +00:00
|
|
|
ZEND_API void _zval_internal_dtor_for_ptr(zval *zvalue ZEND_FILE_LINE_DC)
|
|
|
|
{
|
2014-04-03 11:26:23 +00:00
|
|
|
switch (Z_TYPE_P(zvalue)) {
|
2014-02-17 13:59:18 +00:00
|
|
|
case IS_STRING:
|
|
|
|
case IS_CONSTANT:
|
2014-04-15 11:40:40 +00:00
|
|
|
CHECK_ZVAL_STRING_REL(Z_STR_P(zvalue));
|
2014-08-25 17:24:55 +00:00
|
|
|
zend_string_free(Z_STR_P(zvalue));
|
2014-02-17 13:59:18 +00:00
|
|
|
break;
|
|
|
|
case IS_ARRAY:
|
|
|
|
case IS_CONSTANT_AST:
|
|
|
|
case IS_OBJECT:
|
|
|
|
case IS_RESOURCE:
|
2015-04-01 10:32:23 +00:00
|
|
|
zend_error_noreturn(E_CORE_ERROR, "Internal zval's can't be arrays, objects or resources");
|
2014-02-17 13:59:18 +00:00
|
|
|
break;
|
2014-04-14 09:24:43 +00:00
|
|
|
case IS_REFERENCE: {
|
|
|
|
zend_reference *ref = (zend_reference*)Z_REF_P(zvalue);
|
|
|
|
|
|
|
|
zval_internal_ptr_dtor(&ref->val);
|
|
|
|
free(ref);
|
|
|
|
break;
|
|
|
|
}
|
2014-02-17 13:59:18 +00:00
|
|
|
case IS_LONG:
|
|
|
|
case IS_DOUBLE:
|
2014-04-30 14:32:42 +00:00
|
|
|
case IS_FALSE:
|
|
|
|
case IS_TRUE:
|
2014-02-17 13:59:18 +00:00
|
|
|
case IS_NULL:
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2003-08-24 17:32:47 +00:00
|
|
|
|
2015-01-05 16:02:11 +00:00
|
|
|
/* This function should only be used as a copy constructor, i.e. it
|
|
|
|
* should only be called AFTER a zval has been copied to another
|
|
|
|
* location using ZVAL_COPY_VALUE. Do not call it before copying,
|
|
|
|
* otherwise a reference may be leaked. */
|
2014-02-10 06:04:30 +00:00
|
|
|
ZEND_API void zval_add_ref(zval *p)
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
2014-02-28 07:03:05 +00:00
|
|
|
if (Z_REFCOUNTED_P(p)) {
|
2014-03-06 08:37:46 +00:00
|
|
|
if (Z_ISREF_P(p) && Z_REFCOUNT_P(p) == 1) {
|
2014-06-05 12:04:11 +00:00
|
|
|
ZVAL_COPY(p, Z_REFVAL_P(p));
|
2014-03-06 08:37:46 +00:00
|
|
|
} else {
|
|
|
|
Z_ADDREF_P(p);
|
|
|
|
}
|
2014-02-10 06:04:30 +00:00
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
|
|
|
|
2014-02-28 07:03:05 +00:00
|
|
|
ZEND_API void zval_add_ref_unref(zval *p)
|
|
|
|
{
|
|
|
|
if (Z_REFCOUNTED_P(p)) {
|
|
|
|
if (Z_ISREF_P(p)) {
|
2014-10-20 09:55:55 +00:00
|
|
|
ZVAL_COPY(p, Z_REFVAL_P(p));
|
2014-02-28 07:03:05 +00:00
|
|
|
} else {
|
|
|
|
Z_ADDREF_P(p);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2015-03-13 18:10:09 +00:00
|
|
|
ZEND_API void ZEND_FASTCALL _zval_copy_ctor_func(zval *zvalue ZEND_FILE_LINE_DC)
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
2015-03-03 13:49:45 +00:00
|
|
|
if (EXPECTED(Z_TYPE_P(zvalue) == IS_ARRAY)) {
|
|
|
|
ZVAL_ARR(zvalue, zend_array_dup(Z_ARRVAL_P(zvalue)));
|
|
|
|
} else if (EXPECTED(Z_TYPE_P(zvalue) == IS_STRING) ||
|
|
|
|
EXPECTED(Z_TYPE_P(zvalue) == IS_CONSTANT)) {
|
|
|
|
CHECK_ZVAL_STRING_REL(Z_STR_P(zvalue));
|
|
|
|
Z_STR_P(zvalue) = zend_string_dup(Z_STR_P(zvalue), 0);
|
|
|
|
} else if (EXPECTED(Z_TYPE_P(zvalue) == IS_CONSTANT_AST)) {
|
|
|
|
zend_ast_ref *ast = emalloc(sizeof(zend_ast_ref));
|
|
|
|
|
|
|
|
GC_REFCOUNT(ast) = 1;
|
|
|
|
GC_TYPE_INFO(ast) = IS_CONSTANT_AST;
|
|
|
|
ast->ast = zend_ast_copy(Z_ASTVAL_P(zvalue));
|
|
|
|
Z_AST_P(zvalue) = ast;
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2015-01-03 09:22:58 +00:00
|
|
|
ZEND_API size_t zend_print_variable(zval *var)
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
2014-12-13 22:06:14 +00:00
|
|
|
return zend_print_zval(var, 0);
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2000-01-17 17:33:37 +00:00
|
|
|
ZEND_API void _zval_dtor_wrapper(zval *zvalue)
|
1999-08-27 19:17:19 +00:00
|
|
|
{
|
2000-01-17 17:33:37 +00:00
|
|
|
zval_dtor(zvalue);
|
1999-08-27 19:17:19 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2010-01-11 10:07:10 +00:00
|
|
|
#if ZEND_DEBUG
|
2003-08-24 17:32:47 +00:00
|
|
|
ZEND_API void _zval_internal_dtor_wrapper(zval *zvalue)
|
|
|
|
{
|
|
|
|
zval_internal_dtor(zvalue);
|
|
|
|
}
|
|
|
|
|
1999-08-27 19:17:19 +00:00
|
|
|
|
2014-02-10 06:04:30 +00:00
|
|
|
ZEND_API void _zval_ptr_dtor_wrapper(zval *zval_ptr)
|
1999-08-27 19:17:19 +00:00
|
|
|
{
|
2014-11-25 10:05:35 +00:00
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
i_zval_ptr_dtor(zval_ptr ZEND_FILE_LINE_CC);
|
1999-08-27 19:17:19 +00:00
|
|
|
}
|
2003-08-24 17:32:47 +00:00
|
|
|
|
2014-03-11 06:23:14 +00:00
|
|
|
|
2014-02-10 06:04:30 +00:00
|
|
|
ZEND_API void _zval_internal_ptr_dtor_wrapper(zval *zval_ptr)
|
2003-08-24 17:32:47 +00:00
|
|
|
{
|
|
|
|
zval_internal_ptr_dtor(zval_ptr);
|
|
|
|
}
|
1999-08-27 19:17:19 +00:00
|
|
|
#endif
|
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
ZEND_API int zval_copy_static_var(zval *p, int num_args, va_list args, zend_hash_key *key) /* {{{ */
|
2010-06-08 15:56:36 +00:00
|
|
|
{
|
2014-07-04 14:03:45 +00:00
|
|
|
zend_array *symbol_table;
|
2010-06-08 15:56:36 +00:00
|
|
|
HashTable *target = va_arg(args, HashTable*);
|
|
|
|
zend_bool is_ref;
|
2014-02-10 06:04:30 +00:00
|
|
|
zval tmp;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2014-04-03 11:26:23 +00:00
|
|
|
if (Z_CONST_FLAGS_P(p) & (IS_LEXICAL_VAR|IS_LEXICAL_REF)) {
|
|
|
|
is_ref = Z_CONST_FLAGS_P(p) & IS_LEXICAL_REF;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
symbol_table = zend_rebuild_symbol_table();
|
2015-02-13 19:20:39 +00:00
|
|
|
p = zend_hash_find(symbol_table, key->key);
|
2014-02-10 06:04:30 +00:00
|
|
|
if (!p) {
|
|
|
|
p = &tmp;
|
|
|
|
ZVAL_NULL(&tmp);
|
|
|
|
if (is_ref) {
|
|
|
|
ZVAL_NEW_REF(&tmp, &tmp);
|
2015-02-13 19:20:39 +00:00
|
|
|
zend_hash_add_new(symbol_table, key->key, &tmp);
|
2014-03-21 17:34:15 +00:00
|
|
|
Z_ADDREF_P(p);
|
2010-06-08 15:56:36 +00:00
|
|
|
} else {
|
2015-06-30 10:59:27 +00:00
|
|
|
zend_error(E_NOTICE,"Undefined variable: %s", ZSTR_VAL(key->key));
|
2010-06-08 15:56:36 +00:00
|
|
|
}
|
|
|
|
} else {
|
2014-03-26 14:07:31 +00:00
|
|
|
if (Z_TYPE_P(p) == IS_INDIRECT) {
|
|
|
|
p = Z_INDIRECT_P(p);
|
|
|
|
if (Z_TYPE_P(p) == IS_UNDEF) {
|
|
|
|
if (!is_ref) {
|
2015-06-30 10:59:27 +00:00
|
|
|
zend_error(E_NOTICE,"Undefined variable: %s", ZSTR_VAL(key->key));
|
2014-03-26 14:07:31 +00:00
|
|
|
p = &tmp;
|
|
|
|
ZVAL_NULL(&tmp);
|
|
|
|
} else {
|
|
|
|
ZVAL_NULL(p);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2010-06-08 15:56:36 +00:00
|
|
|
if (is_ref) {
|
2014-06-05 12:04:11 +00:00
|
|
|
ZVAL_MAKE_REF(p);
|
2014-03-21 17:34:15 +00:00
|
|
|
Z_ADDREF_P(p);
|
2014-02-10 06:04:30 +00:00
|
|
|
} else if (Z_ISREF_P(p)) {
|
2014-03-21 17:34:15 +00:00
|
|
|
ZVAL_DUP(&tmp, Z_REFVAL_P(p));
|
2014-02-10 06:04:30 +00:00
|
|
|
p = &tmp;
|
2014-03-21 17:34:15 +00:00
|
|
|
} else if (Z_REFCOUNTED_P(p)) {
|
|
|
|
Z_ADDREF_P(p);
|
2010-06-08 15:56:36 +00:00
|
|
|
}
|
|
|
|
}
|
2014-03-21 17:34:15 +00:00
|
|
|
} else if (Z_REFCOUNTED_P(p)) {
|
|
|
|
Z_ADDREF_P(p);
|
2015-01-03 09:22:58 +00:00
|
|
|
}
|
2014-03-21 17:34:15 +00:00
|
|
|
zend_hash_add(target, key->key, p);
|
2010-06-08 15:56:36 +00:00
|
|
|
return ZEND_HASH_APPLY_KEEP;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
1999-04-07 18:10:10 +00:00
|
|
|
/*
|
|
|
|
* Local variables:
|
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
2003-02-01 01:49:15 +00:00
|
|
|
* indent-tabs-mode: t
|
1999-04-07 18:10:10 +00:00
|
|
|
* End:
|
|
|
|
*/
|