Fix tests

Author: kocsismate

Zend/tests/readonly_props/readonly_clone_success4.phpt

@@ -16,7 +16,7 @@ class Foo {
             echo $e->getMessage() . "\n";
         }
 
-        $this->bar = 1;
+        $this->bar = 2;
     }
 }
 
@@ -30,10 +30,10 @@ var_dump(clone $foo);
 Cannot assign string to property Foo::$bar of type int
 object(Foo)#%d (%d) {
   ["bar"]=>
-  int(1)
+  int(2)
 }
 Cannot assign string to property Foo::$bar of type int
 object(Foo)#%d (%d) {
   ["bar"]=>
-  int(1)
+  int(2)
 }

Zend/tests/readonly_props/readonly_coercion_type_error.phpt

@@ -0,0 +1,23 @@
+--TEST--
+Test failing readonly assignment with coercion
+--FILE--
+<?php
+
+class Foo {
+    public readonly string $bar;
+
+    public function __construct() {
+        $this->bar = 'bar';
+        try {
+            $this->bar = 42;
+        } catch (Error $e) {
+            echo $e->getMessage(), "\n";
+        }
+    }
+}
+
+new Foo();
+
+?>
+--EXPECTF--
+Cannot modify readonly property Foo::$bar

Zend/zend_object_handlers.c

@@ -832,7 +832,7 @@ ZEND_API zval *zend_std_write_property(zend_object *zobj, zend_string *name, zva
 					if (Z_PROP_FLAG_P(variable_ptr) & IS_PROP_REINITABLE) {
 						Z_PROP_FLAG_P(variable_ptr) &= ~IS_PROP_REINITABLE;
 					} else {
-						Z_TRY_DELREF_P(value);
+						zval_ptr_dtor(&tmp);
 						zend_readonly_property_modification_error(prop_info);
 						variable_ptr = &EG(error_zval);
 						goto exit;