Remove incorrect uses of zend_atol()

zend_atol() parses integers with size suffixes (like "128M"). Here zend_atol() is
replaced with ZEND_ATOL() when the intent was not to parse a size or quantity.

Co-authored-by: Sara Golemon <[email protected]>

Author: arnaud-lb

Zend/zend.c

@@ -146,7 +146,7 @@ static ZEND_INI_MH(OnUpdateAssertions) /* {{{ */
 {
 	zend_long *p = (zend_long *) ZEND_INI_GET_ADDR();
 
-	zend_long val = zend_atol(ZSTR_VAL(new_value), ZSTR_LEN(new_value));
+	zend_long val = ZEND_ATOL(ZSTR_VAL(new_value));
 
 	if (stage != ZEND_INI_STAGE_STARTUP &&
 	    stage != ZEND_INI_STAGE_SHUTDOWN &&

ext/opcache/zend_accelerator_module.c

@@ -165,7 +165,7 @@ static ZEND_INI_MH(OnUpdateJit)
 static ZEND_INI_MH(OnUpdateJitDebug)
 {
 	zend_long *p = (zend_long *) ZEND_INI_GET_ADDR();
-	zend_long val = zend_atol(ZSTR_VAL(new_value), ZSTR_LEN(new_value));
+	zend_long val = ZEND_ATOL(ZSTR_VAL(new_value));
 
 	if (zend_jit_debug_config(*p, val, stage) == SUCCESS) {
 		*p = val;

ext/standard/basic_functions.c

@@ -2505,7 +2505,7 @@ static void php_simple_ini_parser_cb(zval *arg1, zval *arg2, zval *arg3, int cal
 			}
 
 			if (!(Z_STRLEN_P(arg1) > 1 && Z_STRVAL_P(arg1)[0] == '0') && is_numeric_string(Z_STRVAL_P(arg1), Z_STRLEN_P(arg1), NULL, NULL, 0) == IS_LONG) {
-				zend_ulong key = (zend_ulong) zend_atol(Z_STRVAL_P(arg1), Z_STRLEN_P(arg1));
+				zend_ulong key = (zend_ulong) ZEND_STRTOUL(Z_STRVAL_P(arg1), NULL, 0);
 				if ((find_hash = zend_hash_index_find(Z_ARRVAL_P(arr), key)) == NULL) {
 					array_init(&hash);
 					find_hash = zend_hash_index_add_new(Z_ARRVAL_P(arr), key, &hash);

ext/standard/tests/general_functions/parse_ini_numeric_entry_name.phpt

@@ -0,0 +1,23 @@
+--TEST--
+parse_ini_string with numeric entry name
+--FILE--
+<?php
+
+var_dump(parse_ini_string("
+1[]=1
+2M[]=2
+"));
+
+--EXPECT--
+array(2) {
+  [1]=>
+  array(1) {
+    [0]=>
+    string(1) "1"
+  }
+  ["2M"]=>
+  array(1) {
+    [0]=>
+    string(1) "2"
+  }
+}