summaryrefslogtreecommitdiff
path: root/Zend/zend_vm_execute.h
diff options
context:
space:
mode:
authorDmitry Stogov <dmitry@zend.com>2014-02-12 14:29:51 +0400
committerDmitry Stogov <dmitry@zend.com>2014-02-12 14:29:51 +0400
commit4e66abad54b25ca367fcb6da78524e3c4024e2a0 (patch)
tree77632bac13854d5ffcfb9ce2f92ea0ce461db44e /Zend/zend_vm_execute.h
parente2ea9a7319c2d7f84d174cf76524c9b92c1541d1 (diff)
downloadphp-git-4e66abad54b25ca367fcb6da78524e3c4024e2a0.tar.gz
Use better data structures (incomplete) - refactored return_value handling
Diffstat (limited to 'Zend/zend_vm_execute.h')
-rw-r--r--Zend/zend_vm_execute.h2471
1 files changed, 899 insertions, 1572 deletions
diff --git a/Zend/zend_vm_execute.h b/Zend/zend_vm_execute.h
index 80d8c5670e..0de8cc1669 100644
--- a/Zend/zend_vm_execute.h
+++ b/Zend/zend_vm_execute.h
@@ -344,11 +344,6 @@ ZEND_API void execute_ex(zend_execute_data *execute_data TSRMLS_DC)
original_in_execution = EG(in_execution);
EG(in_execution) = 1;
- if (0) {
-zend_vm_enter:
- execute_data = i_create_execute_data_from_op_array(EG(active_op_array), 1 TSRMLS_CC);
- }
-
LOAD_REGS();
LOAD_OPLINE();
@@ -366,8 +361,6 @@ zend_vm_enter:
EG(in_execution) = original_in_execution;
return;
case 2:
- goto zend_vm_enter;
- break;
case 3:
execute_data = EG(current_execute_data);
break;
@@ -380,12 +373,12 @@ zend_vm_enter:
zend_error_noreturn(E_ERROR, "Arrived at end of main loop which shouldn't happen");
}
-ZEND_API void zend_execute(zend_op_array *op_array TSRMLS_DC)
+ZEND_API void zend_execute(zend_op_array *op_array, zval *return_value TSRMLS_DC)
{
if (EG(exception) != NULL) {
return;
}
- zend_execute_ex(i_create_execute_data_from_op_array(op_array, 0 TSRMLS_CC) TSRMLS_CC);
+ zend_execute_ex(i_create_execute_data_from_op_array(op_array, return_value, 0 TSRMLS_CC) TSRMLS_CC);
}
static int ZEND_FASTCALL zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS)
@@ -420,7 +413,6 @@ static int ZEND_FASTCALL zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS)
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
destroy_op_array(op_array TSRMLS_CC);
efree(op_array);
if (UNEXPECTED(EG(exception) != NULL)) {
@@ -433,7 +425,6 @@ static int ZEND_FASTCALL zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS)
} else {
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
if (EG(active_symbol_table)) {
zend_clean_and_cache_symbol_table(EG(active_symbol_table) TSRMLS_CC);
}
@@ -463,7 +454,7 @@ static int ZEND_FASTCALL zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS)
if (UNEXPECTED(EG(exception) != NULL)) {
zend_throw_exception_internal(NULL TSRMLS_CC);
- if (RETURN_VALUE_USED(opline) /*???&& EX_VAR(opline->result.var).var.ptr*/) {
+ if (RETURN_VALUE_USED(opline) /*???&& EX_VAR(opline->result.var) */) {
zval_ptr_dtor(EX_VAR(opline->result.var));
}
HANDLE_EXCEPTION_LEAVE();
@@ -566,15 +557,14 @@ static int ZEND_FASTCALL zend_do_fcall_common_helper_SPEC(ZEND_OPCODE_HANDLER_AR
//??? EX_T(opline->result.var).var.ptr = NULL;
}
} else if (fbc->type == ZEND_USER_FUNCTION) {
-//??? EX(original_return_value) = EG(return_value_ptr_ptr);
+ zval *return_value = NULL;
+
EG(active_symbol_table) = NULL;
EG(active_op_array) = &fbc->op_array;
-//??? EG(return_value_ptr_ptr) = NULL;
if (RETURN_VALUE_USED(opline)) {
- zval *ret = EX_VAR(opline->result.var);
+ return_value = EX_VAR(opline->result.var);
- ZVAL_NULL(ret);
-//??? EG(return_value_ptr_ptr) = &ret->var.ptr;
+ ZVAL_NULL(return_value);
//??? ret->var.ptr_ptr = &ret->var.ptr;
//??? ret->var.fcall_returned_reference = (fbc->common.fn_flags & ZEND_ACC_RETURN_REFERENCE) != 0;
}
@@ -585,15 +575,15 @@ static int ZEND_FASTCALL zend_do_fcall_common_helper_SPEC(ZEND_OPCODE_HANDLER_AR
}
} else if (EXPECTED(zend_execute_ex == execute_ex)) {
if (EXPECTED(EG(exception) == NULL)) {
+ i_create_execute_data_from_op_array(EG(active_op_array), return_value, 1 TSRMLS_CC);
ZEND_VM_ENTER();
}
} else {
- zend_execute(EG(active_op_array) TSRMLS_CC);
+ zend_execute(EG(active_op_array), return_value TSRMLS_CC);
}
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
if (EG(active_symbol_table)) {
zend_clean_and_cache_symbol_table(EG(active_symbol_table) TSRMLS_CC);
}
@@ -689,10 +679,10 @@ static int ZEND_FASTCALL ZEND_DO_FCALL_BY_NAME_SPEC_HANDLER(ZEND_OPCODE_HANDLER
static int ZEND_FASTCALL ZEND_GENERATOR_RETURN_SPEC_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
/* The generator object is stored in return_value_ptr_ptr */
-//??? zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
/* Close the generator to free up resources */
-//??? zend_generator_close(generator, 1 TSRMLS_CC);
+ zend_generator_close(generator, 1 TSRMLS_CC);
/* Pass execution back to handling code */
ZEND_VM_RETURN();
@@ -2347,7 +2337,7 @@ static int ZEND_FASTCALL ZEND_ECHO_SPEC_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
z = opline->op1.zv;
if (IS_CONST == IS_TMP_VAR && Z_TYPE_P(z) == IS_OBJECT) {
-//??? INIT_PZVAL(z);
+ Z_SET_REFCOUNT_P(z, 1);
}
zend_print_variable(z);
@@ -2554,7 +2544,7 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARG
SAVE_OPLINE();
retval_ptr = opline->op1.zv;
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
} else {
if (IS_CONST == IS_CONST ||
@@ -2566,10 +2556,10 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARG
if (IS_CONST != IS_TMP_VAR) {
zval_copy_ctor(&ret);
}
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), &ret);
} else {
-//??? *EG(return_value_ptr_ptr) = retval_ptr;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
if (IS_CONST == IS_CV) {
Z_ADDREF_P(retval_ptr);
}
@@ -2593,20 +2583,14 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_CONST_HANDLER(ZEND_OPCODE_HAND
zend_error(E_NOTICE, "Only variable references should be returned by reference");
retval_ptr = opline->op1.zv;
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
if (IS_CONST == IS_TMP_VAR) {
}
} else if (!0) { /* Not a temp var */
- zval ret;
-
- ZVAL_DUP(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_DUP(EX(return_value), retval_ptr);
} else {
- zval ret;
-
- ZVAL_COPY_VALUE(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
}
break;
}
@@ -2617,31 +2601,22 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_CONST_HANDLER(ZEND_OPCODE_HAND
zend_error_noreturn(E_ERROR, "Cannot return string offsets by reference");
}
-//???
-#if 0
- if (IS_CONST == IS_VAR && !Z_ISREF_PP(retval_ptr_ptr)) {
- if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
- EX_T(opline->op1.var).var.fcall_returned_reference) {
- } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CONST == IS_VAR && !Z_ISREF_P(retval_ptr)) {
+//??? if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
+//??? EX_T(opline->op1.var).var.fcall_returned_reference) {
+//??? } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
zend_error(E_NOTICE, "Only variable references should be returned by reference");
- if (EG(return_value_ptr_ptr)) {
- zval *ret;
-
- ALLOC_ZVAL(ret);
- INIT_DUP(ret, *retval_ptr_ptr);
- *EG(return_value_ptr_ptr) = ret;
+ if (EX(return_value)) {
+ ZVAL_DUP(EX(return_value), retval_ptr);
}
break;
- }
+//??? }
}
- if (EG(return_value_ptr_ptr)) {
- SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr_ptr);
- Z_ADDREF_PP(retval_ptr_ptr);
-
- *EG(return_value_ptr_ptr) = *retval_ptr_ptr;
+ if (EX(return_value)) {
+ SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr);
+ ZVAL_COPY(EX(return_value), retval_ptr);
}
-#endif
} while (0);
return zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS_PASSTHRU);
@@ -2926,13 +2901,11 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_CONST_HANDLER(ZEND_OPCODE_HA
if (UNEXPECTED(EG(exception) != NULL)) {
HANDLE_EXCEPTION();
} else if (EXPECTED(new_op_array != NULL)) {
-//??? EX(original_return_value) = EG(return_value_ptr_ptr);
+ zval *return_value = NULL;
+
EG(active_op_array) = new_op_array;
if (RETURN_VALUE_USED(opline)) {
-//??? EX_T(opline->result.var).var.ptr_ptr = &EX_T(opline->result.var).var.ptr;
-//??? EG(return_value_ptr_ptr) = EX_T(opline->result.var).var.ptr_ptr;
- } else {
-//??? EG(return_value_ptr_ptr) = NULL;
+ return_value = EX_VAR(opline->result.var);
}
EX(function_state).function = (zend_function *) new_op_array;
@@ -2943,16 +2916,16 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_CONST_HANDLER(ZEND_OPCODE_HA
}
if (EXPECTED(zend_execute_ex == execute_ex)) {
+ i_create_execute_data_from_op_array(new_op_array, return_value, 1 TSRMLS_CC);
ZEND_VM_ENTER();
} else {
- zend_execute(new_op_array TSRMLS_CC);
+ zend_execute(new_op_array, return_value TSRMLS_CC);
}
EX(function_state).function = (zend_function *) EX(op_array);
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
destroy_op_array(new_op_array TSRMLS_CC);
efree(new_op_array);
if (UNEXPECTED(EG(exception) != NULL)) {
@@ -4204,27 +4177,20 @@ static int ZEND_FASTCALL ZEND_DECLARE_CONST_SPEC_CONST_CONST_HANDLER(ZEND_OPCOD
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CONST_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CONST != IS_UNUSED) {
@@ -4234,42 +4200,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = opline->op1.zv;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = opline->op1.zv;
- if (IS_CONST == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CONST == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CONST == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CONST == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -4279,29 +4240,25 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CONST == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -4313,42 +4270,35 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -4362,7 +4312,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_CONST_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -4873,27 +4822,20 @@ static int ZEND_FASTCALL ZEND_INIT_ARRAY_SPEC_CONST_TMP_HANDLER(ZEND_OPCODE_HAN
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CONST_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CONST != IS_UNUSED) {
@@ -4903,42 +4845,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = opline->op1.zv;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = opline->op1.zv;
- if (IS_CONST == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CONST == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CONST == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CONST == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -4948,29 +4885,25 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CONST == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -4982,42 +4915,35 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -5031,7 +4957,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_CONST_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -5854,27 +5779,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_VAR_SPEC_CONST_VAR_HANDLER(ZEND_OPC
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CONST_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CONST != IS_UNUSED) {
@@ -5884,42 +5802,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = opline->op1.zv;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = opline->op1.zv;
- if (IS_CONST == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CONST == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CONST == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CONST == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -5929,29 +5842,25 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CONST == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -5963,43 +5872,36 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
zval_ptr_dtor_nogc(free_op2.var);
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -6013,7 +5915,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_fetch_var_address_helper_SPEC_CONST_UNUSED(int type, ZEND_OPCODE_HANDLER_ARGS)
@@ -6546,27 +6447,20 @@ static int ZEND_FASTCALL ZEND_DECLARE_LAMBDA_FUNCTION_SPEC_CONST_UNUSED_HANDLER
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CONST_UNUSED_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CONST != IS_UNUSED) {
@@ -6576,42 +6470,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = opline->op1.zv;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = opline->op1.zv;
- if (IS_CONST == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CONST == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CONST == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CONST == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -6621,29 +6510,25 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CONST == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -6655,42 +6540,35 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -6704,7 +6582,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_CONST_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -7273,27 +7150,20 @@ static int ZEND_FASTCALL ZEND_INIT_ARRAY_SPEC_CONST_CV_HANDLER(ZEND_OPCODE_HAND
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CONST_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CONST != IS_UNUSED) {
@@ -7303,42 +7173,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = opline->op1.zv;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = opline->op1.zv;
- if (IS_CONST == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CONST == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CONST == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CONST == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -7348,29 +7213,25 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CONST == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -7382,42 +7243,35 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -7431,7 +7285,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_BW_NOT_SPEC_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -7470,7 +7323,7 @@ static int ZEND_FASTCALL ZEND_ECHO_SPEC_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
z = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
if (IS_TMP_VAR == IS_TMP_VAR && Z_TYPE_P(z) == IS_OBJECT) {
-//??? INIT_PZVAL(z);
+ Z_SET_REFCOUNT_P(z, 1);
}
zend_print_variable(z);
@@ -7664,7 +7517,7 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
SAVE_OPLINE();
retval_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
zval_dtor(free_op1.var);
} else {
if (IS_TMP_VAR == IS_CONST ||
@@ -7676,10 +7529,10 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
if (IS_TMP_VAR != IS_TMP_VAR) {
zval_copy_ctor(&ret);
}
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), &ret);
} else {
-//??? *EG(return_value_ptr_ptr) = retval_ptr;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
if (IS_TMP_VAR == IS_CV) {
Z_ADDREF_P(retval_ptr);
}
@@ -7703,20 +7556,14 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_TMP_HANDLER(ZEND_OPCODE_HANDLE
zend_error(E_NOTICE, "Only variable references should be returned by reference");
retval_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
if (IS_TMP_VAR == IS_TMP_VAR) {
zval_dtor(free_op1.var);
}
} else if (!1) { /* Not a temp var */
- zval ret;
-
- ZVAL_DUP(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_DUP(EX(return_value), retval_ptr);
} else {
- zval ret;
-
- ZVAL_COPY_VALUE(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
}
break;
}
@@ -7727,31 +7574,22 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_TMP_HANDLER(ZEND_OPCODE_HANDLE
zend_error_noreturn(E_ERROR, "Cannot return string offsets by reference");
}
-//???
-#if 0
- if (IS_TMP_VAR == IS_VAR && !Z_ISREF_PP(retval_ptr_ptr)) {
- if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
- EX_T(opline->op1.var).var.fcall_returned_reference) {
- } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_TMP_VAR == IS_VAR && !Z_ISREF_P(retval_ptr)) {
+//??? if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
+//??? EX_T(opline->op1.var).var.fcall_returned_reference) {
+//??? } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
zend_error(E_NOTICE, "Only variable references should be returned by reference");
- if (EG(return_value_ptr_ptr)) {
- zval *ret;
-
- ALLOC_ZVAL(ret);
- INIT_DUP(ret, *retval_ptr_ptr);
- *EG(return_value_ptr_ptr) = ret;
+ if (EX(return_value)) {
+ ZVAL_DUP(EX(return_value), retval_ptr);
}
break;
- }
+//??? }
}
- if (EG(return_value_ptr_ptr)) {
- SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr_ptr);
- Z_ADDREF_PP(retval_ptr_ptr);
-
- *EG(return_value_ptr_ptr) = *retval_ptr_ptr;
+ if (EX(return_value)) {
+ SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr);
+ ZVAL_COPY(EX(return_value), retval_ptr);
}
-#endif
} while (0);
return zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS_PASSTHRU);
@@ -8037,13 +7875,11 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_TMP_HANDLER(ZEND_OPCODE_HAND
if (UNEXPECTED(EG(exception) != NULL)) {
HANDLE_EXCEPTION();
} else if (EXPECTED(new_op_array != NULL)) {
-//??? EX(original_return_value) = EG(return_value_ptr_ptr);
+ zval *return_value = NULL;
+
EG(active_op_array) = new_op_array;
if (RETURN_VALUE_USED(opline)) {
-//??? EX_T(opline->result.var).var.ptr_ptr = &EX_T(opline->result.var).var.ptr;
-//??? EG(return_value_ptr_ptr) = EX_T(opline->result.var).var.ptr_ptr;
- } else {
-//??? EG(return_value_ptr_ptr) = NULL;
+ return_value = EX_VAR(opline->result.var);
}
EX(function_state).function = (zend_function *) new_op_array;
@@ -8054,16 +7890,16 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_TMP_HANDLER(ZEND_OPCODE_HAND
}
if (EXPECTED(zend_execute_ex == execute_ex)) {
+ i_create_execute_data_from_op_array(new_op_array, return_value, 1 TSRMLS_CC);
ZEND_VM_ENTER();
} else {
- zend_execute(new_op_array TSRMLS_CC);
+ zend_execute(new_op_array, return_value TSRMLS_CC);
}
EX(function_state).function = (zend_function *) EX(op_array);
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
destroy_op_array(new_op_array TSRMLS_CC);
efree(new_op_array);
if (UNEXPECTED(EG(exception) != NULL)) {
@@ -9239,27 +9075,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_VAR_SPEC_TMP_CONST_HANDLER(ZEND_OPC
static int ZEND_FASTCALL ZEND_YIELD_SPEC_TMP_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_TMP_VAR != IS_UNUSED) {
@@ -9269,42 +9098,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_TMP_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_TMP_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_TMP_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_TMP_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -9314,29 +9138,25 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_TMP_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -9348,42 +9168,35 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -9397,7 +9210,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_TMP_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -9911,27 +9723,20 @@ static int ZEND_FASTCALL ZEND_INIT_ARRAY_SPEC_TMP_TMP_HANDLER(ZEND_OPCODE_HANDL
static int ZEND_FASTCALL ZEND_YIELD_SPEC_TMP_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_TMP_VAR != IS_UNUSED) {
@@ -9941,42 +9746,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_TMP_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_TMP_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_TMP_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_TMP_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -9986,29 +9786,25 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_TMP_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -10020,42 +9816,35 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -10069,7 +9858,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_TMP_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -10895,27 +10683,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_VAR_SPEC_TMP_VAR_HANDLER(ZEND_OPCOD
static int ZEND_FASTCALL ZEND_YIELD_SPEC_TMP_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_TMP_VAR != IS_UNUSED) {
@@ -10925,42 +10706,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_TMP_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_TMP_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_TMP_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_TMP_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -10970,29 +10746,25 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_TMP_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -11004,43 +10776,36 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
zval_ptr_dtor_nogc(free_op2.var);
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -11054,7 +10819,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_fetch_var_address_helper_SPEC_TMP_UNUSED(int type, ZEND_OPCODE_HANDLER_ARGS)
@@ -11458,27 +11222,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_VAR_SPEC_TMP_UNUSED_HANDLER(ZEND_OP
static int ZEND_FASTCALL ZEND_YIELD_SPEC_TMP_UNUSED_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_TMP_VAR != IS_UNUSED) {
@@ -11488,42 +11245,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_TMP_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_TMP_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_TMP_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_TMP_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -11533,29 +11285,25 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_TMP_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -11567,42 +11315,35 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -11616,7 +11357,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_TMP_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -12127,27 +11867,20 @@ static int ZEND_FASTCALL ZEND_INIT_ARRAY_SPEC_TMP_CV_HANDLER(ZEND_OPCODE_HANDLE
static int ZEND_FASTCALL ZEND_YIELD_SPEC_TMP_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_TMP_VAR != IS_UNUSED) {
@@ -12157,42 +11890,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_tmp(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_TMP_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_TMP_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_TMP_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_TMP_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -12202,29 +11930,25 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_TMP_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -12236,42 +11960,35 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -12285,7 +12002,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_BW_NOT_SPEC_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -12498,7 +12214,7 @@ static int ZEND_FASTCALL ZEND_ECHO_SPEC_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
z = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
if (IS_VAR == IS_TMP_VAR && Z_TYPE_P(z) == IS_OBJECT) {
-//??? INIT_PZVAL(z);
+ Z_SET_REFCOUNT_P(z, 1);
}
zend_print_variable(z);
@@ -12692,7 +12408,7 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
SAVE_OPLINE();
retval_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
zval_ptr_dtor_nogc(free_op1.var);
} else {
if (IS_VAR == IS_CONST ||
@@ -12704,10 +12420,10 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
if (IS_VAR != IS_TMP_VAR) {
zval_copy_ctor(&ret);
}
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), &ret);
zval_ptr_dtor_nogc(free_op1.var);
} else {
-//??? *EG(return_value_ptr_ptr) = retval_ptr;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
if (IS_VAR == IS_CV) {
Z_ADDREF_P(retval_ptr);
}
@@ -12731,20 +12447,14 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_VAR_HANDLER(ZEND_OPCODE_HANDLE
zend_error(E_NOTICE, "Only variable references should be returned by reference");
retval_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
if (IS_VAR == IS_TMP_VAR) {
zval_ptr_dtor_nogc(free_op1.var);
}
} else if (!0) { /* Not a temp var */
- zval ret;
-
- ZVAL_DUP(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_DUP(EX(return_value), retval_ptr);
} else {
- zval ret;
-
- ZVAL_COPY_VALUE(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
}
break;
}
@@ -12755,31 +12465,22 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_VAR_HANDLER(ZEND_OPCODE_HANDLE
zend_error_noreturn(E_ERROR, "Cannot return string offsets by reference");
}
-//???
-#if 0
- if (IS_VAR == IS_VAR && !Z_ISREF_PP(retval_ptr_ptr)) {
- if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
- EX_T(opline->op1.var).var.fcall_returned_reference) {
- } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_VAR == IS_VAR && !Z_ISREF_P(retval_ptr)) {
+//??? if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
+//??? EX_T(opline->op1.var).var.fcall_returned_reference) {
+//??? } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
zend_error(E_NOTICE, "Only variable references should be returned by reference");
- if (EG(return_value_ptr_ptr)) {
- zval *ret;
-
- ALLOC_ZVAL(ret);
- INIT_DUP(ret, *retval_ptr_ptr);
- *EG(return_value_ptr_ptr) = ret;
+ if (EX(return_value)) {
+ ZVAL_DUP(EX(return_value), retval_ptr);
}
break;
- }
+//??? }
}
- if (EG(return_value_ptr_ptr)) {
- SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr_ptr);
- Z_ADDREF_PP(retval_ptr_ptr);
-
- *EG(return_value_ptr_ptr) = *retval_ptr_ptr;
+ if (EX(return_value)) {
+ SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr);
+ ZVAL_COPY(EX(return_value), retval_ptr);
}
-#endif
} while (0);
if (free_op1.var) {zval_ptr_dtor_nogc(free_op1.var);};
@@ -13168,13 +12869,11 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_VAR_HANDLER(ZEND_OPCODE_HAND
if (UNEXPECTED(EG(exception) != NULL)) {
HANDLE_EXCEPTION();
} else if (EXPECTED(new_op_array != NULL)) {
-//??? EX(original_return_value) = EG(return_value_ptr_ptr);
+ zval *return_value = NULL;
+
EG(active_op_array) = new_op_array;
if (RETURN_VALUE_USED(opline)) {
-//??? EX_T(opline->result.var).var.ptr_ptr = &EX_T(opline->result.var).var.ptr;
-//??? EG(return_value_ptr_ptr) = EX_T(opline->result.var).var.ptr_ptr;
- } else {
-//??? EG(return_value_ptr_ptr) = NULL;
+ return_value = EX_VAR(opline->result.var);
}
EX(function_state).function = (zend_function *) new_op_array;
@@ -13185,16 +12884,16 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_VAR_HANDLER(ZEND_OPCODE_HAND
}
if (EXPECTED(zend_execute_ex == execute_ex)) {
+ i_create_execute_data_from_op_array(new_op_array, return_value, 1 TSRMLS_CC);
ZEND_VM_ENTER();
} else {
- zend_execute(new_op_array TSRMLS_CC);
+ zend_execute(new_op_array, return_value TSRMLS_CC);
}
EX(function_state).function = (zend_function *) EX(op_array);
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
destroy_op_array(new_op_array TSRMLS_CC);
efree(new_op_array);
if (UNEXPECTED(EG(exception) != NULL)) {
@@ -15854,27 +15553,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_VAR_CONST_HANDLER(ZEN
static int ZEND_FASTCALL ZEND_YIELD_SPEC_VAR_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_VAR != IS_UNUSED) {
@@ -15884,42 +15576,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
if (free_op1.var) {zval_ptr_dtor_nogc(free_op1.var);};
}
@@ -15930,29 +15617,26 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
zval_ptr_dtor_nogc(free_op1.var);
} else {
if (IS_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -15964,42 +15648,35 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -16013,7 +15690,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_VAR_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -17838,27 +17514,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_VAR_TMP_HANDLER(ZEND_
static int ZEND_FASTCALL ZEND_YIELD_SPEC_VAR_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_VAR != IS_UNUSED) {
@@ -17868,42 +17537,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
if (free_op1.var) {zval_ptr_dtor_nogc(free_op1.var);};
}
@@ -17914,29 +17578,26 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
zval_ptr_dtor_nogc(free_op1.var);
} else {
if (IS_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -17948,42 +17609,35 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -17997,7 +17651,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_VAR_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -20188,27 +19841,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_VAR_VAR_HANDLER(ZEND_
static int ZEND_FASTCALL ZEND_YIELD_SPEC_VAR_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_VAR != IS_UNUSED) {
@@ -20218,42 +19864,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
if (free_op1.var) {zval_ptr_dtor_nogc(free_op1.var);};
}
@@ -20264,29 +19905,26 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
zval_ptr_dtor_nogc(free_op1.var);
} else {
if (IS_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -20298,43 +19936,36 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
zval_ptr_dtor_nogc(free_op2.var);
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -20348,7 +19979,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_binary_assign_op_obj_helper_SPEC_VAR_UNUSED(int (*binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC), ZEND_OPCODE_HANDLER_ARGS)
@@ -21281,27 +20911,20 @@ static int ZEND_FASTCALL ZEND_SEPARATE_SPEC_VAR_UNUSED_HANDLER(ZEND_OPCODE_HAND
static int ZEND_FASTCALL ZEND_YIELD_SPEC_VAR_UNUSED_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_VAR != IS_UNUSED) {
@@ -21311,42 +20934,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
if (free_op1.var) {zval_ptr_dtor_nogc(free_op1.var);};
}
@@ -21357,29 +20975,26 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
zval_ptr_dtor_nogc(free_op1.var);
} else {
if (IS_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -21391,42 +21006,35 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -21440,7 +21048,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_VAR_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -23313,27 +22920,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_VAR_CV_HANDLER(ZEND_O
static int ZEND_FASTCALL ZEND_YIELD_SPEC_VAR_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_VAR != IS_UNUSED) {
@@ -23343,42 +22943,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_var(opline->op1.var, execute_data, &free_op1 TSRMLS_CC);
- if (IS_VAR == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_VAR == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_VAR == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_VAR == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
if (free_op1.var) {zval_ptr_dtor_nogc(free_op1.var);};
}
@@ -23389,29 +22984,26 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
zval_ptr_dtor_nogc(free_op1.var);
} else {
if (IS_VAR == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -23423,42 +23015,35 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -23472,7 +23057,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_CLONE_SPEC_UNUSED_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -24747,27 +24331,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_UNUSED_CONST_HANDLER(
static int ZEND_FASTCALL ZEND_YIELD_SPEC_UNUSED_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_UNUSED != IS_UNUSED) {
@@ -24777,42 +24354,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = NULL;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = NULL;
- if (IS_UNUSED == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_UNUSED == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_UNUSED == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_UNUSED == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -24822,29 +24394,25 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_UNUSED == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -24856,42 +24424,35 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -24905,7 +24466,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_binary_assign_op_obj_helper_SPEC_UNUSED_TMP(int (*binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC), ZEND_OPCODE_HANDLER_ARGS)
@@ -26011,27 +25571,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_UNUSED_TMP_HANDLER(ZE
static int ZEND_FASTCALL ZEND_YIELD_SPEC_UNUSED_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_UNUSED != IS_UNUSED) {
@@ -26041,42 +25594,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = NULL;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = NULL;
- if (IS_UNUSED == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_UNUSED == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_UNUSED == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_UNUSED == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -26086,29 +25634,25 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_UNUSED == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -26120,42 +25664,35 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -26169,7 +25706,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_binary_assign_op_obj_helper_SPEC_UNUSED_VAR(int (*binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC), ZEND_OPCODE_HANDLER_ARGS)
@@ -27275,27 +26811,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_UNUSED_VAR_HANDLER(ZE
static int ZEND_FASTCALL ZEND_YIELD_SPEC_UNUSED_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_UNUSED != IS_UNUSED) {
@@ -27305,42 +26834,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = NULL;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = NULL;
- if (IS_UNUSED == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_UNUSED == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_UNUSED == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_UNUSED == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -27350,29 +26874,25 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_UNUSED == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -27384,43 +26904,36 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
zval_ptr_dtor_nogc(free_op2.var);
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -27434,7 +26947,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_binary_assign_op_obj_helper_SPEC_UNUSED_UNUSED(int (*binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC), ZEND_OPCODE_HANDLER_ARGS)
@@ -27695,27 +27207,20 @@ static int ZEND_FASTCALL ZEND_INIT_ARRAY_SPEC_UNUSED_UNUSED_HANDLER(ZEND_OPCODE
static int ZEND_FASTCALL ZEND_YIELD_SPEC_UNUSED_UNUSED_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_UNUSED != IS_UNUSED) {
@@ -27725,42 +27230,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = NULL;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = NULL;
- if (IS_UNUSED == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_UNUSED == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_UNUSED == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_UNUSED == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -27770,29 +27270,25 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_UNUSED == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -27804,42 +27300,35 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -27853,7 +27342,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_binary_assign_op_obj_helper_SPEC_UNUSED_CV(int (*binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC), ZEND_OPCODE_HANDLER_ARGS)
@@ -28956,27 +28444,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_UNUSED_CV_HANDLER(ZEN
static int ZEND_FASTCALL ZEND_YIELD_SPEC_UNUSED_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_UNUSED != IS_UNUSED) {
@@ -28986,42 +28467,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = NULL;
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = NULL;
- if (IS_UNUSED == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_UNUSED == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_UNUSED == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_UNUSED == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -29031,29 +28507,25 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_UNUSED == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -29065,42 +28537,35 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -29114,7 +28579,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_BW_NOT_SPEC_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -29323,7 +28787,7 @@ static int ZEND_FASTCALL ZEND_ECHO_SPEC_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
z = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
if (IS_CV == IS_TMP_VAR && Z_TYPE_P(z) == IS_OBJECT) {
-//??? INIT_PZVAL(z);
+ Z_SET_REFCOUNT_P(z, 1);
}
zend_print_variable(z);
@@ -29502,7 +28966,7 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
SAVE_OPLINE();
retval_ptr = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
} else {
if (IS_CV == IS_CONST ||
@@ -29514,10 +28978,10 @@ static int ZEND_FASTCALL ZEND_RETURN_SPEC_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
if (IS_CV != IS_TMP_VAR) {
zval_copy_ctor(&ret);
}
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), &ret);
} else {
-//??? *EG(return_value_ptr_ptr) = retval_ptr;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
if (IS_CV == IS_CV) {
Z_ADDREF_P(retval_ptr);
}
@@ -29541,20 +29005,14 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_CV_HANDLER(ZEND_OPCODE_HANDLER
zend_error(E_NOTICE, "Only variable references should be returned by reference");
retval_ptr = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- if (/*???!EG(return_value_ptr_ptr)*/0) {
+ if (!EX(return_value)) {
if (IS_CV == IS_TMP_VAR) {
}
} else if (!0) { /* Not a temp var */
- zval ret;
-
- ZVAL_DUP(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_DUP(EX(return_value), retval_ptr);
} else {
- zval ret;
-
- ZVAL_COPY_VALUE(&ret, retval_ptr);
-//??? *EG(return_value_ptr_ptr) = ret;
+ ZVAL_COPY_VALUE(EX(return_value), retval_ptr);
}
break;
}
@@ -29565,31 +29023,22 @@ static int ZEND_FASTCALL ZEND_RETURN_BY_REF_SPEC_CV_HANDLER(ZEND_OPCODE_HANDLER
zend_error_noreturn(E_ERROR, "Cannot return string offsets by reference");
}
-//???
-#if 0
- if (IS_CV == IS_VAR && !Z_ISREF_PP(retval_ptr_ptr)) {
- if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
- EX_T(opline->op1.var).var.fcall_returned_reference) {
- } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CV == IS_VAR && !Z_ISREF_P(retval_ptr)) {
+//??? if (opline->extended_value == ZEND_RETURNS_FUNCTION &&
+//??? EX_T(opline->op1.var).var.fcall_returned_reference) {
+//??? } else if (EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
zend_error(E_NOTICE, "Only variable references should be returned by reference");
- if (EG(return_value_ptr_ptr)) {
- zval *ret;
-
- ALLOC_ZVAL(ret);
- INIT_DUP(ret, *retval_ptr_ptr);
- *EG(return_value_ptr_ptr) = ret;
+ if (EX(return_value)) {
+ ZVAL_DUP(EX(return_value), retval_ptr);
}
break;
- }
+//??? }
}
- if (EG(return_value_ptr_ptr)) {
- SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr_ptr);
- Z_ADDREF_PP(retval_ptr_ptr);
-
- *EG(return_value_ptr_ptr) = *retval_ptr_ptr;
+ if (EX(return_value)) {
+ SEPARATE_ZVAL_TO_MAKE_IS_REF(retval_ptr);
+ ZVAL_COPY(EX(return_value), retval_ptr);
}
-#endif
} while (0);
return zend_leave_helper_SPEC(ZEND_OPCODE_HANDLER_ARGS_PASSTHRU);
@@ -29965,13 +29414,11 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_CV_HANDLER(ZEND_OPCODE_HANDL
if (UNEXPECTED(EG(exception) != NULL)) {
HANDLE_EXCEPTION();
} else if (EXPECTED(new_op_array != NULL)) {
-//??? EX(original_return_value) = EG(return_value_ptr_ptr);
+ zval *return_value = NULL;
+
EG(active_op_array) = new_op_array;
if (RETURN_VALUE_USED(opline)) {
-//??? EX_T(opline->result.var).var.ptr_ptr = &EX_T(opline->result.var).var.ptr;
-//??? EG(return_value_ptr_ptr) = EX_T(opline->result.var).var.ptr_ptr;
- } else {
-//??? EG(return_value_ptr_ptr) = NULL;
+ return_value = EX_VAR(opline->result.var);
}
EX(function_state).function = (zend_function *) new_op_array;
@@ -29982,16 +29429,16 @@ static int ZEND_FASTCALL ZEND_INCLUDE_OR_EVAL_SPEC_CV_HANDLER(ZEND_OPCODE_HANDL
}
if (EXPECTED(zend_execute_ex == execute_ex)) {
+ i_create_execute_data_from_op_array(new_op_array, return_value, 1 TSRMLS_CC);
ZEND_VM_ENTER();
} else {
- zend_execute(new_op_array TSRMLS_CC);
+ zend_execute(new_op_array, return_value TSRMLS_CC);
}
EX(function_state).function = (zend_function *) EX(op_array);
EG(opline_ptr) = &EX(opline);
EG(active_op_array) = EX(op_array);
-//??? EG(return_value_ptr_ptr) = EX(original_return_value);
destroy_op_array(new_op_array TSRMLS_CC);
efree(new_op_array);
if (UNEXPECTED(EG(exception) != NULL)) {
@@ -32303,27 +31750,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_CV_CONST_HANDLER(ZEND
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CV_CONST_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CV != IS_UNUSED) {
@@ -32333,42 +31773,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_cv_BP_VAR_W(execute_data, opline->op1.var TSRMLS_CC);
- if (IS_CV == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CV == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CV == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CV == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -32378,29 +31813,25 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CV == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -32412,42 +31843,35 @@ return 0;
if (IS_CONST == IS_CONST || IS_CONST == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -32461,7 +31885,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_CV_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -34162,27 +33585,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_CV_TMP_HANDLER(ZEND_O
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CV_TMP_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CV != IS_UNUSED) {
@@ -34192,42 +33608,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_cv_BP_VAR_W(execute_data, opline->op1.var TSRMLS_CC);
- if (IS_CV == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CV == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CV == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CV == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -34237,29 +33648,25 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CV == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -34271,42 +33678,35 @@ return 0;
if (IS_TMP_VAR == IS_CONST || IS_TMP_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!1) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -34320,7 +33720,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_CV_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -36386,27 +35785,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_CV_VAR_HANDLER(ZEND_O
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CV_VAR_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CV != IS_UNUSED) {
@@ -36416,42 +35808,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_cv_BP_VAR_W(execute_data, opline->op1.var TSRMLS_CC);
- if (IS_CV == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CV == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CV == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CV == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -36461,29 +35848,25 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CV == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -36495,43 +35878,36 @@ return 0;
if (IS_VAR == IS_CONST || IS_VAR == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
zval_ptr_dtor_nogc(free_op2.var);
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -36545,7 +35921,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL zend_binary_assign_op_obj_helper_SPEC_CV_UNUSED(int (*binary_op)(zval *result, zval *op1, zval *op2 TSRMLS_DC), ZEND_OPCODE_HANDLER_ARGS)
@@ -37348,27 +36723,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_VAR_SPEC_CV_UNUSED_HANDLER(ZEND_OPC
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CV_UNUSED_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CV != IS_UNUSED) {
@@ -37378,42 +36746,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_cv_BP_VAR_W(execute_data, opline->op1.var TSRMLS_CC);
- if (IS_CV == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CV == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CV == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CV == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -37423,29 +36786,25 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CV == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -37457,42 +36816,35 @@ return 0;
if (IS_UNUSED == IS_CONST || IS_UNUSED == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -37506,7 +36858,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_ADD_SPEC_CV_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
@@ -39254,27 +38605,20 @@ static int ZEND_FASTCALL ZEND_ISSET_ISEMPTY_PROP_OBJ_SPEC_CV_CV_HANDLER(ZEND_OP
static int ZEND_FASTCALL ZEND_YIELD_SPEC_CV_CV_HANDLER(ZEND_OPCODE_HANDLER_ARGS)
{
-//???
-return 0;
-#if 0
USE_OPLINE
/* The generator object is stored in return_value_ptr_ptr */
- zend_generator *generator = (zend_generator *) EG(return_value_ptr_ptr);
+ zend_generator *generator = (zend_generator *) Z_OBJ_P(EX(return_value));
if (generator->flags & ZEND_GENERATOR_FORCED_CLOSE) {
zend_error_noreturn(E_ERROR, "Cannot yield from finally in a force-closed generator");
}
/* Destroy the previously yielded value */
- if (generator->value) {
- zval_ptr_dtor(&generator->value);
- }
+ zval_ptr_dtor(&generator->value);
/* Destroy the previously yielded key */
- if (generator->key) {
- zval_ptr_dtor(&generator->key);
- }
+ zval_ptr_dtor(&generator->key);
/* Set the new yielded value */
if (IS_CV != IS_UNUSED) {
@@ -39284,42 +38628,37 @@ return 0;
/* Constants and temporary variables aren't yieldable by reference,
* but we still allow them with a notice. */
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR) {
- zval *value, *copy;
+ zval *value;
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
value = _get_zval_ptr_cv_BP_VAR_R(execute_data, opline->op1.var TSRMLS_CC);
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
-
- generator->value = copy;
} else {
- zval **value_ptr = GET_OP1_ZVAL_PTR_PTR(BP_VAR_W);
+ zval *value_ptr = _get_zval_ptr_cv_BP_VAR_W(execute_data, opline->op1.var TSRMLS_CC);
- if (IS_CV == IS_VAR && UNEXPECTED(value_ptr == NULL)) {
+ if (IS_CV == IS_VAR && UNEXPECTED(Z_TYPE_P(value_ptr) == IS_STR_OFFSET)) {
zend_error_noreturn(E_ERROR, "Cannot yield string offsets by reference");
}
/* If a function call result is yielded and the function did
* not return by reference we throw a notice. */
- if (IS_CV == IS_VAR && !Z_ISREF_PP(value_ptr)
- && !(opline->extended_value == ZEND_RETURNS_FUNCTION
- && EX_T(opline->op1.var).var.fcall_returned_reference)
- && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+ if (IS_CV == IS_VAR && !Z_ISREF_P(value_ptr)
+//??? && !(opline->extended_value == ZEND_RETURNS_FUNCTION
+//??? && EX_T(opline->op1.var).var.fcall_returned_reference)
+//??? && EX_T(opline->op1.var).var.ptr_ptr == &EX_T(opline->op1.var).var.ptr) {
+) {
zend_error(E_NOTICE, "Only variable references should be yielded by reference");
-
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
} else {
SEPARATE_ZVAL_TO_MAKE_IS_REF(value_ptr);
- Z_ADDREF_PP(value_ptr);
- generator->value = *value_ptr;
}
+ ZVAL_COPY(&generator->value, value_ptr);
}
} else {
@@ -39329,29 +38668,25 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| Z_ISREF_P(value)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, value);
+//??? INIT_PZVAL_COPY(copy, value);
+ ZVAL_COPY_VALUE(&generator->value, value);
+ Z_SET_REFCOUNT(generator->value, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->value);
}
- generator->value = copy;
-
} else {
if (IS_CV == IS_CV) {
Z_ADDREF_P(value);
}
- generator->value = value;
+ ZVAL_COPY_VALUE(&generator->value, value);
}
}
} else {
/* If no value was specified yield null */
- Z_ADDREF(EG(uninitialized_zval));
- generator->value = &EG(uninitialized_zval);
+ ZVAL_NULL(&generator->value);
}
/* Set the new yielded key */
@@ -39363,42 +38698,35 @@ return 0;
if (IS_CV == IS_CONST || IS_CV == IS_TMP_VAR
|| (Z_ISREF_P(key) && Z_REFCOUNT_P(key) > 0)
) {
- zval *copy;
-
- ALLOC_ZVAL(copy);
- INIT_PZVAL_COPY(copy, key);
+//??? INIT_PZVAL_COPY(copy, key);
+ ZVAL_COPY_VALUE(&generator->key, key);
+ Z_SET_REFCOUNT(generator->key, 1);
/* Temporary variables don't need ctor copying */
if (!0) {
- zval_copy_ctor(copy);
+ zval_copy_ctor(&generator->key);
}
-
- generator->key = copy;
} else {
- Z_ADDREF_P(key);
- generator->key = key;
+ ZVAL_COPY(&generator->key, key);
}
- if (Z_TYPE_P(generator->key) == IS_LONG
- && Z_LVAL_P(generator->key) > generator->largest_used_integer_key
+ if (Z_TYPE(generator->key) == IS_LONG
+ && Z_LVAL(generator->key) > generator->largest_used_integer_key
) {
- generator->largest_used_integer_key = Z_LVAL_P(generator->key);
+ generator->largest_used_integer_key = Z_LVAL(generator->key);
}
} else {
/* If no key was specified we use auto-increment keys */
generator->largest_used_integer_key++;
-
- ALLOC_INIT_ZVAL(generator->key);
- ZVAL_LONG(generator->key, generator->largest_used_integer_key);
+ ZVAL_LONG(&generator->key, generator->largest_used_integer_key);
}
if (RETURN_VALUE_USED(opline)) {
/* If the return value of yield is used set the send
* target and initialize it to NULL */
- generator->send_target = &EX_T(opline->result.var).var.ptr;
- Z_ADDREF(EG(uninitialized_zval));
- EX_T(opline->result.var).var.ptr = &EG(uninitialized_zval);
+ generator->send_target = EX_VAR(opline->result.var);
+ ZVAL_NULL(generator->send_target);
} else {
generator->send_target = NULL;
}
@@ -39412,7 +38740,6 @@ return 0;
SAVE_OPLINE();
ZEND_VM_RETURN();
-#endif
}
static int ZEND_FASTCALL ZEND_NULL_HANDLER(ZEND_OPCODE_HANDLER_ARGS)