ext/opcache: Mark request-time persistent strings as thread-local

ext/dl_test/dl_test.stub.php

@@ -20,6 +20,7 @@ public function test(string $str = ""): string {}
 
 class DlTestSuperClass {
     public int $a;
+    public int $temporary = 0;
     public function test(string $str = ""): string {}
 }
 

ext/dl_test/tests/opcache_temporary_strings.inc

@@ -0,0 +1,16 @@
+<?php
+try {
+    dl_test_test2([]);
+} catch (TypeError $e) {
+    echo $e::class, ": ", $e->getMessage(), PHP_EOL;
+}
+
+try {
+    (new DlTest)->test([]);
+} catch (TypeError $e) {
+    echo $e::class, ": ", $e->getMessage(), PHP_EOL;
+}
+
+var_dump((new ReflectionFunction('dl_test_test2'))->getName());
+
+var_dump(get_object_vars(new DlTestSubClass));

ext/dl_test/tests/opcache_temporary_strings.phpt

@@ -0,0 +1,22 @@
+--TEST--
+dl() under opcache: refcounting names declared by a temporary module
+--SKIPIF--
+<?php include __DIR__ . "/skip.inc"; ?>
+--EXTENSIONS--
+opcache
+--INI--
+enable_dl=1
+opcache.enable_cli=1
+--FILE--
+<?php
+dl(PHP_OS_FAMILY === 'Windows' ? 'php_dl_test.dll' : 'dl_test.so');
+include __DIR__ . '/opcache_temporary_strings.inc';
+?>
+--EXPECT--
+TypeError: dl_test_test2(): Argument #1 ($str) must be of type string, array given
+TypeError: DlTest::test(): Argument #1 ($str) must be of type string, array given
+string(13) "dl_test_test2"
+array(1) {
+  ["temporary"]=>
+  int(0)
+}

ext/opcache/ZendAccelerator.c

@@ -578,6 +578,9 @@ static zend_string* ZEND_FASTCALL accel_new_interned_string_for_php(zend_string
 			return ret;
 		}
 	}
+	if (!ZSTR_IS_INTERNED(str) && (GC_FLAGS(str) & GC_PERSISTENT)) {
+		GC_MAKE_PERSISTENT_LOCAL(str);
+	}
 	return str;
 }
 
@@ -602,19 +605,27 @@ static zend_always_inline zend_string *accel_find_interned_string_ex(zend_ulong
 
 static zend_string* ZEND_FASTCALL accel_init_interned_string_for_php(const char *str, size_t size, bool permanent)
 {
+	zend_string *ret;
+
 	if (ZCG(counted)) {
 	    zend_ulong h = zend_inline_hash_func(str, size);
-		zend_string *ret = accel_find_interned_string_ex(h, str, size);
+		ret = accel_find_interned_string_ex(h, str, size);
 
-		if (!ret) {
-			ret = zend_string_init(str, size, permanent);
-			ZSTR_H(ret) = h;
+		if (ret) {
+			return ret;
 		}
 
-		return ret;
+		ret = zend_string_init(str, size, permanent);
+		ZSTR_H(ret) = h;
+	} else {
+		ret = zend_string_init(str, size, permanent);
+	}
+
+	if (permanent) {
+		GC_MAKE_PERSISTENT_LOCAL(ret);
 	}
 
-	return zend_string_init(str, size, permanent);
+	return ret;
 }
 
 static inline void accel_copy_permanent_list_types(