1999-04-07 18:10:10 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Zend Engine |
|
|
|
|
+----------------------------------------------------------------------+
|
2007-01-01 09:29:37 +00:00
|
|
|
| Copyright (c) 1998-2007 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, |
|
2006-02-21 08:00:39 +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> |
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
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"
|
|
|
|
#include "zend_globals.h"
|
|
|
|
#include "zend_constants.h"
|
|
|
|
#include "zend_list.h"
|
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void _zval_dtor_func(zval *zvalue ZEND_FILE_LINE_DC) /* {{{ */
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
2006-02-20 19:03:43 +00:00
|
|
|
switch (Z_TYPE_P(zvalue) & ~IS_CONSTANT_INDEX) {
|
2005-08-11 23:35:03 +00:00
|
|
|
case IS_CONSTANT: {
|
|
|
|
TSRMLS_FETCH();
|
|
|
|
|
|
|
|
if (UG(unicode)) goto dtor_unicode;
|
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
case IS_STRING:
|
2001-07-16 15:48:31 +00:00
|
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
2006-02-20 19:03:43 +00:00
|
|
|
STR_FREE_REL(Z_STRVAL_P(zvalue));
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
2005-08-11 23:35:03 +00:00
|
|
|
case IS_UNICODE:
|
|
|
|
dtor_unicode:
|
|
|
|
CHECK_ZVAL_UNICODE_REL(zvalue);
|
2006-02-20 19:03:43 +00:00
|
|
|
STR_FREE_REL(Z_USTRVAL_P(zvalue));
|
2005-08-11 23:35:03 +00:00
|
|
|
break;
|
2000-05-31 19:07:09 +00:00
|
|
|
case IS_ARRAY:
|
|
|
|
case IS_CONSTANT_ARRAY: {
|
2001-07-27 10:10:39 +00:00
|
|
|
TSRMLS_FETCH();
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2006-02-20 19:03:43 +00:00
|
|
|
if (Z_ARRVAL_P(zvalue) && (Z_ARRVAL_P(zvalue) != &EG(symbol_table))) {
|
|
|
|
zend_hash_destroy(Z_ARRVAL_P(zvalue));
|
|
|
|
FREE_HASHTABLE(Z_ARRVAL_P(zvalue));
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
1999-07-10 11:45:23 +00:00
|
|
|
case IS_OBJECT:
|
2002-03-15 16:26:17 +00:00
|
|
|
{
|
|
|
|
TSRMLS_FETCH();
|
|
|
|
|
|
|
|
Z_OBJ_HT_P(zvalue)->del_ref(zvalue TSRMLS_CC);
|
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
2002-03-15 16:26:17 +00:00
|
|
|
case IS_RESOURCE:
|
|
|
|
{
|
2001-07-30 04:54:16 +00:00
|
|
|
TSRMLS_FETCH();
|
|
|
|
|
|
|
|
/* destroy resource */
|
2006-02-20 19:03:43 +00:00
|
|
|
zend_list_delete(Z_LVAL_P(zvalue));
|
2001-07-30 04:54:16 +00:00
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
|
|
|
case IS_LONG:
|
|
|
|
case IS_DOUBLE:
|
|
|
|
case IS_BOOL:
|
2000-01-04 13:22:58 +00:00
|
|
|
case IS_NULL:
|
1999-04-07 18:10:10 +00:00
|
|
|
default:
|
2000-01-17 17:33:37 +00:00
|
|
|
return;
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void _zval_internal_dtor(zval *zvalue ZEND_FILE_LINE_DC) /* {{{ */
|
2003-08-24 17:32:47 +00:00
|
|
|
{
|
2006-02-20 19:03:43 +00:00
|
|
|
switch (Z_TYPE_P(zvalue) & ~IS_CONSTANT_INDEX) {
|
2005-08-11 23:35:03 +00:00
|
|
|
case IS_CONSTANT: {
|
|
|
|
TSRMLS_FETCH();
|
|
|
|
|
|
|
|
if (UG(unicode)) goto dtor_unicode;
|
|
|
|
}
|
2003-08-24 17:32:47 +00:00
|
|
|
case IS_STRING:
|
|
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
2006-02-20 19:03:43 +00:00
|
|
|
free(Z_STRVAL_P(zvalue));
|
2003-08-24 17:32:47 +00:00
|
|
|
break;
|
2005-08-11 23:35:03 +00:00
|
|
|
case IS_UNICODE:
|
|
|
|
dtor_unicode:
|
|
|
|
CHECK_ZVAL_UNICODE_REL(zvalue);
|
2006-02-20 19:03:43 +00:00
|
|
|
free(Z_USTRVAL_P(zvalue));
|
2005-08-11 23:35:03 +00:00
|
|
|
break;
|
2003-08-24 17:32:47 +00:00
|
|
|
case IS_ARRAY:
|
|
|
|
case IS_CONSTANT_ARRAY:
|
|
|
|
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;
|
|
|
|
}
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
2003-08-24 17:32:47 +00:00
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void zval_add_ref(zval **p) /* {{{ */
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
|
|
|
(*p)->refcount++;
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void _zval_copy_ctor_func(zval *zvalue ZEND_FILE_LINE_DC) /* {{{ */
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
2006-02-20 19:03:43 +00:00
|
|
|
switch (Z_TYPE_P(zvalue)) {
|
2001-07-30 04:54:16 +00:00
|
|
|
case IS_RESOURCE: {
|
|
|
|
TSRMLS_FETCH();
|
|
|
|
|
2006-02-20 19:03:43 +00:00
|
|
|
zend_list_addref(Z_LVAL_P(zvalue));
|
2001-07-30 04:54:16 +00:00
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
|
|
|
case IS_BOOL:
|
|
|
|
case IS_LONG:
|
2000-01-04 13:22:58 +00:00
|
|
|
case IS_NULL:
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
2005-08-11 23:35:03 +00:00
|
|
|
case IS_CONSTANT: {
|
|
|
|
TSRMLS_FETCH();
|
|
|
|
|
|
|
|
if (UG(unicode)) goto copy_unicode;
|
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
case IS_STRING:
|
2001-07-16 15:48:31 +00:00
|
|
|
CHECK_ZVAL_STRING_REL(zvalue);
|
2006-02-20 19:03:43 +00:00
|
|
|
Z_STRVAL_P(zvalue) = (char *) estrndup_rel(Z_STRVAL_P(zvalue), Z_STRLEN_P(zvalue));
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
2005-08-11 23:35:03 +00:00
|
|
|
case IS_UNICODE:
|
|
|
|
copy_unicode:
|
|
|
|
CHECK_ZVAL_UNICODE_REL(zvalue);
|
2006-02-20 19:03:43 +00:00
|
|
|
Z_USTRVAL_P(zvalue) = eustrndup_rel(Z_USTRVAL_P(zvalue), Z_USTRLEN_P(zvalue));
|
2005-08-11 23:35:03 +00:00
|
|
|
break;
|
2000-05-31 19:07:09 +00:00
|
|
|
case IS_ARRAY:
|
|
|
|
case IS_CONSTANT_ARRAY: {
|
1999-04-07 18:10:10 +00:00
|
|
|
zval *tmp;
|
2006-02-20 19:03:43 +00:00
|
|
|
HashTable *original_ht = Z_ARRVAL_P(zvalue);
|
2004-07-10 07:46:17 +00:00
|
|
|
HashTable *tmp_ht = NULL;
|
2001-07-27 10:10:39 +00:00
|
|
|
TSRMLS_FETCH();
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2006-02-20 19:03:43 +00:00
|
|
|
if (Z_ARRVAL_P(zvalue) == &EG(symbol_table)) {
|
2004-09-27 02:29:01 +00:00
|
|
|
return; /* do nothing */
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
2004-07-10 07:46:17 +00:00
|
|
|
ALLOC_HASHTABLE_REL(tmp_ht);
|
2006-10-03 11:10:54 +00:00
|
|
|
zend_u_hash_init(tmp_ht, zend_hash_num_elements(original_ht), NULL, ZVAL_PTR_DTOR, 0, original_ht->unicode);
|
2004-07-10 07:46:17 +00:00
|
|
|
zend_hash_copy(tmp_ht, original_ht, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
|
2006-02-20 19:03:43 +00:00
|
|
|
Z_ARRVAL_P(zvalue) = tmp_ht;
|
1999-04-07 18:10:10 +00:00
|
|
|
}
|
|
|
|
break;
|
2001-08-07 03:17:33 +00:00
|
|
|
case IS_OBJECT:
|
2002-03-15 16:26:17 +00:00
|
|
|
{
|
|
|
|
TSRMLS_FETCH();
|
2004-03-24 10:55:04 +00:00
|
|
|
Z_OBJ_HT_P(zvalue)->add_ref(zvalue TSRMLS_CC);
|
2002-03-15 16:26:17 +00:00
|
|
|
}
|
1999-04-07 18:10:10 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-04-07 18:10:10 +00:00
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API int zend_print_variable(zval *var) /* {{{ */
|
1999-04-07 18:10:10 +00:00
|
|
|
{
|
|
|
|
return zend_print_zval(var, 0);
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-04-07 18:10:10 +00:00
|
|
|
|
1999-08-28 21:43:24 +00:00
|
|
|
#if ZEND_DEBUG
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void _zval_copy_ctor_wrapper(zval *zvalue) /* {{{ */
|
1999-08-27 19:17:19 +00:00
|
|
|
{
|
2004-09-27 07:04:36 +00:00
|
|
|
zval_copy_ctor(zvalue);
|
1999-08-27 19:17:19 +00:00
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-08-27 19:17:19 +00:00
|
|
|
|
2007-07-11 11:19:58 +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
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-08-27 19:17:19 +00:00
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void _zval_internal_dtor_wrapper(zval *zvalue) /* {{{ */
|
2003-08-24 17:32:47 +00:00
|
|
|
{
|
|
|
|
zval_internal_dtor(zvalue);
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
2003-08-24 17:32:47 +00:00
|
|
|
|
2007-07-11 11:19:58 +00:00
|
|
|
ZEND_API void _zval_ptr_dtor_wrapper(zval **zval_ptr) /* {{{ */
|
1999-08-27 19:17:19 +00:00
|
|
|
{
|
2000-01-17 18:45:46 +00:00
|
|
|
zval_ptr_dtor(zval_ptr);
|
1999-08-27 19:17:19 +00:00
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
2003-08-24 17:32:47 +00:00
|
|
|
|
2007-07-11 11:19:58 +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);
|
|
|
|
}
|
2007-07-11 11:19:58 +00:00
|
|
|
/* }}} */
|
1999-08-27 19:17:19 +00:00
|
|
|
#endif
|
|
|
|
|
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:
|
|
|
|
*/
|