REGISTER_SPL_STD_CLASS(spl, array_writer_default, spl_array_writer_default_create);
REGISTER_SPL_FUNCTIONS(spl, array_writer_default, spl_array_writer_funcs);
#endif
+
return SUCCESS;
}
/* }}} */
#ifdef SPL_ARRAY_WRITE
ZEND_EXECUTE_HOOK_RESTORE(ZEND_ASSIGN);
#endif /* SPL_ARRAY_WRITE */
+
return SUCCESS;
}
/* }}} */
#define ZEND_EXECUTE_HOOK_FUNCTION(name) \
int spl_handler_ ## name(ZEND_OPCODE_HANDLER_ARGS)
-
ZEND_BEGIN_MODULE_GLOBALS(spl)
#ifdef SPL_FOREACH
ZEND_EXECUTE_HOOK_PTR(ZEND_FE_RESET);
int (*orig_unary_op)(zval *result, zval *op1);
int (*orig_binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC);
zend_class_entry *current_scope;
- zend_class_entry *calling_scope = NULL;
zval *current_this;
zend_execute_data execute_data;
va_list args;
EX(opline) = NULL;
EX(object) = *object_pp;
- calling_scope = obj_ce;
original_function_state_ptr = EG(function_state_ptr);
if (fn_proxy && *fn_proxy) {
ALLOC_ZVAL(new_zval);
*new_zval = *arg;
zval_copy_ctor(new_zval);
- new_zval->refcount = 1;
+ new_zval->refcount = 2;
+ new_zval->is_ref = 1;
arg->refcount--;
- arg = new_zval;
+ param = new_zval;
+ } else {
+ arg->refcount++;
+ arg->is_ref = 1;
+ param = arg;
}
- arg->refcount++;
- arg->is_ref = 1;
- param = arg;
} else if (arg != &EG(uninitialized_zval)) {
arg->refcount++;
param = arg;
}
va_end(args);
- zend_ptr_stack_n_push(&EG(argument_stack), 2, (void *) (long) param_count, NULL);
+ zend_ptr_stack_push(&EG(argument_stack), (void *) (long) param_count);
+ zend_ptr_stack_push(&EG(argument_stack), NULL);
EG(function_state_ptr) = &EX(function_state);
current_scope = EG(scope);
- EG(scope) = calling_scope;
+ EG(scope) = obj_ce;
current_this = EG(This);
-
EG(This) = *object_pp;
if (!PZVAL_IS_REF(EG(This))) {
EG(binary_op) = orig_binary_op;
} else {
ALLOC_INIT_ZVAL(*retval);
- ((zend_internal_function *) EX(function_state).function)->handler(param_count, *retval, (object_pp?*object_pp:NULL), 1 TSRMLS_CC);
+ ((zend_internal_function *) EX(function_state).function)->handler(param_count, *retval, *object_pp, 1 TSRMLS_CC);
INIT_PZVAL(*retval);
}
zend_ptr_stack_clear_multiple(TSRMLS_C);
#define OPTIMIZED_ARRAY_CONSTRUCT
-#define ezalloc(size) \
- memset(emalloc(size), 0, size)
-
typedef struct {
zend_function *next;
zend_function *rewind;
PZVAL_LOCK(retval);
} else if (is_a & SPL_IS_A_FORWARD) {
spl_unlock_zval_ptr_ptr(&EX(opline)->op1, EX(Ts) TSRMLS_CC);
- (*obj)->refcount += 2; /* lock two times */
retval = *obj;
+ retval->refcount += 2; /* lock two times */
} else {
ZEND_EXECUTE_HOOK_ORIGINAL(ZEND_FE_RESET);
}
/* And pack it into a zval. Since it is nowhere accessible using a
* zval of type STRING is the fastest approach of storing the proxy.
*/
- ALLOC_INIT_ZVAL(retval);
+ ALLOC_ZVAL(retval);
ZVAL_STRINGL(retval, (char*)proxy, sizeof(spl_foreach_proxy)-1, 0);
- retval->refcount += 2; /* lock two times */
+ retval->is_ref = 0;
+ retval->refcount = 2; /* lock two times */
/* return the created proxy container */
EX_T(EX(opline)->result.u.var).var.ptr = retval;
EX_T(EX(opline)->result.u.var).var.ptr_ptr = &EX_T(EX(opline)->result.u.var).var.ptr;
spl_foreach_proxy *proxy;
if (Z_TYPE_PP(obj) == IS_STRING) {
- spl_unlock_zval_ptr_ptr(op1, EX(Ts) TSRMLS_CC);
- PZVAL_LOCK(*obj);
proxy = (spl_foreach_proxy*)Z_STRVAL_PP(obj);
obj = &proxy->obj; /* will be optimized out */
/* {{{ ZEND_EXECUTE_HOOK_FUNCTION(ZEND_SWITCH_FREE) */
ZEND_EXECUTE_HOOK_FUNCTION(ZEND_SWITCH_FREE)
{
- znode *op1 = &EX(opline)->op1;
znode *op2 = &EX(opline)->op2;
zval *tmp, **obj = spl_get_zval_ptr_ptr(op2, EX(Ts) TSRMLS_CC);
spl_foreach_proxy *proxy;
tmp = *obj;
*obj = proxy->obj; /* restore */
- zval_dtor(tmp);
+ efree(tmp->value.str.val);
FREE_ZVAL(tmp);
- spl_unlock_zval_ptr_ptr(op1, EX(Ts) TSRMLS_CC);
+ spl_unlock_zval_ptr_ptr(&EX(opline)->op1, EX(Ts) TSRMLS_CC);
PZVAL_LOCK(*obj);
SET_UNUSED(*op2);