Update to Zephir 0.19

Author: andrewdalpino

composer.json

@@ -27,7 +27,7 @@
     },
     "require-dev": {
         "friendsofphp/php-cs-fixer": "^3.0",
-        "phalcon/zephir": "^0.18",
+        "phalcon/zephir": "^0.19",
         "phpbench/phpbench": "^1.0",
         "phpstan/extension-installer": "^1.0",
         "phpstan/phpstan": "^1.0",

ext/kernel/array.c

@@ -652,7 +652,6 @@ int zephir_array_update_zval(zval *arr, zval *index, zval *value, int flags)
 
 	if ((flags & PH_CTOR) == PH_CTOR) {
 		zval new_zv;
-		//Z_TRY_DELREF_P(value); //?
 		ZVAL_DUP(&new_zv, value);
 		value = &new_zv;
 	}

ext/kernel/fcall.c

@@ -610,15 +610,18 @@ int zephir_call_user_func_array_noex(zval *return_value, zval *handler, zval *pa
 
 	fci.size = sizeof(fci);
 	fci.object = fci_cache.object;
-	ZVAL_COPY_VALUE(&fci.function_name, handler);
+	/* We have an FCC so no need to copy the callable */
+	ZVAL_UNDEF(&fci.function_name);
 	fci.param_count = 0;
 	fci.params = NULL;
 	fci.retval = return_value;
-	fci.named_params = NULL;
+	if (params) {
+		fci.named_params = Z_ARRVAL_P(params);
+	} else {
+		fci.named_params = NULL;
+	}
 
-	zend_fcall_info_args(&fci, params);
 	status = zend_call_function(&fci, &fci_cache);
-	zend_fcall_info_args_clear(&fci, 1);
 
 	return status;
 }

ext/kernel/math.c

@@ -16,7 +16,9 @@
 #include <php.h>
 #include <ext/standard/php_string.h>
 #include <ext/standard/php_math.h>
+#if PHP_VERSION_ID < 80400
 #include <ext/standard/php_rand.h>
+#endif
 
 #include "php_ext.h"
 #include "kernel/main.h"

ext/kernel/object.c

@@ -1226,6 +1226,77 @@ int zephir_create_closure_ex(zval *return_value, zval *this_ptr, zend_class_entr
 	return SUCCESS;
 }
 
+/**
+ * Copied from php-src source tree for PHP 8.4
+ */
+#if PHP_VERSION_ID < 80400
+static zend_result object_init_with_constructor(zval *arg, zend_class_entry *class_type, uint32_t param_count, zval *params, HashTable *named_params)
+{
+	zend_result status = object_and_properties_init(arg, class_type, NULL);
+	if (UNEXPECTED(status == FAILURE)) {
+		ZVAL_UNDEF(arg);
+		return FAILURE;
+	}
+	zend_object *obj = Z_OBJ_P(arg);
+	zend_function *constructor = obj->handlers->get_constructor(obj);
+	if (constructor == NULL) {
+		/* The constructor can be NULL for 2 different reasons:
+		 * - It is not defined
+		 * - We are not allowed to call the constructor (e.g. private, or internal opaque class)
+		 *   and an exception has been thrown
+		 * in the former case, we are (mostly) done and the object is initialized,
+		 * in the latter we need to destroy the object as initialization failed
+		 */
+		if (UNEXPECTED(EG(exception))) {
+			zval_ptr_dtor(arg);
+			ZVAL_UNDEF(arg);
+			return FAILURE;
+		}
+
+		/* Surprisingly, this is the only case where internal classes will allow to pass extra arguments
+		 * However, if there are named arguments (and it is not empty),
+		 * an Error must be thrown to be consistent with new ClassName() */
+		if (UNEXPECTED(named_params != NULL && zend_hash_num_elements(named_params) != 0)) {
+			/* Throw standard Error */
+			zend_string *arg_name = NULL;
+			zend_hash_get_current_key(named_params, &arg_name, /* num_index */ NULL);
+			ZEND_ASSERT(arg_name != NULL);
+			zend_throw_error(NULL, "Unknown named parameter $%s", ZSTR_VAL(arg_name));
+			/* Do not call destructor, free object, and set arg to IS_UNDEF */
+			zend_object_store_ctor_failed(obj);
+			zval_ptr_dtor(arg);
+			ZVAL_UNDEF(arg);
+			return FAILURE;
+		} else {
+			return SUCCESS;
+		}
+	}
+	/* A constructor should not return a value, however if an exception is thrown
+	 * zend_call_known_function() will set the retval to IS_UNDEF */
+	zval retval;
+	zend_call_known_function(
+		constructor,
+		obj,
+		class_type,
+		&retval,
+		param_count,
+		params,
+		named_params
+	);
+	if (Z_TYPE(retval) == IS_UNDEF) {
+		/* Do not call destructor, free object, and set arg to IS_UNDEF */
+		zend_object_store_ctor_failed(obj);
+		zval_ptr_dtor(arg);
+		ZVAL_UNDEF(arg);
+		return FAILURE;
+	} else {
+		/* Unlikely, but user constructors may return any value they want */
+		zval_ptr_dtor(&retval);
+		return SUCCESS;
+	}
+}
+#endif
+
 /**
  * Creates a new instance dynamically. Call constructor without parameters
  */
@@ -1244,38 +1315,7 @@ int zephir_create_instance(zval *return_value, const zval *class_name)
 		return FAILURE;
 	}
 
-	if(UNEXPECTED(object_init_ex(return_value, ce) != SUCCESS)) {
-    	return FAILURE;
-    }
-
-	if (EXPECTED(Z_OBJ_HT_P(return_value)->get_constructor)) {
-		zend_object* obj    = Z_OBJ_P(return_value);
-		zend_function* ctor = Z_OBJ_HT_P(return_value)->get_constructor(obj);
-		if (ctor) {
-			zend_fcall_info fci;
-			zend_fcall_info_cache fcc;
-
-			zend_class_entry* ce = Z_OBJCE_P(return_value);
-
-			fci.size             = sizeof(fci);
-			fci.object           = obj;
-			fci.retval           = 0;
-			fci.param_count      = 0;
-			fci.params           = 0;
-			fci.named_params 	 = NULL;
-
-			ZVAL_NULL(&fci.function_name);
-
-			fcc.object           = obj;
-			fcc.called_scope     = ce;
-			fcc.calling_scope    = ce;
-			fcc.function_handler = ctor;
-
-			return zend_fcall_info_call(&fci, &fcc, NULL, NULL);
-		}
-	}
-
-	return SUCCESS;
+	return object_init_with_constructor(return_value, ce, 0, NULL, NULL);
 }
 
 /**
@@ -1301,40 +1341,5 @@ int zephir_create_instance_params(zval *return_value, const zval *class_name, zv
 		return FAILURE;
 	}
 
-	if(UNEXPECTED(object_init_ex(return_value, ce) != SUCCESS)) {
-    	return FAILURE;
-    }
-
-	if (EXPECTED(Z_OBJ_HT_P(return_value)->get_constructor)) {
-		zend_object* obj    = Z_OBJ_P(return_value);
-		zend_function* ctor = Z_OBJ_HT_P(return_value)->get_constructor(obj);
-		if (ctor) {
-			int status;
-			zend_fcall_info fci;
-			zend_fcall_info_cache fcc;
-
-			zend_class_entry* ce = Z_OBJCE_P(return_value);
-
-			fci.size             = sizeof(fci);
-			fci.object           = obj;
-			fci.retval           = 0;
-			fci.param_count      = 0;
-			fci.params           = 0;
-			fci.named_params 	 = NULL;
-
-			ZVAL_NULL(&fci.function_name);
-
-			fcc.object           = obj;
-			fcc.called_scope     = ce;
-			fcc.calling_scope    = ce;
-			fcc.function_handler = ctor;
-
-			zend_fcall_info_args_ex(&fci, fcc.function_handler, params);
-			status = zend_fcall_info_call(&fci, &fcc, NULL, NULL);
-			zend_fcall_info_args_clear(&fci, 1);
-			return status;
-		}
-	}
-
-	return SUCCESS;
+	return object_init_with_constructor(return_value, ce, 0, NULL, Z_ARRVAL_P(params));
 }

ext/kernel/string.c

@@ -21,8 +21,10 @@
 
 #include <ext/standard/php_smart_string.h>
 #include <ext/standard/php_string.h>
+#if PHP_VERSION_ID < 80400
 #include <ext/standard/php_rand.h>
 #include <ext/standard/php_lcg.h>
+#endif
 #include <ext/standard/php_http.h>
 #include <ext/standard/base64.h>
 #include <ext/standard/md5.h>
@@ -107,7 +109,11 @@ void zephir_fast_strtolower(zval *return_value, zval *str)
 
 	length = Z_STRLEN_P(str);
 	lower_str = estrndup(Z_STRVAL_P(str), length);
+#if PHP_VERSION_ID < 80400
 	php_strtolower(lower_str, length);
+#else
+	zend_str_tolower(lower_str, length);
+#endif
 
 	if (use_copy) {
 		zval_dtor(str);
@@ -136,7 +142,11 @@ void zephir_fast_strtoupper(zval *return_value, zval *str)
 
 	length = Z_STRLEN_P(str);
 	lower_str = estrndup(Z_STRVAL_P(str), length);
+#if PHP_VERSION_ID < 80400
 	php_strtoupper(lower_str, length);
+#else
+	zend_str_toupper(lower_str, length);
+#endif
 
 	if (use_copy) {
 		zval_dtor(str);
@@ -1052,7 +1062,6 @@ void zephir_preg_match(zval *return_value, zval *regex, zval *subject, zval *mat
 
 	/* Compile regex or get it from cache */
 	if ((pce = pcre_get_compiled_regex_cache(Z_STR_P(regex))) == NULL) {
-
 		if (use_copy) {
 			zval_dtor(subject);
 		}
@@ -1063,9 +1072,17 @@ void zephir_preg_match(zval *return_value, zval *regex, zval *subject, zval *mat
 	ZVAL_UNDEF(&tmp_matches);
 
 	if (flags != 0 || offset != 0) {
+#if PHP_VERSION_ID < 80400
 		php_pcre_match_impl(pce, Z_STR_P(subject), return_value, &tmp_matches, global, 1, flags, offset);
+#else
+		php_pcre_match_impl(pce, Z_STR_P(subject), return_value, &tmp_matches, global, flags, offset);
+#endif
 	} else {
+#if PHP_VERSION_ID < 80400
 		php_pcre_match_impl(pce, Z_STR_P(subject), return_value, &tmp_matches, global, 0, 0, 0);
+#else
+		php_pcre_match_impl(pce, Z_STR_P(subject), return_value, &tmp_matches, global, 0, 0);
+#endif
 	}
 
 	if (matches) {
@@ -1223,8 +1240,8 @@ void zephir_crc32(zval *return_value, zval *str)
 	int use_copy = 0;
 	size_t nr;
 	char *p;
-	php_uint32 crc;
-	php_uint32 crcinit = 0;
+	uint32_t crc;
+	uint32_t crcinit = 0;
 
 	if (Z_TYPE_P(str) != IS_STRING) {
 		use_copy = zend_make_printable_zval(str, &copy);

ext/php_tensor.h

@@ -14,7 +14,7 @@
 #define PHP_TENSOR_VERSION     "3.0.5"
 #define PHP_TENSOR_EXTNAME     "tensor"
 #define PHP_TENSOR_AUTHOR      "The Rubix ML Community"
-#define PHP_TENSOR_ZEPVERSION  "0.18.0-$Id$"
+#define PHP_TENSOR_ZEPVERSION  "0.19.0-$Id$"
 #define PHP_TENSOR_DESCRIPTION "A library and extension that provides objects for scientific computing in PHP."