PageRenderTime 64ms CodeModel.GetById 7ms RepoModel.GetById 0ms app.codeStats 1ms

/Zend/zend_operators.c

http://github.com/php/php-src
C | 3207 lines | 2676 code | 323 blank | 208 comment | 913 complexity | c0b7210ca1502af1190835fa9eb67760 MD5 | raw file
Possible License(s): BSD-2-Clause, BSD-3-Clause, MPL-2.0-no-copyleft-exception, LGPL-2.1

Large files files are truncated, but you can click here to view the full file

    

  1. /*
    2. 

  2.    +----------------------------------------------------------------------+
    3. 

  3.    | Zend Engine                                                          |
    4. 

  4.    +----------------------------------------------------------------------+
    5. 

  5.    | Copyright (c) Zend Technologies Ltd. (http://www.zend.com)           |
    6. 

  6.    +----------------------------------------------------------------------+
    7. 

  7.    | This source file is subject to version 2.00 of the Zend license,     |
    8. 

  8.    | that is bundled with this package in the file LICENSE, and is        |
    9. 

  9.    | available through the world-wide-web at the following url:           |
    10. 

  10.    | http://www.zend.com/license/2_00.txt.                                |
    11. 

  11.    | If you did not receive a copy of the Zend license and are unable to  |
    12. 

  12.    | obtain it through the world-wide-web, please send a note to          |
    13. 

  13.    | license@zend.com so we can mail you a copy immediately.              |
    14. 

  14.    +----------------------------------------------------------------------+
    15. 

  15.    | Authors: Andi Gutmans <andi@php.net>                                 |
    16. 

  16.    |          Zeev Suraski <zeev@php.net>                                 |
    17. 

  17.    |          Dmitry Stogov <dmitry@php.net>                              |
    18. 

  18.    +----------------------------------------------------------------------+
    19. 

  19. */
    20. 

  20. 

  21. #include <ctype.h>
    22. 

  22. 

  23. #include "zend.h"
    24. 

  24. #include "zend_operators.h"
    25. 

  25. #include "zend_variables.h"
    26. 

  26. #include "zend_globals.h"
    27. 

  27. #include "zend_list.h"
    28. 

  28. #include "zend_API.h"
    29. 

  29. #include "zend_strtod.h"
    30. 

  30. #include "zend_exceptions.h"
    31. 

  31. #include "zend_closures.h"
    32. 

  32. 

  33. #ifdef __SSE2__
    34. 

  34. #include <emmintrin.h>
    35. 

  35. #endif
    36. 

  36. 

  37. #if ZEND_USE_TOLOWER_L
    38. 

  38. #include <locale.h>
    39. 

  39. static _locale_t current_locale = NULL;
    40. 

  40. /* this is true global! may lead to strange effects on ZTS, but so may setlocale() */
    41. 

  41. #define zend_tolower(c) _tolower_l(c, current_locale)
    42. 

  42. #else
    43. 

  43. #define zend_tolower(c) tolower(c)
    44. 

  44. #endif
    45. 

  45. 

  46. #define TYPE_PAIR(t1,t2) (((t1) << 4) | (t2))
    47. 

  47. 

  48. static const unsigned char tolower_map[256] = {
    49. 

  49. 0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0a,0x0b,0x0c,0x0d,0x0e,0x0f,
    50. 

  50. 0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,
    51. 

  51. 0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f,
    52. 

  52. 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f,
    53. 

  53. 0x40,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,
    54. 

  54. 0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7a,0x5b,0x5c,0x5d,0x5e,0x5f,
    55. 

  55. 0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,
    56. 

  56. 0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7a,0x7b,0x7c,0x7d,0x7e,0x7f,
    57. 

  57. 0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f,
    58. 

  58. 0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9a,0x9b,0x9c,0x9d,0x9e,0x9f,
    59. 

  59. 0xa0,0xa1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7,0xa8,0xa9,0xaa,0xab,0xac,0xad,0xae,0xaf,
    60. 

  60. 0xb0,0xb1,0xb2,0xb3,0xb4,0xb5,0xb6,0xb7,0xb8,0xb9,0xba,0xbb,0xbc,0xbd,0xbe,0xbf,
    61. 

  61. 0xc0,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,0xc8,0xc9,0xca,0xcb,0xcc,0xcd,0xce,0xcf,
    62. 

  62. 0xd0,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,0xd7,0xd8,0xd9,0xda,0xdb,0xdc,0xdd,0xde,0xdf,
    63. 

  63. 0xe0,0xe1,0xe2,0xe3,0xe4,0xe5,0xe6,0xe7,0xe8,0xe9,0xea,0xeb,0xec,0xed,0xee,0xef,
    64. 

  64. 0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfe,0xff
    65. 

  65. };
    66. 

  66. 

  67. #define zend_tolower_ascii(c) (tolower_map[(unsigned char)(c)])
    68. 

  68. 

  69. /**
    70. 

  70.  * Functions using locale lowercase:
    71. 

  71.  	 	zend_binary_strncasecmp_l
    72. 

  72.  	 	zend_binary_strcasecmp_l
    73. 

  73. 		zend_binary_zval_strcasecmp
    74. 

  74. 		zend_binary_zval_strncasecmp
    75. 

  75. 		string_compare_function_ex
    76. 

  76. 		string_case_compare_function
    77. 

  77.  * Functions using ascii lowercase:
    78. 

  78.   		zend_str_tolower_copy
    79. 

  79. 		zend_str_tolower_dup
    80. 

  80. 		zend_str_tolower
    81. 

  81. 		zend_binary_strcasecmp
    82. 

  82. 		zend_binary_strncasecmp
    83. 

  83.  */
    84. 

  84. 

  85. ZEND_API int ZEND_FASTCALL zend_atoi(const char *str, size_t str_len) /* {{{ */
    86. 

  86. {
    87. 

  87. 	int retval;
    88. 

  88. 

  89. 	if (!str_len) {
    90. 

  90. 		str_len = strlen(str);
    91. 

  91. 	}
    92. 

  92. 	retval = ZEND_STRTOL(str, NULL, 0);
    93. 

  93. 	if (str_len>0) {
    94. 

  94. 		switch (str[str_len-1]) {
    95. 

  95. 			case 'g':
    96. 

  96. 			case 'G':
    97. 

  97. 				retval *= 1024;
    98. 

  98. 				/* break intentionally missing */
    99. 

  99. 			case 'm':
    100. 

  100. 			case 'M':
    101. 

  101. 				retval *= 1024;
    102. 

  102. 				/* break intentionally missing */
    103. 

  103. 			case 'k':
    104. 

  104. 			case 'K':
    105. 

  105. 				retval *= 1024;
    106. 

  106. 				break;
    107. 

  107. 		}
    108. 

  108. 	}
    109. 

  109. 	return retval;
    110. 

  110. }
    111. 

  111. /* }}} */
    112. 

  112. 

  113. ZEND_API zend_long ZEND_FASTCALL zend_atol(const char *str, size_t str_len) /* {{{ */
    114. 

  114. {
    115. 

  115. 	zend_long retval;
    116. 

  116. 

  117. 	if (!str_len) {
    118. 

  118. 		str_len = strlen(str);
    119. 

  119. 	}
    120. 

  120. 	retval = ZEND_STRTOL(str, NULL, 0);
    121. 

  121. 	if (str_len>0) {
    122. 

  122. 		switch (str[str_len-1]) {
    123. 

  123. 			case 'g':
    124. 

  124. 			case 'G':
    125. 

  125. 				retval *= 1024;
    126. 

  126. 				/* break intentionally missing */
    127. 

  127. 			case 'm':
    128. 

  128. 			case 'M':
    129. 

  129. 				retval *= 1024;
    130. 

  130. 				/* break intentionally missing */
    131. 

  131. 			case 'k':
    132. 

  132. 			case 'K':
    133. 

  133. 				retval *= 1024;
    134. 

  134. 				break;
    135. 

  135. 		}
    136. 

  136. 	}
    137. 

  137. 	return retval;
    138. 

  138. }
    139. 

  139. /* }}} */
    140. 

  140. 

  141. /* {{{ convert_object_to_type: dst will be either ctype or UNDEF */
    142. 

  142. #define convert_object_to_type(op, dst, ctype)									\
    143. 

  143. 	ZVAL_UNDEF(dst);																		\
    144. 

  144. 	if (Z_OBJ_HT_P(op)->cast_object(Z_OBJ_P(op), dst, ctype) == FAILURE) {					\
    145. 

  145. 		zend_error(E_NOTICE,																\
    146. 

  146. 			"Object of class %s could not be converted to %s", ZSTR_VAL(Z_OBJCE_P(op)->name),\
    147. 

  147. 		zend_get_type_by_const(ctype));														\
    148. 

  148. 	} 																						\
    149. 

  149. 

  150. /* }}} */
    151. 

  151. 

  152. ZEND_API void ZEND_FASTCALL convert_scalar_to_number(zval *op) /* {{{ */
    153. 

  153. {
    154. 

  154. try_again:
    155. 

  155. 	switch (Z_TYPE_P(op)) {
    156. 

  156. 		case IS_REFERENCE:
    157. 

  157. 			zend_unwrap_reference(op);
    158. 

  158. 			goto try_again;
    159. 

  159. 		case IS_STRING:
    160. 

  160. 			{
    161. 

  161. 				zend_string *str;
    162. 

  162. 

  163. 				str = Z_STR_P(op);
    164. 

  164. 				if ((Z_TYPE_INFO_P(op)=is_numeric_string(ZSTR_VAL(str), ZSTR_LEN(str), &Z_LVAL_P(op), &Z_DVAL_P(op), 1)) == 0) {
    165. 

  165. 					ZVAL_LONG(op, 0);
    166. 

  166. 				}
    167. 

  167. 				zend_string_release_ex(str, 0);
    168. 

  168. 				break;
    169. 

  169. 			}
    170. 

  170. 		case IS_NULL:
    171. 

  171. 		case IS_FALSE:
    172. 

  172. 			ZVAL_LONG(op, 0);
    173. 

  173. 			break;
    174. 

  174. 		case IS_TRUE:
    175. 

  175. 			ZVAL_LONG(op, 1);
    176. 

  176. 			break;
    177. 

  177. 		case IS_RESOURCE:
    178. 

  178. 			{
    179. 

  179. 				zend_long l = Z_RES_HANDLE_P(op);
    180. 

  180. 				zval_ptr_dtor(op);
    181. 

  181. 				ZVAL_LONG(op, l);
    182. 

  182. 			}
    183. 

  183. 			break;
    184. 

  184. 		case IS_OBJECT:
    185. 

  185. 			{
    186. 

  186. 				zval dst;
    187. 

  187. 

  188. 				convert_object_to_type(op, &dst, _IS_NUMBER);
    189. 

  189. 				zval_ptr_dtor(op);
    190. 

  190. 

  191. 				if (Z_TYPE(dst) == IS_LONG || Z_TYPE(dst) == IS_DOUBLE) {
    192. 

  192. 					ZVAL_COPY_VALUE(op, &dst);
    193. 

  193. 				} else {
    194. 

  194. 					ZVAL_LONG(op, 1);
    195. 

  195. 				}
    196. 

  196. 			}
    197. 

  197. 			break;
    198. 

  198. 	}
    199. 

  199. }
    200. 

  200. /* }}} */
    201. 

  201. 

  202. static zend_never_inline zval* ZEND_FASTCALL _zendi_convert_scalar_to_number_silent(zval *op, zval *holder) /* {{{ */
    203. 

  203. {
    204. 

  204. 	switch (Z_TYPE_P(op)) {
    205. 

  205. 		case IS_NULL:
    206. 

  206. 		case IS_FALSE:
    207. 

  207. 			ZVAL_LONG(holder, 0);
    208. 

  208. 			return holder;
    209. 

  209. 		case IS_TRUE:
    210. 

  210. 			ZVAL_LONG(holder, 1);
    211. 

  211. 			return holder;
    212. 

  212. 		case IS_STRING:
    213. 

  213. 			if ((Z_TYPE_INFO_P(holder) = is_numeric_string(Z_STRVAL_P(op), Z_STRLEN_P(op), &Z_LVAL_P(holder), &Z_DVAL_P(holder), 1)) == 0) {
    214. 

  214. 				ZVAL_LONG(holder, 0);
    215. 

  215. 			}
    216. 

  216. 			return holder;
    217. 

  217. 		case IS_RESOURCE:
    218. 

  218. 			ZVAL_LONG(holder, Z_RES_HANDLE_P(op));
    219. 

  219. 			return holder;
    220. 

  220. 		case IS_OBJECT:
    221. 

  221. 			convert_object_to_type(op, holder, _IS_NUMBER);
    222. 

  222. 			if (UNEXPECTED(EG(exception)) ||
    223. 

  223. 			    UNEXPECTED(Z_TYPE_P(holder) != IS_LONG && Z_TYPE_P(holder) != IS_DOUBLE)) {
    224. 

  224. 				ZVAL_LONG(holder, 1);
    225. 

  225. 			}
    226. 

  226. 			return holder;
    227. 

  227. 		case IS_LONG:
    228. 

  228. 		case IS_DOUBLE:
    229. 

  229. 		default:
    230. 

  230. 			return op;
    231. 

  231. 	}
    232. 

  232. }
    233. 

  233. /* }}} */
    234. 

  234. 

  235. static zend_never_inline int ZEND_FASTCALL _zendi_try_convert_scalar_to_number(zval *op, zval *holder) /* {{{ */
    236. 

  236. {
    237. 

  237. 	switch (Z_TYPE_P(op)) {
    238. 

  238. 		case IS_NULL:
    239. 

  239. 		case IS_FALSE:
    240. 

  240. 			ZVAL_LONG(holder, 0);
    241. 

  241. 			return SUCCESS;
    242. 

  242. 		case IS_TRUE:
    243. 

  243. 			ZVAL_LONG(holder, 1);
    244. 

  244. 			return SUCCESS;
    245. 

  245. 		case IS_STRING:
    246. 

  246. 			if ((Z_TYPE_INFO_P(holder) = is_numeric_string(Z_STRVAL_P(op), Z_STRLEN_P(op), &Z_LVAL_P(holder), &Z_DVAL_P(holder), -1)) == 0) {
    247. 

  247. 				ZVAL_LONG(holder, 0);
    248. 

  248. 				zend_error(E_WARNING, "A non-numeric value encountered");
    249. 

  249. 				if (UNEXPECTED(EG(exception))) {
    250. 

  250. 					return FAILURE;
    251. 

  251. 				}
    252. 

  252. 			}
    253. 

  253. 			return SUCCESS;
    254. 

  254. 		case IS_OBJECT:
    255. 

  255. 			if (Z_OBJ_HT_P(op)->cast_object(Z_OBJ_P(op), holder, _IS_NUMBER) == FAILURE
    256. 

  256. 					|| EG(exception)) {
    257. 

  257. 				return FAILURE;
    258. 

  258. 			}
    259. 

  259. 			ZEND_ASSERT(Z_TYPE_P(holder) == IS_LONG || Z_TYPE_P(holder) == IS_DOUBLE);
    260. 

  260. 			return SUCCESS;
    261. 

  261. 		case IS_RESOURCE:
    262. 

  262. 		case IS_ARRAY:
    263. 

  263. 			return FAILURE;
    264. 

  264. 		EMPTY_SWITCH_DEFAULT_CASE()
    265. 

  265. 	}
    266. 

  266. }
    267. 

  267. /* }}} */
    268. 

  268. 

  269. static zend_always_inline int zendi_try_convert_scalar_to_number(zval *op, zval *holder) /* {{{ */
    270. 

  270. {
    271. 

  271. 	if (Z_TYPE_P(op) == IS_LONG || Z_TYPE_P(op) == IS_DOUBLE) {
    272. 

  272. 		ZVAL_COPY_VALUE(holder, op);
    273. 

  273. 		return SUCCESS;
    274. 

  274. 	} else {
    275. 

  275. 		return _zendi_try_convert_scalar_to_number(op, holder);
    276. 

  276. 	}
    277. 

  277. }
    278. 

  278. /* }}} */
    279. 

  279. 

  280. static zend_never_inline zend_long ZEND_FASTCALL zendi_try_get_long(zval *op, zend_bool *failed) /* {{{ */
    281. 

  281. {
    282. 

  282. 	*failed = 0;
    283. 

  283. 	switch (Z_TYPE_P(op)) {
    284. 

  284. 		case IS_NULL:
    285. 

  285. 		case IS_FALSE:
    286. 

  286. 			return 0;
    287. 

  287. 		case IS_TRUE:
    288. 

  288. 			return 1;
    289. 

  289. 		case IS_DOUBLE:
    290. 

  290. 			return zend_dval_to_lval(Z_DVAL_P(op));
    291. 

  291. 		case IS_STRING:
    292. 

  292. 			{
    293. 

  293. 				zend_uchar type;
    294. 

  294. 				zend_long lval;
    295. 

  295. 				double dval;
    296. 

  296. 				if (0 == (type = is_numeric_string(Z_STRVAL_P(op), Z_STRLEN_P(op), &lval, &dval, -1))) {
    297. 

  297. 					zend_error(E_WARNING, "A non-numeric value encountered");
    298. 

  298. 					if (UNEXPECTED(EG(exception))) {
    299. 

  299. 						*failed = 1;
    300. 

  300. 					}
    301. 

  301. 					return 0;
    302. 

  302. 				} else if (EXPECTED(type == IS_LONG)) {
    303. 

  303. 					return lval;
    304. 

  304. 				} else {
    305. 

  305. 					/* Previously we used strtol here, not is_numeric_string,
    306. 

  306. 					 * and strtol gives you LONG_MAX/_MIN on overflow.
    307. 

  307. 					 * We use use saturating conversion to emulate strtol()'s
    308. 

  308. 					 * behaviour.
    309. 

  309. 					 */
    310. 

  310. 					 return zend_dval_to_lval_cap(dval);
    311. 

  311. 				}
    312. 

  312. 			}
    313. 

  313. 		case IS_OBJECT:
    314. 

  314. 			{
    315. 

  315. 				zval dst;
    316. 

  316. 				if (Z_OBJ_HT_P(op)->cast_object(Z_OBJ_P(op), &dst, IS_LONG) == FAILURE
    317. 

  317. 						|| EG(exception)) {
    318. 

  318. 					*failed = 1;
    319. 

  319. 					return 0;
    320. 

  320. 				}
    321. 

  321. 				ZEND_ASSERT(Z_TYPE(dst) == IS_LONG);
    322. 

  322. 				return Z_LVAL(dst);
    323. 

  323. 			}
    324. 

  324. 		case IS_RESOURCE:
    325. 

  325. 		case IS_ARRAY:
    326. 

  326. 			*failed = 1;
    327. 

  327. 			return 0;
    328. 

  328. 		EMPTY_SWITCH_DEFAULT_CASE()
    329. 

  329. 	}
    330. 

  330. }
    331. 

  331. /* }}} */
    332. 

  332. 

  333. #define ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(opcode) \
    334. 

  334. 	if (UNEXPECTED(Z_TYPE_P(op1) == IS_OBJECT) \
    335. 

  335. 		&& UNEXPECTED(Z_OBJ_HANDLER_P(op1, do_operation))) { \
    336. 

  336. 		if (EXPECTED(SUCCESS == Z_OBJ_HANDLER_P(op1, do_operation)(opcode, result, op1, op2))) { \
    337. 

  337. 			return SUCCESS; \
    338. 

  338. 		} \
    339. 

  339. 	}
    340. 

  340. 

  341. #define ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(opcode) \
    342. 

  342. 	if (UNEXPECTED(Z_TYPE_P(op2) == IS_OBJECT) \
    343. 

  343. 		&& UNEXPECTED(Z_OBJ_HANDLER_P(op2, do_operation)) \
    344. 

  344. 		&& EXPECTED(SUCCESS == Z_OBJ_HANDLER_P(op2, do_operation)(opcode, result, op1, op2))) { \
    345. 

  345. 		return SUCCESS; \
    346. 

  346. 	}
    347. 

  347. 

  348. #define ZEND_TRY_BINARY_OBJECT_OPERATION(opcode) \
    349. 

  349. 	ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(opcode) \
    350. 

  350. 	else \
    351. 

  351. 	ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(opcode)
    352. 

  352. 

  353. #define ZEND_TRY_UNARY_OBJECT_OPERATION(opcode) \
    354. 

  354. 	if (UNEXPECTED(Z_TYPE_P(op1) == IS_OBJECT) \
    355. 

  355. 		&& UNEXPECTED(Z_OBJ_HANDLER_P(op1, do_operation)) \
    356. 

  356. 		&& EXPECTED(SUCCESS == Z_OBJ_HANDLER_P(op1, do_operation)(opcode, result, op1, NULL))) { \
    357. 

  357. 		return SUCCESS; \
    358. 

  358. 	}
    359. 

  359. 

  360. #define convert_op1_op2_long(op1, op1_lval, op2, op2_lval, result, opcode, sigil) \
    361. 

  361. 	do {																\
    362. 

  362. 		if (UNEXPECTED(Z_TYPE_P(op1) != IS_LONG)) {						\
    363. 

  363. 			zend_bool failed;											\
    364. 

  364. 			if (Z_ISREF_P(op1)) {										\
    365. 

  365. 				op1 = Z_REFVAL_P(op1);									\
    366. 

  366. 				if (Z_TYPE_P(op1) == IS_LONG) {							\
    367. 

  367. 					op1_lval = Z_LVAL_P(op1);							\
    368. 

  368. 					break;												\
    369. 

  369. 				}														\
    370. 

  370. 			}															\
    371. 

  371. 			ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(opcode);				\
    372. 

  372. 			op1_lval = zendi_try_get_long(op1, &failed);				\
    373. 

  373. 			if (UNEXPECTED(failed)) {									\
    374. 

  374. 				zend_binop_error(sigil, op1, op2);						\
    375. 

  375. 				if (result != op1) {									\
    376. 

  376. 					ZVAL_UNDEF(result);									\
    377. 

  377. 				}														\
    378. 

  378. 				return FAILURE;											\
    379. 

  379. 			}															\
    380. 

  380. 		} else {														\
    381. 

  381. 			op1_lval = Z_LVAL_P(op1);									\
    382. 

  382. 		}																\
    383. 

  383. 	} while (0);														\
    384. 

  384. 	do {																\
    385. 

  385. 		if (UNEXPECTED(Z_TYPE_P(op2) != IS_LONG)) {						\
    386. 

  386. 			zend_bool failed;											\
    387. 

  387. 			if (Z_ISREF_P(op2)) {										\
    388. 

  388. 				op2 = Z_REFVAL_P(op2);									\
    389. 

  389. 				if (Z_TYPE_P(op2) == IS_LONG) {							\
    390. 

  390. 					op2_lval = Z_LVAL_P(op2);							\
    391. 

  391. 					break;												\
    392. 

  392. 				}														\
    393. 

  393. 			}															\
    394. 

  394. 			ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(opcode);				\
    395. 

  395. 			op2_lval = zendi_try_get_long(op2, &failed);				\
    396. 

  396. 			if (UNEXPECTED(failed)) {									\
    397. 

  397. 				zend_binop_error(sigil, op1, op2);						\
    398. 

  398. 				if (result != op1) {									\
    399. 

  399. 					ZVAL_UNDEF(result);									\
    400. 

  400. 				}														\
    401. 

  401. 				return FAILURE;											\
    402. 

  402. 			}															\
    403. 

  403. 		} else {														\
    404. 

  404. 			op2_lval = Z_LVAL_P(op2);									\
    405. 

  405. 		}																\
    406. 

  406. 	} while (0);
    407. 

  407. 

  408. ZEND_API void ZEND_FASTCALL convert_to_long(zval *op) /* {{{ */
    409. 

  409. {
    410. 

  410. 	if (Z_TYPE_P(op) != IS_LONG) {
    411. 

  411. 		convert_to_long_base(op, 10);
    412. 

  412. 	}
    413. 

  413. }
    414. 

  414. /* }}} */
    415. 

  415. 

  416. ZEND_API void ZEND_FASTCALL convert_to_long_base(zval *op, int base) /* {{{ */
    417. 

  417. {
    418. 

  418. 	zend_long tmp;
    419. 

  419. 

  420. try_again:
    421. 

  421. 	switch (Z_TYPE_P(op)) {
    422. 

  422. 		case IS_NULL:
    423. 

  423. 		case IS_FALSE:
    424. 

  424. 			ZVAL_LONG(op, 0);
    425. 

  425. 			break;
    426. 

  426. 		case IS_TRUE:
    427. 

  427. 			ZVAL_LONG(op, 1);
    428. 

  428. 			break;
    429. 

  429. 		case IS_RESOURCE:
    430. 

  430. 			tmp = Z_RES_HANDLE_P(op);
    431. 

  431. 			zval_ptr_dtor(op);
    432. 

  432. 			ZVAL_LONG(op, tmp);
    433. 

  433. 			break;
    434. 

  434. 		case IS_LONG:
    435. 

  435. 			break;
    436. 

  436. 		case IS_DOUBLE:
    437. 

  437. 			ZVAL_LONG(op, zend_dval_to_lval(Z_DVAL_P(op)));
    438. 

  438. 			break;
    439. 

  439. 		case IS_STRING:
    440. 

  440. 			{
    441. 

  441. 				zend_string *str = Z_STR_P(op);
    442. 

  442. 				if (base == 10) {
    443. 

  443. 					ZVAL_LONG(op, zval_get_long(op));
    444. 

  444. 				} else {
    445. 

  445. 					ZVAL_LONG(op, ZEND_STRTOL(ZSTR_VAL(str), NULL, base));
    446. 

  446. 				}
    447. 

  447. 				zend_string_release_ex(str, 0);
    448. 

  448. 			}
    449. 

  449. 			break;
    450. 

  450. 		case IS_ARRAY:
    451. 

  451. 			tmp = (zend_hash_num_elements(Z_ARRVAL_P(op))?1:0);
    452. 

  452. 			zval_ptr_dtor(op);
    453. 

  453. 			ZVAL_LONG(op, tmp);
    454. 

  454. 			break;
    455. 

  455. 		case IS_OBJECT:
    456. 

  456. 			{
    457. 

  457. 				zval dst;
    458. 

  458. 

  459. 				convert_object_to_type(op, &dst, IS_LONG);
    460. 

  460. 				zval_ptr_dtor(op);
    461. 

  461. 

  462. 				if (Z_TYPE(dst) == IS_LONG) {
    463. 

  463. 					ZVAL_LONG(op, Z_LVAL(dst));
    464. 

  464. 				} else {
    465. 

  465. 					ZVAL_LONG(op, 1);
    466. 

  466. 				}
    467. 

  467. 				return;
    468. 

  468. 			}
    469. 

  469. 		case IS_REFERENCE:
    470. 

  470. 			zend_unwrap_reference(op);
    471. 

  471. 			goto try_again;
    472. 

  472. 		EMPTY_SWITCH_DEFAULT_CASE()
    473. 

  473. 	}
    474. 

  474. }
    475. 

  475. /* }}} */
    476. 

  476. 

  477. ZEND_API void ZEND_FASTCALL convert_to_double(zval *op) /* {{{ */
    478. 

  478. {
    479. 

  479. 	double tmp;
    480. 

  480. 

  481. try_again:
    482. 

  482. 	switch (Z_TYPE_P(op)) {
    483. 

  483. 		case IS_NULL:
    484. 

  484. 		case IS_FALSE:
    485. 

  485. 			ZVAL_DOUBLE(op, 0.0);
    486. 

  486. 			break;
    487. 

  487. 		case IS_TRUE:
    488. 

  488. 			ZVAL_DOUBLE(op, 1.0);
    489. 

  489. 			break;
    490. 

  490. 		case IS_RESOURCE: {
    491. 

  491. 				double d = (double) Z_RES_HANDLE_P(op);
    492. 

  492. 				zval_ptr_dtor(op);
    493. 

  493. 				ZVAL_DOUBLE(op, d);
    494. 

  494. 			}
    495. 

  495. 			break;
    496. 

  496. 		case IS_LONG:
    497. 

  497. 			ZVAL_DOUBLE(op, (double) Z_LVAL_P(op));
    498. 

  498. 			break;
    499. 

  499. 		case IS_DOUBLE:
    500. 

  500. 			break;
    501. 

  501. 		case IS_STRING:
    502. 

  502. 			{
    503. 

  503. 				zend_string *str = Z_STR_P(op);
    504. 

  504. 

  505. 				ZVAL_DOUBLE(op, zend_strtod(ZSTR_VAL(str), NULL));
    506. 

  506. 				zend_string_release_ex(str, 0);
    507. 

  507. 			}
    508. 

  508. 			break;
    509. 

  509. 		case IS_ARRAY:
    510. 

  510. 			tmp = (zend_hash_num_elements(Z_ARRVAL_P(op))?1:0);
    511. 

  511. 			zval_ptr_dtor(op);
    512. 

  512. 			ZVAL_DOUBLE(op, tmp);
    513. 

  513. 			break;
    514. 

  514. 		case IS_OBJECT:
    515. 

  515. 			{
    516. 

  516. 				zval dst;
    517. 

  517. 

  518. 				convert_object_to_type(op, &dst, IS_DOUBLE);
    519. 

  519. 				zval_ptr_dtor(op);
    520. 

  520. 

  521. 				if (Z_TYPE(dst) == IS_DOUBLE) {
    522. 

  522. 					ZVAL_DOUBLE(op, Z_DVAL(dst));
    523. 

  523. 				} else {
    524. 

  524. 					ZVAL_DOUBLE(op, 1.0);
    525. 

  525. 				}
    526. 

  526. 				break;
    527. 

  527. 			}
    528. 

  528. 		case IS_REFERENCE:
    529. 

  529. 			zend_unwrap_reference(op);
    530. 

  530. 			goto try_again;
    531. 

  531. 		EMPTY_SWITCH_DEFAULT_CASE()
    532. 

  532. 	}
    533. 

  533. }
    534. 

  534. /* }}} */
    535. 

  535. 

  536. ZEND_API void ZEND_FASTCALL convert_to_null(zval *op) /* {{{ */
    537. 

  537. {
    538. 

  538. 	zval_ptr_dtor(op);
    539. 

  539. 	ZVAL_NULL(op);
    540. 

  540. }
    541. 

  541. /* }}} */
    542. 

  542. 

  543. ZEND_API void ZEND_FASTCALL convert_to_boolean(zval *op) /* {{{ */
    544. 

  544. {
    545. 

  545. 	int tmp;
    546. 

  546. 

  547. try_again:
    548. 

  548. 	switch (Z_TYPE_P(op)) {
    549. 

  549. 		case IS_FALSE:
    550. 

  550. 		case IS_TRUE:
    551. 

  551. 			break;
    552. 

  552. 		case IS_NULL:
    553. 

  553. 			ZVAL_FALSE(op);
    554. 

  554. 			break;
    555. 

  555. 		case IS_RESOURCE: {
    556. 

  556. 				zend_long l = (Z_RES_HANDLE_P(op) ? 1 : 0);
    557. 

  557. 

  558. 				zval_ptr_dtor(op);
    559. 

  559. 				ZVAL_BOOL(op, l);
    560. 

  560. 			}
    561. 

  561. 			break;
    562. 

  562. 		case IS_LONG:
    563. 

  563. 			ZVAL_BOOL(op, Z_LVAL_P(op) ? 1 : 0);
    564. 

  564. 			break;
    565. 

  565. 		case IS_DOUBLE:
    566. 

  566. 			ZVAL_BOOL(op, Z_DVAL_P(op) ? 1 : 0);
    567. 

  567. 			break;
    568. 

  568. 		case IS_STRING:
    569. 

  569. 			{
    570. 

  570. 				zend_string *str = Z_STR_P(op);
    571. 

  571. 

  572. 				if (ZSTR_LEN(str) == 0
    573. 

  573. 					|| (ZSTR_LEN(str) == 1 && ZSTR_VAL(str)[0] == '0')) {
    574. 

  574. 					ZVAL_FALSE(op);
    575. 

  575. 				} else {
    576. 

  576. 					ZVAL_TRUE(op);
    577. 

  577. 				}
    578. 

  578. 				zend_string_release_ex(str, 0);
    579. 

  579. 			}
    580. 

  580. 			break;
    581. 

  581. 		case IS_ARRAY:
    582. 

  582. 			tmp = (zend_hash_num_elements(Z_ARRVAL_P(op))?1:0);
    583. 

  583. 			zval_ptr_dtor(op);
    584. 

  584. 			ZVAL_BOOL(op, tmp);
    585. 

  585. 			break;
    586. 

  586. 		case IS_OBJECT:
    587. 

  587. 			{
    588. 

  588. 				zval dst;
    589. 

  589. 

  590. 				convert_object_to_type(op, &dst, _IS_BOOL);
    591. 

  591. 				zval_ptr_dtor(op);
    592. 

  592. 

  593. 				if (Z_TYPE_INFO(dst) == IS_FALSE || Z_TYPE_INFO(dst) == IS_TRUE) {
    594. 

  594. 					Z_TYPE_INFO_P(op) = Z_TYPE_INFO(dst);
    595. 

  595. 				} else {
    596. 

  596. 					ZVAL_TRUE(op);
    597. 

  597. 				}
    598. 

  598. 				break;
    599. 

  599. 			}
    600. 

  600. 		case IS_REFERENCE:
    601. 

  601. 			zend_unwrap_reference(op);
    602. 

  602. 			goto try_again;
    603. 

  603. 		EMPTY_SWITCH_DEFAULT_CASE()
    604. 

  604. 	}
    605. 

  605. }
    606. 

  606. /* }}} */
    607. 

  607. 

  608. ZEND_API void ZEND_FASTCALL _convert_to_string(zval *op) /* {{{ */
    609. 

  609. {
    610. 

  610. try_again:
    611. 

  611. 	switch (Z_TYPE_P(op)) {
    612. 

  612. 		case IS_UNDEF:
    613. 

  613. 		case IS_NULL:
    614. 

  614. 		case IS_FALSE: {
    615. 

  615. 			ZVAL_EMPTY_STRING(op);
    616. 

  616. 			break;
    617. 

  617. 		}
    618. 

  618. 		case IS_TRUE:
    619. 

  619. 			ZVAL_INTERNED_STR(op, ZSTR_CHAR('1'));
    620. 

  620. 			break;
    621. 

  621. 		case IS_STRING:
    622. 

  622. 			break;
    623. 

  623. 		case IS_RESOURCE: {
    624. 

  624. 			zend_string *str = zend_strpprintf(0, "Resource id #" ZEND_LONG_FMT, (zend_long)Z_RES_HANDLE_P(op));
    625. 

  625. 			zval_ptr_dtor(op);
    626. 

  626. 			ZVAL_NEW_STR(op, str);
    627. 

  627. 			break;
    628. 

  628. 		}
    629. 

  629. 		case IS_LONG: {
    630. 

  630. 			ZVAL_STR(op, zend_long_to_str(Z_LVAL_P(op)));
    631. 

  631. 			break;
    632. 

  632. 		}
    633. 

  633. 		case IS_DOUBLE: {
    634. 

  634. 			zend_string *str;
    635. 

  635. 			double dval = Z_DVAL_P(op);
    636. 

  636. 

  637. 			str = zend_strpprintf_unchecked(0, "%.*H", (int) EG(precision), dval);
    638. 

  638. 

  639. 			ZVAL_NEW_STR(op, str);
    640. 

  640. 			break;
    641. 

  641. 		}
    642. 

  642. 		case IS_ARRAY:
    643. 

  643. 			zend_error(E_WARNING, "Array to string conversion");
    644. 

  644. 			zval_ptr_dtor(op);
    645. 

  645. 			ZVAL_INTERNED_STR(op, ZSTR_KNOWN(ZEND_STR_ARRAY_CAPITALIZED));
    646. 

  646. 			break;
    647. 

  647. 		case IS_OBJECT: {
    648. 

  648. 			zval tmp;
    649. 

  649. 			if (Z_OBJ_HT_P(op)->cast_object(Z_OBJ_P(op), &tmp, IS_STRING) == SUCCESS) {
    650. 

  650. 				zval_ptr_dtor(op);
    651. 

  651. 				ZVAL_COPY_VALUE(op, &tmp);
    652. 

  652. 				return;
    653. 

  653. 			}
    654. 

  654. 			if (!EG(exception)) {
    655. 

  655. 				zend_throw_error(NULL, "Object of class %s could not be converted to string", ZSTR_VAL(Z_OBJCE_P(op)->name));
    656. 

  656. 			}
    657. 

  657. 			zval_ptr_dtor(op);
    658. 

  658. 			ZVAL_EMPTY_STRING(op);
    659. 

  659. 			break;
    660. 

  660. 		}
    661. 

  661. 		case IS_REFERENCE:
    662. 

  662. 			zend_unwrap_reference(op);
    663. 

  663. 			goto try_again;
    664. 

  664. 		EMPTY_SWITCH_DEFAULT_CASE()
    665. 

  665. 	}
    666. 

  666. }
    667. 

  667. /* }}} */
    668. 

  668. 

  669. ZEND_API zend_bool ZEND_FASTCALL _try_convert_to_string(zval *op) /* {{{ */
    670. 

  670. {
    671. 

  671. 	zend_string *str;
    672. 

  672. 

  673. 	ZEND_ASSERT(Z_TYPE_P(op) != IS_STRING);
    674. 

  674. 	str = zval_try_get_string_func(op);
    675. 

  675. 	if (UNEXPECTED(!str)) {
    676. 

  676. 		return 0;
    677. 

  677. 	}
    678. 

  678. 	zval_ptr_dtor(op);
    679. 

  679. 	ZVAL_STR(op, str);
    680. 

  680. 	return 1;
    681. 

  681. }
    682. 

  682. /* }}} */
    683. 

  683. 

  684. static void convert_scalar_to_array(zval *op) /* {{{ */
    685. 

  685. {
    686. 

  686. 	HashTable *ht = zend_new_array(1);
    687. 

  687. 	zend_hash_index_add_new(ht, 0, op);
    688. 

  688. 	ZVAL_ARR(op, ht);
    689. 

  689. }
    690. 

  690. /* }}} */
    691. 

  691. 

  692. ZEND_API void ZEND_FASTCALL convert_to_array(zval *op) /* {{{ */
    693. 

  693. {
    694. 

  694. try_again:
    695. 

  695. 	switch (Z_TYPE_P(op)) {
    696. 

  696. 		case IS_ARRAY:
    697. 

  697. 			break;
    698. 

  698. /* OBJECTS_OPTIMIZE */
    699. 

  699. 		case IS_OBJECT:
    700. 

  700. 			if (Z_OBJCE_P(op) == zend_ce_closure) {
    701. 

  701. 				convert_scalar_to_array(op);
    702. 

  702. 			} else {
    703. 

  703. 				HashTable *obj_ht = zend_get_properties_for(op, ZEND_PROP_PURPOSE_ARRAY_CAST);
    704. 

  704. 				if (obj_ht) {
    705. 

  705. 					HashTable *new_obj_ht = zend_proptable_to_symtable(obj_ht,
    706. 

  706. 						(Z_OBJCE_P(op)->default_properties_count ||
    707. 

  707. 						 Z_OBJ_P(op)->handlers != &std_object_handlers ||
    708. 

  708. 						 GC_IS_RECURSIVE(obj_ht)));
    709. 

  709. 					zval_ptr_dtor(op);
    710. 

  710. 					ZVAL_ARR(op, new_obj_ht);
    711. 

  711. 					zend_release_properties(obj_ht);
    712. 

  712. 				} else {
    713. 

  713. 					zval_ptr_dtor(op);
    714. 

  714. 					/*ZVAL_EMPTY_ARRAY(op);*/
    715. 

  715. 					array_init(op);
    716. 

  716. 				}
    717. 

  717. 			}
    718. 

  718. 			break;
    719. 

  719. 		case IS_NULL:
    720. 

  720. 			/*ZVAL_EMPTY_ARRAY(op);*/
    721. 

  721. 			array_init(op);
    722. 

  722. 			break;
    723. 

  723. 		case IS_REFERENCE:
    724. 

  724. 			zend_unwrap_reference(op);
    725. 

  725. 			goto try_again;
    726. 

  726. 		default:
    727. 

  727. 			convert_scalar_to_array(op);
    728. 

  728. 			break;
    729. 

  729. 	}
    730. 

  730. }
    731. 

  731. /* }}} */
    732. 

  732. 

  733. ZEND_API void ZEND_FASTCALL convert_to_object(zval *op) /* {{{ */
    734. 

  734. {
    735. 

  735. try_again:
    736. 

  736. 	switch (Z_TYPE_P(op)) {
    737. 

  737. 		case IS_ARRAY:
    738. 

  738. 			{
    739. 

  739. 				HashTable *ht = zend_symtable_to_proptable(Z_ARR_P(op));
    740. 

  740. 				zend_object *obj;
    741. 

  741. 

  742. 				if (GC_FLAGS(ht) & IS_ARRAY_IMMUTABLE) {
    743. 

  743. 					/* TODO: try not to duplicate immutable arrays as well ??? */
    744. 

  744. 					ht = zend_array_dup(ht);
    745. 

  745. 				} else if (ht != Z_ARR_P(op)) {
    746. 

  746. 					zval_ptr_dtor(op);
    747. 

  747. 				} else {
    748. 

  748. 					GC_DELREF(ht);
    749. 

  749. 				}
    750. 

  750. 				obj = zend_objects_new(zend_standard_class_def);
    751. 

  751. 				obj->properties = ht;
    752. 

  752. 				ZVAL_OBJ(op, obj);
    753. 

  753. 				break;
    754. 

  754. 			}
    755. 

  755. 		case IS_OBJECT:
    756. 

  756. 			break;
    757. 

  757. 		case IS_NULL:
    758. 

  758. 			object_init(op);
    759. 

  759. 			break;
    760. 

  760. 		case IS_REFERENCE:
    761. 

  761. 			zend_unwrap_reference(op);
    762. 

  762. 			goto try_again;
    763. 

  763. 		default: {
    764. 

  764. 			zval tmp;
    765. 

  765. 			ZVAL_COPY_VALUE(&tmp, op);
    766. 

  766. 			object_init(op);
    767. 

  767. 			zend_hash_add_new(Z_OBJPROP_P(op), ZSTR_KNOWN(ZEND_STR_SCALAR), &tmp);
    768. 

  768. 			break;
    769. 

  769. 		}
    770. 

  770. 	}
    771. 

  771. }
    772. 

  772. /* }}} */
    773. 

  773. 

  774. ZEND_API void multi_convert_to_long_ex(int argc, ...) /* {{{ */
    775. 

  775. {
    776. 

  776. 	zval *arg;
    777. 

  777. 	va_list ap;
    778. 

  778. 

  779. 	va_start(ap, argc);
    780. 

  780. 

  781. 	while (argc--) {
    782. 

  782. 		arg = va_arg(ap, zval *);
    783. 

  783. 		convert_to_long_ex(arg);
    784. 

  784. 	}
    785. 

  785. 

  786. 	va_end(ap);
    787. 

  787. }
    788. 

  788. /* }}} */
    789. 

  789. 

  790. ZEND_API void multi_convert_to_double_ex(int argc, ...) /* {{{ */
    791. 

  791. {
    792. 

  792. 	zval *arg;
    793. 

  793. 	va_list ap;
    794. 

  794. 

  795. 	va_start(ap, argc);
    796. 

  796. 

  797. 	while (argc--) {
    798. 

  798. 		arg = va_arg(ap, zval *);
    799. 

  799. 		convert_to_double_ex(arg);
    800. 

  800. 	}
    801. 

  801. 

  802. 	va_end(ap);
    803. 

  803. }
    804. 

  804. /* }}} */
    805. 

  805. 

  806. ZEND_API void multi_convert_to_string_ex(int argc, ...) /* {{{ */
    807. 

  807. {
    808. 

  808. 	zval *arg;
    809. 

  809. 	va_list ap;
    810. 

  810. 

  811. 	va_start(ap, argc);
    812. 

  812. 

  813. 	while (argc--) {
    814. 

  814. 		arg = va_arg(ap, zval *);
    815. 

  815. 		convert_to_string_ex(arg);
    816. 

  816. 	}
    817. 

  817. 

  818. 	va_end(ap);
    819. 

  819. }
    820. 

  820. /* }}} */
    821. 

  821. 

  822. static zend_always_inline zend_long ZEND_FASTCALL _zval_get_long_func_ex(zval *op, zend_bool silent) /* {{{ */
    823. 

  823. {
    824. 

  824. try_again:
    825. 

  825. 	switch (Z_TYPE_P(op)) {
    826. 

  826. 		case IS_UNDEF:
    827. 

  827. 		case IS_NULL:
    828. 

  828. 		case IS_FALSE:
    829. 

  829. 			return 0;
    830. 

  830. 		case IS_TRUE:
    831. 

  831. 			return 1;
    832. 

  832. 		case IS_RESOURCE:
    833. 

  833. 			return Z_RES_HANDLE_P(op);
    834. 

  834. 		case IS_LONG:
    835. 

  835. 			return Z_LVAL_P(op);
    836. 

  836. 		case IS_DOUBLE:
    837. 

  837. 			return zend_dval_to_lval(Z_DVAL_P(op));
    838. 

  838. 		case IS_STRING:
    839. 

  839. 			{
    840. 

  840. 				zend_uchar type;
    841. 

  841. 				zend_long lval;
    842. 

  842. 				double dval;
    843. 

  843. 				if (0 == (type = is_numeric_string(Z_STRVAL_P(op), Z_STRLEN_P(op), &lval, &dval, silent ? 1 : -1))) {
    844. 

  844. 					if (!silent) {
    845. 

  845. 						zend_error(E_WARNING, "A non-numeric value encountered");
    846. 

  846. 					}
    847. 

  847. 					return 0;
    848. 

  848. 				} else if (EXPECTED(type == IS_LONG)) {
    849. 

  849. 					return lval;
    850. 

  850. 				} else {
    851. 

  851. 					/* Previously we used strtol here, not is_numeric_string,
    852. 

  852. 					 * and strtol gives you LONG_MAX/_MIN on overflow.
    853. 

  853. 					 * We use use saturating conversion to emulate strtol()'s
    854. 

  854. 					 * behaviour.
    855. 

  855. 					 */
    856. 

  856. 					 return zend_dval_to_lval_cap(dval);
    857. 

  857. 				}
    858. 

  858. 			}
    859. 

  859. 		case IS_ARRAY:
    860. 

  860. 			return zend_hash_num_elements(Z_ARRVAL_P(op)) ? 1 : 0;
    861. 

  861. 		case IS_OBJECT:
    862. 

  862. 			{
    863. 

  863. 				zval dst;
    864. 

  864. 				convert_object_to_type(op, &dst, IS_LONG);
    865. 

  865. 				if (Z_TYPE(dst) == IS_LONG) {
    866. 

  866. 					return Z_LVAL(dst);
    867. 

  867. 				} else {
    868. 

  868. 					return 1;
    869. 

  869. 				}
    870. 

  870. 			}
    871. 

  871. 		case IS_REFERENCE:
    872. 

  872. 			op = Z_REFVAL_P(op);
    873. 

  873. 			goto try_again;
    874. 

  874. 		EMPTY_SWITCH_DEFAULT_CASE()
    875. 

  875. 	}
    876. 

  876. 	return 0;
    877. 

  877. }
    878. 

  878. /* }}} */
    879. 

  879. 

  880. ZEND_API zend_long ZEND_FASTCALL zval_get_long_func(zval *op) /* {{{ */
    881. 

  881. {
    882. 

  882. 	return _zval_get_long_func_ex(op, 1);
    883. 

  883. }
    884. 

  884. /* }}} */
    885. 

  885. 

  886. ZEND_API double ZEND_FASTCALL zval_get_double_func(zval *op) /* {{{ */
    887. 

  887. {
    888. 

  888. try_again:
    889. 

  889. 	switch (Z_TYPE_P(op)) {
    890. 

  890. 		case IS_NULL:
    891. 

  891. 		case IS_FALSE:
    892. 

  892. 			return 0.0;
    893. 

  893. 		case IS_TRUE:
    894. 

  894. 			return 1.0;
    895. 

  895. 		case IS_RESOURCE:
    896. 

  896. 			return (double) Z_RES_HANDLE_P(op);
    897. 

  897. 		case IS_LONG:
    898. 

  898. 			return (double) Z_LVAL_P(op);
    899. 

  899. 		case IS_DOUBLE:
    900. 

  900. 			return Z_DVAL_P(op);
    901. 

  901. 		case IS_STRING:
    902. 

  902. 			return zend_strtod(Z_STRVAL_P(op), NULL);
    903. 

  903. 		case IS_ARRAY:
    904. 

  904. 			return zend_hash_num_elements(Z_ARRVAL_P(op)) ? 1.0 : 0.0;
    905. 

  905. 		case IS_OBJECT:
    906. 

  906. 			{
    907. 

  907. 				zval dst;
    908. 

  908. 				convert_object_to_type(op, &dst, IS_DOUBLE);
    909. 

  909. 

  910. 				if (Z_TYPE(dst) == IS_DOUBLE) {
    911. 

  911. 					return Z_DVAL(dst);
    912. 

  912. 				} else {
    913. 

  913. 					return 1.0;
    914. 

  914. 				}
    915. 

  915. 			}
    916. 

  916. 		case IS_REFERENCE:
    917. 

  917. 			op = Z_REFVAL_P(op);
    918. 

  918. 			goto try_again;
    919. 

  919. 		EMPTY_SWITCH_DEFAULT_CASE()
    920. 

  920. 	}
    921. 

  921. 	return 0.0;
    922. 

  922. }
    923. 

  923. /* }}} */
    924. 

  924. 

  925. static zend_always_inline zend_string* __zval_get_string_func(zval *op, zend_bool try) /* {{{ */
    926. 

  926. {
    927. 

  927. try_again:
    928. 

  928. 	switch (Z_TYPE_P(op)) {
    929. 

  929. 		case IS_UNDEF:
    930. 

  930. 		case IS_NULL:
    931. 

  931. 		case IS_FALSE:
    932. 

  932. 			return ZSTR_EMPTY_ALLOC();
    933. 

  933. 		case IS_TRUE:
    934. 

  934. 			return ZSTR_CHAR('1');
    935. 

  935. 		case IS_RESOURCE: {
    936. 

  936. 			return zend_strpprintf(0, "Resource id #" ZEND_LONG_FMT, (zend_long)Z_RES_HANDLE_P(op));
    937. 

  937. 		}
    938. 

  938. 		case IS_LONG: {
    939. 

  939. 			return zend_long_to_str(Z_LVAL_P(op));
    940. 

  940. 		}
    941. 

  941. 		case IS_DOUBLE: {
    942. 

  942. 			return zend_strpprintf_unchecked(0, "%.*H", (int) EG(precision), Z_DVAL_P(op));
    943. 

  943. 		}
    944. 

  944. 		case IS_ARRAY:
    945. 

  945. 			zend_error(E_WARNING, "Array to string conversion");
    946. 

  946. 			return (try && UNEXPECTED(EG(exception))) ?
    947. 

  947. 				NULL : ZSTR_KNOWN(ZEND_STR_ARRAY_CAPITALIZED);
    948. 

  948. 		case IS_OBJECT: {
    949. 

  949. 			zval tmp;
    950. 

  950. 			if (Z_OBJ_HT_P(op)->cast_object(Z_OBJ_P(op), &tmp, IS_STRING) == SUCCESS) {
    951. 

  951. 				return Z_STR(tmp);
    952. 

  952. 			}
    953. 

  953. 			if (!EG(exception)) {
    954. 

  954. 				zend_throw_error(NULL, "Object of class %s could not be converted to string", ZSTR_VAL(Z_OBJCE_P(op)->name));
    955. 

  955. 			}
    956. 

  956. 			return try ? NULL : ZSTR_EMPTY_ALLOC();
    957. 

  957. 		}
    958. 

  958. 		case IS_REFERENCE:
    959. 

  959. 			op = Z_REFVAL_P(op);
    960. 

  960. 			goto try_again;
    961. 

  961. 		case IS_STRING:
    962. 

  962. 			return zend_string_copy(Z_STR_P(op));
    963. 

  963. 		EMPTY_SWITCH_DEFAULT_CASE()
    964. 

  964. 	}
    965. 

  965. 	return NULL;
    966. 

  966. }
    967. 

  967. /* }}} */
    968. 

  968. 

  969. ZEND_API zend_string* ZEND_FASTCALL zval_get_string_func(zval *op) /* {{{ */
    970. 

  970. {
    971. 

  971. 	return __zval_get_string_func(op, 0);
    972. 

  972. }
    973. 

  973. /* }}} */
    974. 

  974. 

  975. ZEND_API zend_string* ZEND_FASTCALL zval_try_get_string_func(zval *op) /* {{{ */
    976. 

  976. {
    977. 

  977. 	return __zval_get_string_func(op, 1);
    978. 

  978. }
    979. 

  979. /* }}} */
    980. 

  980. 

  981. static ZEND_COLD zend_never_inline void ZEND_FASTCALL zend_binop_error(const char *operator, zval *op1, zval *op2) /* {{{ */ {
    982. 

  982. 	if (EG(exception)) {
    983. 

  983. 		return;
    984. 

  984. 	}
    985. 

  985. 

  986. 	zend_type_error("Unsupported operand types: %s %s %s",
    987. 

  987. 		zend_get_type_by_const(Z_TYPE_P(op1)), operator, zend_get_type_by_const(Z_TYPE_P(op2)));
    988. 

  988. }
    989. 

  989. /* }}} */
    990. 

  990. 

  991. static zend_never_inline void ZEND_FASTCALL add_function_array(zval *result, zval *op1, zval *op2) /* {{{ */
    992. 

  992. {
    993. 

  993. 	if ((result == op1) && (result == op2)) {
    994. 

  994. 		/* $a += $a */
    995. 

  995. 		return;
    996. 

  996. 	}
    997. 

  997. 	if (result != op1) {
    998. 

  998. 		ZVAL_ARR(result, zend_array_dup(Z_ARR_P(op1)));
    999. 

  999. 	} else {
    1000. 

  1000. 		SEPARATE_ARRAY(result);
    1001. 

  1001. 	}
    1002. 

  1002. 	zend_hash_merge(Z_ARRVAL_P(result), Z_ARRVAL_P(op2), zval_add_ref, 0);
    1003. 

  1003. }
    1004. 

  1004. /* }}} */
    1005. 

  1005. 

  1006. static zend_always_inline int add_function_fast(zval *result, zval *op1, zval *op2) /* {{{ */
    1007. 

  1007. {
    1008. 

  1008. 	zend_uchar type_pair = TYPE_PAIR(Z_TYPE_P(op1), Z_TYPE_P(op2));
    1009. 

  1009. 

  1010. 	if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_LONG))) {
    1011. 

  1011. 		fast_long_add_function(result, op1, op2);
    1012. 

  1012. 		return SUCCESS;
    1013. 

  1013. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_DOUBLE))) {
    1014. 

  1014. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) + Z_DVAL_P(op2));
    1015. 

  1015. 		return SUCCESS;
    1016. 

  1016. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_DOUBLE))) {
    1017. 

  1017. 		ZVAL_DOUBLE(result, ((double)Z_LVAL_P(op1)) + Z_DVAL_P(op2));
    1018. 

  1018. 		return SUCCESS;
    1019. 

  1019. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_LONG))) {
    1020. 

  1020. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) + ((double)Z_LVAL_P(op2)));
    1021. 

  1021. 		return SUCCESS;
    1022. 

  1022. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_ARRAY, IS_ARRAY))) {
    1023. 

  1023. 		add_function_array(result, op1, op2);
    1024. 

  1024. 		return SUCCESS;
    1025. 

  1025. 	} else {
    1026. 

  1026. 		return FAILURE;
    1027. 

  1027. 	}
    1028. 

  1028. } /* }}} */
    1029. 

  1029. 

  1030. static zend_never_inline int ZEND_FASTCALL add_function_slow(zval *result, zval *op1, zval *op2) /* {{{ */
    1031. 

  1031. {
    1032. 

  1032. 	ZVAL_DEREF(op1);
    1033. 

  1033. 	ZVAL_DEREF(op2);
    1034. 

  1034. 	if (add_function_fast(result, op1, op2) == SUCCESS) {
    1035. 

  1035. 		return SUCCESS;
    1036. 

  1036. 	}
    1037. 

  1037. 

  1038. 	ZEND_TRY_BINARY_OBJECT_OPERATION(ZEND_ADD);
    1039. 

  1039. 

  1040. 	zval op1_copy, op2_copy;
    1041. 

  1041. 	if (UNEXPECTED(zendi_try_convert_scalar_to_number(op1, &op1_copy) == FAILURE)
    1042. 

  1042. 			|| UNEXPECTED(zendi_try_convert_scalar_to_number(op2, &op2_copy) == FAILURE)) {
    1043. 

  1043. 		zend_binop_error("+", op1, op2);
    1044. 

  1044. 		if (result != op1) {
    1045. 

  1045. 			ZVAL_UNDEF(result);
    1046. 

  1046. 		}
    1047. 

  1047. 		return FAILURE;
    1048. 

  1048. 	}
    1049. 

  1049. 

  1050. 	if (result == op1) {
    1051. 

  1051. 		zval_ptr_dtor(result);
    1052. 

  1052. 	}
    1053. 

  1053. 

  1054. 	if (add_function_fast(result, &op1_copy, &op2_copy) == SUCCESS) {
    1055. 

  1055. 		return SUCCESS;
    1056. 

  1056. 	}
    1057. 

  1057. 

  1058. 	ZEND_ASSERT(0 && "Operation must succeed");
    1059. 

  1059. 	return FAILURE;
    1060. 

  1060. } /* }}} */
    1061. 

  1061. 

  1062. ZEND_API int ZEND_FASTCALL add_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1063. 

  1063. {
    1064. 

  1064. 	if (add_function_fast(result, op1, op2) == SUCCESS) {
    1065. 

  1065. 		return SUCCESS;
    1066. 

  1066. 	} else {
    1067. 

  1067. 		return add_function_slow(result, op1, op2);
    1068. 

  1068. 	}
    1069. 

  1069. }
    1070. 

  1070. /* }}} */
    1071. 

  1071. 

  1072. static zend_always_inline int sub_function_fast(zval *result, zval *op1, zval *op2) /* {{{ */
    1073. 

  1073. {
    1074. 

  1074. 	zend_uchar type_pair = TYPE_PAIR(Z_TYPE_P(op1), Z_TYPE_P(op2));
    1075. 

  1075. 

  1076. 	if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_LONG))) {
    1077. 

  1077. 		fast_long_sub_function(result, op1, op2);
    1078. 

  1078. 		return SUCCESS;
    1079. 

  1079. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_DOUBLE))) {
    1080. 

  1080. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) - Z_DVAL_P(op2));
    1081. 

  1081. 		return SUCCESS;
    1082. 

  1082. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_DOUBLE))) {
    1083. 

  1083. 		ZVAL_DOUBLE(result, ((double)Z_LVAL_P(op1)) - Z_DVAL_P(op2));
    1084. 

  1084. 		return SUCCESS;
    1085. 

  1085. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_LONG))) {
    1086. 

  1086. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) - ((double)Z_LVAL_P(op2)));
    1087. 

  1087. 		return SUCCESS;
    1088. 

  1088. 	} else {
    1089. 

  1089. 		return FAILURE;
    1090. 

  1090. 	}
    1091. 

  1091. }
    1092. 

  1092. /* }}} */
    1093. 

  1093. 

  1094. static zend_never_inline int ZEND_FASTCALL sub_function_slow(zval *result, zval *op1, zval *op2) /* {{{ */
    1095. 

  1095. {
    1096. 

  1096. 	ZVAL_DEREF(op1);
    1097. 

  1097. 	ZVAL_DEREF(op2);
    1098. 

  1098. 	if (sub_function_fast(result, op1, op2) == SUCCESS) {
    1099. 

  1099. 		return SUCCESS;
    1100. 

  1100. 	}
    1101. 

  1101. 

  1102. 	ZEND_TRY_BINARY_OBJECT_OPERATION(ZEND_SUB);
    1103. 

  1103. 

  1104. 	zval op1_copy, op2_copy;
    1105. 

  1105. 	if (UNEXPECTED(zendi_try_convert_scalar_to_number(op1, &op1_copy) == FAILURE)
    1106. 

  1106. 			|| UNEXPECTED(zendi_try_convert_scalar_to_number(op2, &op2_copy) == FAILURE)) {
    1107. 

  1107. 		zend_binop_error("-", op1, op2);
    1108. 

  1108. 		if (result != op1) {
    1109. 

  1109. 			ZVAL_UNDEF(result);
    1110. 

  1110. 		}
    1111. 

  1111. 		return FAILURE;
    1112. 

  1112. 	}
    1113. 

  1113. 

  1114. 	if (result == op1) {
    1115. 

  1115. 		zval_ptr_dtor(result);
    1116. 

  1116. 	}
    1117. 

  1117. 

  1118. 	if (sub_function_fast(result, &op1_copy, &op2_copy) == SUCCESS) {
    1119. 

  1119. 		return SUCCESS;
    1120. 

  1120. 	}
    1121. 

  1121. 

  1122. 	ZEND_ASSERT(0 && "Operation must succeed");
    1123. 

  1123. 	return FAILURE;
    1124. 

  1124. }
    1125. 

  1125. /* }}} */
    1126. 

  1126. 

  1127. ZEND_API int ZEND_FASTCALL sub_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1128. 

  1128. {
    1129. 

  1129. 	if (sub_function_fast(result, op1, op2) == SUCCESS) {
    1130. 

  1130. 		return SUCCESS;
    1131. 

  1131. 	} else {
    1132. 

  1132. 		return sub_function_slow(result, op1, op2);
    1133. 

  1133. 	}
    1134. 

  1134. }
    1135. 

  1135. /* }}} */
    1136. 

  1136. 

  1137. static zend_always_inline int mul_function_fast(zval *result, zval *op1, zval *op2) /* {{{ */
    1138. 

  1138. {
    1139. 

  1139. 	zend_uchar type_pair = TYPE_PAIR(Z_TYPE_P(op1), Z_TYPE_P(op2));
    1140. 

  1140. 

  1141. 	if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_LONG))) {
    1142. 

  1142. 		zend_long overflow;
    1143. 

  1143. 		ZEND_SIGNED_MULTIPLY_LONG(
    1144. 

  1144. 			Z_LVAL_P(op1), Z_LVAL_P(op2),
    1145. 

  1145. 			Z_LVAL_P(result), Z_DVAL_P(result), overflow);
    1146. 

  1146. 		Z_TYPE_INFO_P(result) = overflow ? IS_DOUBLE : IS_LONG;
    1147. 

  1147. 		return SUCCESS;
    1148. 

  1148. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_DOUBLE))) {
    1149. 

  1149. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) * Z_DVAL_P(op2));
    1150. 

  1150. 		return SUCCESS;
    1151. 

  1151. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_DOUBLE))) {
    1152. 

  1152. 		ZVAL_DOUBLE(result, ((double)Z_LVAL_P(op1)) * Z_DVAL_P(op2));
    1153. 

  1153. 		return SUCCESS;
    1154. 

  1154. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_LONG))) {
    1155. 

  1155. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) * ((double)Z_LVAL_P(op2)));
    1156. 

  1156. 		return SUCCESS;
    1157. 

  1157. 	} else {
    1158. 

  1158. 		return FAILURE;
    1159. 

  1159. 	}
    1160. 

  1160. }
    1161. 

  1161. /* }}} */
    1162. 

  1162. 

  1163. static zend_never_inline int ZEND_FASTCALL mul_function_slow(zval *result, zval *op1, zval *op2) /* {{{ */
    1164. 

  1164. {
    1165. 

  1165. 	ZVAL_DEREF(op1);
    1166. 

  1166. 	ZVAL_DEREF(op2);
    1167. 

  1167. 	if (mul_function_fast(result, op1, op2) == SUCCESS) {
    1168. 

  1168. 		return SUCCESS;
    1169. 

  1169. 	}
    1170. 

  1170. 

  1171. 	ZEND_TRY_BINARY_OBJECT_OPERATION(ZEND_MUL);
    1172. 

  1172. 

  1173. 	zval op1_copy, op2_copy;
    1174. 

  1174. 	if (UNEXPECTED(zendi_try_convert_scalar_to_number(op1, &op1_copy) == FAILURE)
    1175. 

  1175. 			|| UNEXPECTED(zendi_try_convert_scalar_to_number(op2, &op2_copy) == FAILURE)) {
    1176. 

  1176. 		zend_binop_error("*", op1, op2);
    1177. 

  1177. 		if (result != op1) {
    1178. 

  1178. 			ZVAL_UNDEF(result);
    1179. 

  1179. 		}
    1180. 

  1180. 		return FAILURE;
    1181. 

  1181. 	}
    1182. 

  1182. 

  1183. 	if (result == op1) {
    1184. 

  1184. 		zval_ptr_dtor(result);
    1185. 

  1185. 	}
    1186. 

  1186. 

  1187. 	if (mul_function_fast(result, &op1_copy, &op2_copy) == SUCCESS) {
    1188. 

  1188. 		return SUCCESS;
    1189. 

  1189. 	}
    1190. 

  1190. 

  1191. 	ZEND_ASSERT(0 && "Operation must succeed");
    1192. 

  1192. 	return FAILURE;
    1193. 

  1193. }
    1194. 

  1194. /* }}} */
    1195. 

  1195. 

  1196. ZEND_API int ZEND_FASTCALL mul_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1197. 

  1197. {
    1198. 

  1198. 	if (mul_function_fast(result, op1, op2) == SUCCESS) {
    1199. 

  1199. 		return SUCCESS;
    1200. 

  1200. 	} else {
    1201. 

  1201. 		return mul_function_slow(result, op1, op2);
    1202. 

  1202. 	}
    1203. 

  1203. }
    1204. 

  1204. /* }}} */
    1205. 

  1205. 

  1206. static int ZEND_FASTCALL pow_function_base(zval *result, zval *op1, zval *op2) /* {{{ */
    1207. 

  1207. {
    1208. 

  1208. 	zend_uchar type_pair = TYPE_PAIR(Z_TYPE_P(op1), Z_TYPE_P(op2));
    1209. 

  1209. 

  1210. 	if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_LONG))) {
    1211. 

  1211. 		if (Z_LVAL_P(op2) >= 0) {
    1212. 

  1212. 			zend_long l1 = 1, l2 = Z_LVAL_P(op1), i = Z_LVAL_P(op2);
    1213. 

  1213. 

  1214. 			if (i == 0) {
    1215. 

  1215. 				ZVAL_LONG(result, 1L);
    1216. 

  1216. 				return SUCCESS;
    1217. 

  1217. 			} else if (l2 == 0) {
    1218. 

  1218. 				ZVAL_LONG(result, 0);
    1219. 

  1219. 				return SUCCESS;
    1220. 

  1220. 			}
    1221. 

  1221. 

  1222. 			while (i >= 1) {
    1223. 

  1223. 				zend_long overflow;
    1224. 

  1224. 				double dval = 0.0;
    1225. 

  1225. 

  1226. 				if (i % 2) {
    1227. 

  1227. 					--i;
    1228. 

  1228. 					ZEND_SIGNED_MULTIPLY_LONG(l1, l2, l1, dval, overflow);
    1229. 

  1229. 					if (overflow) {
    1230. 

  1230. 						ZVAL_DOUBLE(result, dval * pow(l2, i));
    1231. 

  1231. 						return SUCCESS;
    1232. 

  1232. 					}
    1233. 

  1233. 				} else {
    1234. 

  1234. 					i /= 2;
    1235. 

  1235. 					ZEND_SIGNED_MULTIPLY_LONG(l2, l2, l2, dval, overflow);
    1236. 

  1236. 					if (overflow) {
    1237. 

  1237. 						ZVAL_DOUBLE(result, (double)l1 * pow(dval, i));
    1238. 

  1238. 						return SUCCESS;
    1239. 

  1239. 					}
    1240. 

  1240. 				}
    1241. 

  1241. 			}
    1242. 

  1242. 			/* i == 0 */
    1243. 

  1243. 			ZVAL_LONG(result, l1);
    1244. 

  1244. 		} else {
    1245. 

  1245. 			ZVAL_DOUBLE(result, pow((double)Z_LVAL_P(op1), (double)Z_LVAL_P(op2)));
    1246. 

  1246. 		}
    1247. 

  1247. 		return SUCCESS;
    1248. 

  1248. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_DOUBLE))) {
    1249. 

  1249. 		ZVAL_DOUBLE(result, pow(Z_DVAL_P(op1), Z_DVAL_P(op2)));
    1250. 

  1250. 		return SUCCESS;
    1251. 

  1251. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_DOUBLE))) {
    1252. 

  1252. 		ZVAL_DOUBLE(result, pow((double)Z_LVAL_P(op1), Z_DVAL_P(op2)));
    1253. 

  1253. 		return SUCCESS;
    1254. 

  1254. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_LONG))) {
    1255. 

  1255. 		ZVAL_DOUBLE(result, pow(Z_DVAL_P(op1), (double)Z_LVAL_P(op2)));
    1256. 

  1256. 		return SUCCESS;
    1257. 

  1257. 	} else {
    1258. 

  1258. 		return FAILURE;
    1259. 

  1259. 	}
    1260. 

  1260. }
    1261. 

  1261. /* }}} */
    1262. 

  1262. 

  1263. ZEND_API int ZEND_FASTCALL pow_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1264. 

  1264. {
    1265. 

  1265. 	ZVAL_DEREF(op1);
    1266. 

  1266. 	ZVAL_DEREF(op2);
    1267. 

  1267. 	if (pow_function_base(result, op1, op2) == SUCCESS) {
    1268. 

  1268. 		return SUCCESS;
    1269. 

  1269. 	}
    1270. 

  1270. 

  1271. 	ZEND_TRY_BINARY_OBJECT_OPERATION(ZEND_POW);
    1272. 

  1272. 

  1273. 	zval op1_copy, op2_copy;
    1274. 

  1274. 	if (UNEXPECTED(zendi_try_convert_scalar_to_number(op1, &op1_copy) == FAILURE)
    1275. 

  1275. 			|| UNEXPECTED(zendi_try_convert_scalar_to_number(op2, &op2_copy) == FAILURE)) {
    1276. 

  1276. 		zend_binop_error("**", op1, op2);
    1277. 

  1277. 		if (result != op1) {
    1278. 

  1278. 			ZVAL_UNDEF(result);
    1279. 

  1279. 		}
    1280. 

  1280. 		return FAILURE;
    1281. 

  1281. 	}
    1282. 

  1282. 

  1283. 	if (result == op1) {
    1284. 

  1284. 		zval_ptr_dtor(result);
    1285. 

  1285. 	}
    1286. 

  1286. 

  1287. 	if (pow_function_base(result, &op1_copy, &op2_copy) == SUCCESS) {
    1288. 

  1288. 		return SUCCESS;
    1289. 

  1289. 	}
    1290. 

  1290. 

  1291. 	ZEND_ASSERT(0 && "Operation must succeed");
    1292. 

  1292. 	return FAILURE;
    1293. 

  1293. }
    1294. 

  1294. /* }}} */
    1295. 

  1295. 

  1296. #ifdef __clang__
    1297. 

  1297. __attribute__((no_sanitize("float-divide-by-zero")))
    1298. 

  1298. #endif
    1299. 

  1299. static int ZEND_FASTCALL div_function_base(zval *result, zval *op1, zval *op2) /* {{{ */
    1300. 

  1300. {
    1301. 

  1301. 	zend_uchar type_pair = TYPE_PAIR(Z_TYPE_P(op1), Z_TYPE_P(op2));
    1302. 

  1302. 

  1303. 	if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_LONG))) {
    1304. 

  1304. 		if (Z_LVAL_P(op2) == 0) {
    1305. 

  1305. 			zend_error(E_WARNING, "Division by zero");
    1306. 

  1306. 			ZVAL_DOUBLE(result, ((double) Z_LVAL_P(op1) / (double) Z_LVAL_P(op2)));
    1307. 

  1307. 			return SUCCESS;
    1308. 

  1308. 		} else if (Z_LVAL_P(op2) == -1 && Z_LVAL_P(op1) == ZEND_LONG_MIN) {
    1309. 

  1309. 			/* Prevent overflow error/crash */
    1310. 

  1310. 			ZVAL_DOUBLE(result, (double) ZEND_LONG_MIN / -1);
    1311. 

  1311. 			return SUCCESS;
    1312. 

  1312. 		}
    1313. 

  1313. 		if (Z_LVAL_P(op1) % Z_LVAL_P(op2) == 0) { /* integer */
    1314. 

  1314. 			ZVAL_LONG(result, Z_LVAL_P(op1) / Z_LVAL_P(op2));
    1315. 

  1315. 		} else {
    1316. 

  1316. 			ZVAL_DOUBLE(result, ((double) Z_LVAL_P(op1)) / Z_LVAL_P(op2));
    1317. 

  1317. 		}
    1318. 

  1318. 		return SUCCESS;
    1319. 

  1319. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_DOUBLE))) {
    1320. 

  1320. 		if (Z_DVAL_P(op2) == 0) {
    1321. 

  1321. 			zend_error(E_WARNING, "Division by zero");
    1322. 

  1322. 		}
    1323. 

  1323. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) / Z_DVAL_P(op2));
    1324. 

  1324. 		return SUCCESS;
    1325. 

  1325. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_DOUBLE, IS_LONG))) {
    1326. 

  1326. 		if (Z_LVAL_P(op2) == 0) {
    1327. 

  1327. 			zend_error(E_WARNING, "Division by zero");
    1328. 

  1328. 		}
    1329. 

  1329. 		ZVAL_DOUBLE(result, Z_DVAL_P(op1) / (double)Z_LVAL_P(op2));
    1330. 

  1330. 		return SUCCESS;
    1331. 

  1331. 	} else if (EXPECTED(type_pair == TYPE_PAIR(IS_LONG, IS_DOUBLE))) {
    1332. 

  1332. 		if (Z_DVAL_P(op2) == 0) {
    1333. 

  1333. 			zend_error(E_WARNING, "Division by zero");
    1334. 

  1334. 		}
    1335. 

  1335. 		ZVAL_DOUBLE(result, (double)Z_LVAL_P(op1) / Z_DVAL_P(op2));
    1336. 

  1336. 		return SUCCESS;
    1337. 

  1337. 	} else {
    1338. 

  1338. 		return FAILURE;
    1339. 

  1339. 	}
    1340. 

  1340. }
    1341. 

  1341. /* }}} */
    1342. 

  1342. 

  1343. ZEND_API int ZEND_FASTCALL div_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1344. 

  1344. {
    1345. 

  1345. 	ZVAL_DEREF(op1);
    1346. 

  1346. 	ZVAL_DEREF(op2);
    1347. 

  1347. 	if (div_function_base(result, op1, op2) == SUCCESS) {
    1348. 

  1348. 		return SUCCESS;
    1349. 

  1349. 	}
    1350. 

  1350. 

  1351. 	ZEND_TRY_BINARY_OBJECT_OPERATION(ZEND_DIV);
    1352. 

  1352. 

  1353. 	zval op1_copy, op2_copy;
    1354. 

  1354. 	if (UNEXPECTED(zendi_try_convert_scalar_to_number(op1, &op1_copy) == FAILURE)
    1355. 

  1355. 			|| UNEXPECTED(zendi_try_convert_scalar_to_number(op2, &op2_copy) == FAILURE)) {
    1356. 

  1356. 		zend_binop_error("/", op1, op2);
    1357. 

  1357. 		if (result != op1) {
    1358. 

  1358. 			ZVAL_UNDEF(result);
    1359. 

  1359. 		}
    1360. 

  1360. 		return FAILURE;
    1361. 

  1361. 	}
    1362. 

  1362. 

  1363. 	if (result == op1) {
    1364. 

  1364. 		zval_ptr_dtor(result);
    1365. 

  1365. 	}
    1366. 

  1366. 

  1367. 	if (div_function_base(result, &op1_copy, &op2_copy) == SUCCESS) {
    1368. 

  1368. 		return SUCCESS;
    1369. 

  1369. 	}
    1370. 

  1370. 

  1371. 	ZEND_ASSERT(0 && "Operation must succeed");
    1372. 

  1372. 	return FAILURE;
    1373. 

  1373. }
    1374. 

  1374. /* }}} */
    1375. 

  1375. 

  1376. ZEND_API int ZEND_FASTCALL mod_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1377. 

  1377. {
    1378. 

  1378. 	zend_long op1_lval, op2_lval;
    1379. 

  1379. 

  1380. 	convert_op1_op2_long(op1, op1_lval, op2, op2_lval, result, ZEND_MOD, "%");
    1381. 

  1381. 

  1382. 	if (op2_lval == 0) {
    1383. 

  1383. 		/* modulus by zero */
    1384. 

  1384. 		if (EG(current_execute_data) && !CG(in_compilation)) {
    1385. 

  1385. 			zend_throw_exception_ex(zend_ce_division_by_zero_error, 0, "Modulo by zero");
    1386. 

  1386. 		} else {
    1387. 

  1387. 			zend_error_noreturn(E_ERROR, "Modulo by zero");
    1388. 

  1388. 		}
    1389. 

  1389. 		if (op1 != result) {
    1390. 

  1390. 			ZVAL_UNDEF(result);
    1391. 

  1391. 		}
    1392. 

  1392. 		return FAILURE;
    1393. 

  1393. 	}
    1394. 

  1394. 

  1395. 	if (op1 == result) {
    1396. 

  1396. 		zval_ptr_dtor(result);
    1397. 

  1397. 	}
    1398. 

  1398. 

  1399. 	if (op2_lval == -1) {
    1400. 

  1400. 		/* Prevent overflow error/crash if op1==LONG_MIN */
    1401. 

  1401. 		ZVAL_LONG(result, 0);
    1402. 

  1402. 		return SUCCESS;
    1403. 

  1403. 	}
    1404. 

  1404. 

  1405. 	ZVAL_LONG(result, op1_lval % op2_lval);
    1406. 

  1406. 	return SUCCESS;
    1407. 

  1407. }
    1408. 

  1408. /* }}} */
    1409. 

  1409. 

  1410. ZEND_API int ZEND_FASTCALL boolean_xor_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1411. 

  1411. {
    1412. 

  1412. 	int op1_val, op2_val;
    1413. 

  1413. 

  1414. 	do {
    1415. 

  1415. 		if (Z_TYPE_P(op1) == IS_FALSE) {
    1416. 

  1416. 			op1_val = 0;
    1417. 

  1417. 		} else if (EXPECTED(Z_TYPE_P(op1) == IS_TRUE)) {
    1418. 

  1418. 			op1_val = 1;
    1419. 

  1419. 		} else {
    1420. 

  1420. 			if (Z_ISREF_P(op1)) {
    1421. 

  1421. 				op1 = Z_REFVAL_P(op1);
    1422. 

  1422. 				if (Z_TYPE_P(op1) == IS_FALSE) {
    1423. 

  1423. 					op1_val = 0;
    1424. 

  1424. 					break;
    1425. 

  1425. 				} else if (EXPECTED(Z_TYPE_P(op1) == IS_TRUE)) {
    1426. 

  1426. 					op1_val = 1;
    1427. 

  1427. 					break;
    1428. 

  1428. 				}
    1429. 

  1429. 			}
    1430. 

  1430. 			ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(ZEND_BOOL_XOR);
    1431. 

  1431. 			op1_val = zval_is_true(op1);
    1432. 

  1432. 		}
    1433. 

  1433. 	} while (0);
    1434. 

  1434. 	do {
    1435. 

  1435. 		if (Z_TYPE_P(op2) == IS_FALSE) {
    1436. 

  1436. 			op2_val = 0;
    1437. 

  1437. 		} else if (EXPECTED(Z_TYPE_P(op2) == IS_TRUE)) {
    1438. 

  1438. 			op2_val = 1;
    1439. 

  1439. 		} else {
    1440. 

  1440. 			if (Z_ISREF_P(op2)) {
    1441. 

  1441. 				op2 = Z_REFVAL_P(op2);
    1442. 

  1442. 				if (Z_TYPE_P(op2) == IS_FALSE) {
    1443. 

  1443. 					op2_val = 0;
    1444. 

  1444. 					break;
    1445. 

  1445. 				} else if (EXPECTED(Z_TYPE_P(op2) == IS_TRUE)) {
    1446. 

  1446. 					op2_val = 1;
    1447. 

  1447. 					break;
    1448. 

  1448. 				}
    1449. 

  1449. 			}
    1450. 

  1450. 			ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(ZEND_BOOL_XOR);
    1451. 

  1451. 			op2_val = zval_is_true(op2);
    1452. 

  1452. 		}
    1453. 

  1453. 	} while (0);
    1454. 

  1454. 

  1455. 	ZVAL_BOOL(result, op1_val ^ op2_val);
    1456. 

  1456. 	return SUCCESS;
    1457. 

  1457. }
    1458. 

  1458. /* }}} */
    1459. 

  1459. 

  1460. ZEND_API int ZEND_FASTCALL boolean_not_function(zval *result, zval *op1) /* {{{ */
    1461. 

  1461. {
    1462. 

  1462. 	if (Z_TYPE_P(op1) < IS_TRUE) {
    1463. 

  1463. 		ZVAL_TRUE(result);
    1464. 

  1464. 	} else if (EXPECTED(Z_TYPE_P(op1) == IS_TRUE)) {
    1465. 

  1465. 		ZVAL_FALSE(result);
    1466. 

  1466. 	} else {
    1467. 

  1467. 		if (Z_ISREF_P(op1)) {
    1468. 

  1468. 			op1 = Z_REFVAL_P(op1);
    1469. 

  1469. 			if (Z_TYPE_P(op1) < IS_TRUE) {
    1470. 

  1470. 				ZVAL_TRUE(result);
    1471. 

  1471. 				return SUCCESS;
    1472. 

  1472. 			} else if (EXPECTED(Z_TYPE_P(op1) == IS_TRUE)) {
    1473. 

  1473. 				ZVAL_FALSE(result);
    1474. 

  1474. 				return SUCCESS;
    1475. 

  1475. 			}
    1476. 

  1476. 		}
    1477. 

  1477. 		ZEND_TRY_UNARY_OBJECT_OPERATION(ZEND_BOOL_NOT);
    1478. 

  1478. 

  1479. 		ZVAL_BOOL(result, !zval_is_true(op1));
    1480. 

  1480. 	}
    1481. 

  1481. 	return SUCCESS;
    1482. 

  1482. }
    1483. 

  1483. /* }}} */
    1484. 

  1484. 

  1485. ZEND_API int ZEND_FASTCALL bitwise_not_function(zval *result, zval *op1) /* {{{ */
    1486. 

  1486. {
    1487. 

  1487. try_again:
    1488. 

  1488. 	switch (Z_TYPE_P(op1)) {
    1489. 

  1489. 		case IS_LONG:
    1490. 

  1490. 			ZVAL_LONG(result, ~Z_LVAL_P(op1));
    1491. 

  1491. 			return SUCCESS;
    1492. 

  1492. 		case IS_DOUBLE:
    1493. 

  1493. 			ZVAL_LONG(result, ~zend_dval_to_lval(Z_DVAL_P(op1)));
    1494. 

  1494. 			return SUCCESS;
    1495. 

  1495. 		case IS_STRING: {
    1496. 

  1496. 			size_t i;
    1497. 

  1497. 

  1498. 			if (Z_STRLEN_P(op1) == 1) {
    1499. 

  1499. 				zend_uchar not = (zend_uchar) ~*Z_STRVAL_P(op1);
    1500. 

  1500. 				ZVAL_INTERNED_STR(result, ZSTR_CHAR(not));
    1501. 

  1501. 			} else {
    1502. 

  1502. 				ZVAL_NEW_STR(result, zend_string_alloc(Z_STRLEN_P(op1), 0));
    1503. 

  1503. 				for (i = 0; i < Z_STRLEN_P(op1); i++) {
    1504. 

  1504. 					Z_STRVAL_P(result)[i] = ~Z_STRVAL_P(op1)[i];
    1505. 

  1505. 				}
    1506. 

  1506. 				Z_STRVAL_P(result)[i] = 0;
    1507. 

  1507. 			}
    1508. 

  1508. 			return SUCCESS;
    1509. 

  1509. 		}
    1510. 

  1510. 		case IS_REFERENCE:
    1511. 

  1511. 			op1 = Z_REFVAL_P(op1);
    1512. 

  1512. 			goto try_again;
    1513. 

  1513. 		default:
    1514. 

  1514. 			ZEND_TRY_UNARY_OBJECT_OPERATION(ZEND_BW_NOT);
    1515. 

  1515. 

  1516. 			if (result != op1) {
    1517. 

  1517. 				ZVAL_UNDEF(result);
    1518. 

  1518. 			}
    1519. 

  1519. 			zend_type_error("Cannot perform bitwise not on %s",
    1520. 

  1520. 				zend_get_type_by_const(Z_TYPE_P(op1)));
    1521. 

  1521. 			return FAILURE;
    1522. 

  1522. 	}
    1523. 

  1523. }
    1524. 

  1524. /* }}} */
    1525. 

  1525. 

  1526. ZEND_API int ZEND_FASTCALL bitwise_or_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1527. 

  1527. {
    1528. 

  1528. 	zend_long op1_lval, op2_lval;
    1529. 

  1529. 

  1530. 	if (EXPECTED(Z_TYPE_P(op1) == IS_LONG) && EXPECTED(Z_TYPE_P(op2) == IS_LONG)) {
    1531. 

  1531. 		ZVAL_LONG(result, Z_LVAL_P(op1) | Z_LVAL_P(op2));
    1532. 

  1532. 		return SUCCESS;
    1533. 

  1533. 	}
    1534. 

  1534. 

  1535. 	ZVAL_DEREF(op1);
    1536. 

  1536. 	ZVAL_DEREF(op2);
    1537. 

  1537. 

  1538. 	if (Z_TYPE_P(op1) == IS_STRING && EXPECTED(Z_TYPE_P(op2) == IS_STRING)) {
    1539. 

  1539. 		zval *longer, *shorter;
    1540. 

  1540. 		zend_string *str;
    1541. 

  1541. 		size_t i;
    1542. 

  1542. 

  1543. 		if (EXPECTED(Z_STRLEN_P(op1) >= Z_STRLEN_P(op2))) {
    1544. 

  1544. 			if (EXPECTED(Z_STRLEN_P(op1) == Z_STRLEN_P(op2)) && Z_STRLEN_P(op1) == 1) {
    1545. 

  1545. 				zend_uchar or = (zend_uchar) (*Z_STRVAL_P(op1) | *Z_STRVAL_P(op2));
    1546. 

  1546. 				if (result==op1) {
    1547. 

  1547. 					zval_ptr_dtor_str(result);
    1548. 

  1548. 				}
    1549. 

  1549. 				ZVAL_INTERNED_STR(result, ZSTR_CHAR(or));
    1550. 

  1550. 				return SUCCESS;
    1551. 

  1551. 			}
    1552. 

  1552. 			longer = op1;
    1553. 

  1553. 			shorter = op2;
    1554. 

  1554. 		} else {
    1555. 

  1555. 			longer = op2;
    1556. 

  1556. 			shorter = op1;
    1557. 

  1557. 		}
    1558. 

  1558. 

  1559. 		str = zend_string_alloc(Z_STRLEN_P(longer), 0);
    1560. 

  1560. 		for (i = 0; i < Z_STRLEN_P(shorter); i++) {
    1561. 

  1561. 			ZSTR_VAL(str)[i] = Z_STRVAL_P(longer)[i] | Z_STRVAL_P(shorter)[i];
    1562. 

  1562. 		}
    1563. 

  1563. 		memcpy(ZSTR_VAL(str) + i, Z_STRVAL_P(longer) + i, Z_STRLEN_P(longer) - i + 1);
    1564. 

  1564. 		if (result==op1) {
    1565. 

  1565. 			zval_ptr_dtor_str(result);
    1566. 

  1566. 		}
    1567. 

  1567. 		ZVAL_NEW_STR(result, str);
    1568. 

  1568. 		return SUCCESS;
    1569. 

  1569. 	}
    1570. 

  1570. 

  1571. 	if (UNEXPECTED(Z_TYPE_P(op1) != IS_LONG)) {
    1572. 

  1572. 		zend_bool failed;
    1573. 

  1573. 		ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(ZEND_BW_OR);
    1574. 

  1574. 		op1_lval = zendi_try_get_long(op1, &failed);
    1575. 

  1575. 		if (UNEXPECTED(failed)) {
    1576. 

  1576. 			zend_binop_error("|", op1, op2);
    1577. 

  1577. 			if (result != op1) {
    1578. 

  1578. 				ZVAL_UNDEF(result);
    1579. 

  1579. 			}
    1580. 

  1580. 			return FAILURE;
    1581. 

  1581. 		}
    1582. 

  1582. 	} else {
    1583. 

  1583. 		op1_lval = Z_LVAL_P(op1);
    1584. 

  1584. 	}
    1585. 

  1585. 	if (UNEXPECTED(Z_TYPE_P(op2) != IS_LONG)) {
    1586. 

  1586. 		zend_bool failed;
    1587. 

  1587. 		ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(ZEND_BW_OR);
    1588. 

  1588. 		op2_lval = zendi_try_get_long(op2, &failed);
    1589. 

  1589. 		if (UNEXPECTED(failed)) {
    1590. 

  1590. 			zend_binop_error("|", op1, op2);
    1591. 

  1591. 			if (result != op1) {
    1592. 

  1592. 				ZVAL_UNDEF(result);
    1593. 

  1593. 			}
    1594. 

  1594. 			return FAILURE;
    1595. 

  1595. 		}
    1596. 

  1596. 	} else {
    1597. 

  1597. 		op2_lval = Z_LVAL_P(op2);
    1598. 

  1598. 	}
    1599. 

  1599. 

  1600. 	if (op1 == result) {
    1601. 

  1601. 		zval_ptr_dtor(result);
    1602. 

  1602. 	}
    1603. 

  1603. 	ZVAL_LONG(result, op1_lval | op2_lval);
    1604. 

  1604. 	return SUCCESS;
    1605. 

  1605. }
    1606. 

  1606. /* }}} */
    1607. 

  1607. 

  1608. ZEND_API int ZEND_FASTCALL bitwise_and_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1609. 

  1609. {
    1610. 

  1610. 	zend_long op1_lval, op2_lval;
    1611. 

  1611. 

  1612. 	if (EXPECTED(Z_TYPE_P(op1) == IS_LONG) && EXPECTED(Z_TYPE_P(op2) == IS_LONG)) {
    1613. 

  1613. 		ZVAL_LONG(result, Z_LVAL_P(op1) & Z_LVAL_P(op2));
    1614. 

  1614. 		return SUCCESS;
    1615. 

  1615. 	}
    1616. 

  1616. 

  1617. 	ZVAL_DEREF(op1);
    1618. 

  1618. 	ZVAL_DEREF(op2);
    1619. 

  1619. 

  1620. 	if (Z_TYPE_P(op1) == IS_STRING && Z_TYPE_P(op2) == IS_STRING) {
    1621. 

  1621. 		zval *longer, *shorter;
    1622. 

  1622. 		zend_string *str;
    1623. 

  1623. 		size_t i;
    1624. 

  1624. 

  1625. 		if (EXPECTED(Z_STRLEN_P(op1) >= Z_STRLEN_P(op2))) {
    1626. 

  1626. 			if (EXPECTED(Z_STRLEN_P(op1) == Z_STRLEN_P(op2)) && Z_STRLEN_P(op1) == 1) {
    1627. 

  1627. 				zend_uchar and = (zend_uchar) (*Z_STRVAL_P(op1) & *Z_STRVAL_P(op2));
    1628. 

  1628. 				if (result==op1) {
    1629. 

  1629. 					zval_ptr_dtor_str(result);
    1630. 

  1630. 				}
    1631. 

  1631. 				ZVAL_INTERNED_STR(result, ZSTR_CHAR(and));
    1632. 

  1632. 				return SUCCESS;
    1633. 

  1633. 			}
    1634. 

  1634. 			longer = op1;
    1635. 

  1635. 			shorter = op2;
    1636. 

  1636. 		} else {
    1637. 

  1637. 			longer = op2;
    1638. 

  1638. 			shorter = op1;
    1639. 

  1639. 		}
    1640. 

  1640. 

  1641. 		str = zend_string_alloc(Z_STRLEN_P(shorter), 0);
    1642. 

  1642. 		for (i = 0; i < Z_STRLEN_P(shorter); i++) {
    1643. 

  1643. 			ZSTR_VAL(str)[i] = Z_STRVAL_P(shorter)[i] & Z_STRVAL_P(longer)[i];
    1644. 

  1644. 		}
    1645. 

  1645. 		ZSTR_VAL(str)[i] = 0;
    1646. 

  1646. 		if (result==op1) {
    1647. 

  1647. 			zval_ptr_dtor_str(result);
    1648. 

  1648. 		}
    1649. 

  1649. 		ZVAL_NEW_STR(result, str);
    1650. 

  1650. 		return SUCCESS;
    1651. 

  1651. 	}
    1652. 

  1652. 

  1653. 	if (UNEXPECTED(Z_TYPE_P(op1) != IS_LONG)) {
    1654. 

  1654. 		zend_bool failed;
    1655. 

  1655. 		ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(ZEND_BW_AND);
    1656. 

  1656. 		op1_lval = zendi_try_get_long(op1, &failed);
    1657. 

  1657. 		if (UNEXPECTED(failed)) {
    1658. 

  1658. 			zend_binop_error("&", op1, op2);
    1659. 

  1659. 			if (result != op1) {
    1660. 

  1660. 				ZVAL_UNDEF(result);
    1661. 

  1661. 			}
    1662. 

  1662. 			return FAILURE;
    1663. 

  1663. 		}
    1664. 

  1664. 	} else {
    1665. 

  1665. 		op1_lval = Z_LVAL_P(op1);
    1666. 

  1666. 	}
    1667. 

  1667. 	if (UNEXPECTED(Z_TYPE_P(op2) != IS_LONG)) {
    1668. 

  1668. 		zend_bool failed;
    1669. 

  1669. 		ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(ZEND_BW_AND);
    1670. 

  1670. 		op2_lval = zendi_try_get_long(op2, &failed);
    1671. 

  1671. 		if (UNEXPECTED(failed)) {
    1672. 

  1672. 			zend_binop_error("&", op1, op2);
    1673. 

  1673. 			if (result != op1) {
    1674. 

  1674. 				ZVAL_UNDEF(result);
    1675. 

  1675. 			}
    1676. 

  1676. 			return FAILURE;
    1677. 

  1677. 		}
    1678. 

  1678. 	} else {
    1679. 

  1679. 		op2_lval = Z_LVAL_P(op2);
    1680. 

  1680. 	}
    1681. 

  1681. 

  1682. 	if (op1 == result) {
    1683. 

  1683. 		zval_ptr_dtor(result);
    1684. 

  1684. 	}
    1685. 

  1685. 	ZVAL_LONG(result, op1_lval & op2_lval);
    1686. 

  1686. 	return SUCCESS;
    1687. 

  1687. }
    1688. 

  1688. /* }}} */
    1689. 

  1689. 

  1690. ZEND_API int ZEND_FASTCALL bitwise_xor_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1691. 

  1691. {
    1692. 

  1692. 	zend_long op1_lval, op2_lval;
    1693. 

  1693. 

  1694. 	if (EXPECTED(Z_TYPE_P(op1) == IS_LONG) && EXPECTED(Z_TYPE_P(op2) == IS_LONG)) {
    1695. 

  1695. 		ZVAL_LONG(result, Z_LVAL_P(op1) ^ Z_LVAL_P(op2));
    1696. 

  1696. 		return SUCCESS;
    1697. 

  1697. 	}
    1698. 

  1698. 

  1699. 	ZVAL_DEREF(op1);
    1700. 

  1700. 	ZVAL_DEREF(op2);
    1701. 

  1701. 

  1702. 	if (Z_TYPE_P(op1) == IS_STRING && Z_TYPE_P(op2) == IS_STRING) {
    1703. 

  1703. 		zval *longer, *shorter;
    1704. 

  1704. 		zend_string *str;
    1705. 

  1705. 		size_t i;
    1706. 

  1706. 

  1707. 		if (EXPECTED(Z_STRLEN_P(op1) >= Z_STRLEN_P(op2))) {
    1708. 

  1708. 			if (EXPECTED(Z_STRLEN_P(op1) == Z_STRLEN_P(op2)) && Z_STRLEN_P(op1) == 1) {
    1709. 

  1709. 				zend_uchar xor = (zend_uchar) (*Z_STRVAL_P(op1) ^ *Z_STRVAL_P(op2));
    1710. 

  1710. 				if (result==op1) {
    1711. 

  1711. 					zval_ptr_dtor_str(result);
    1712. 

  1712. 				}
    1713. 

  1713. 				ZVAL_INTERNED_STR(result, ZSTR_CHAR(xor));
    1714. 

  1714. 				return SUCCESS;
    1715. 

  1715. 			}
    1716. 

  1716. 			longer = op1;
    1717. 

  1717. 			shorter = op2;
    1718. 

  1718. 		} else {
    1719. 

  1719. 			longer = op2;
    1720. 

  1720. 			shorter = op1;
    1721. 

  1721. 		}
    1722. 

  1722. 

  1723. 		str = zend_string_alloc(Z_STRLEN_P(shorter), 0);
    1724. 

  1724. 		for (i = 0; i < Z_STRLEN_P(shorter); i++) {
    1725. 

  1725. 			ZSTR_VAL(str)[i] = Z_STRVAL_P(shorter)[i] ^ Z_STRVAL_P(longer)[i];
    1726. 

  1726. 		}
    1727. 

  1727. 		ZSTR_VAL(str)[i] = 0;
    1728. 

  1728. 		if (result==op1) {
    1729. 

  1729. 			zval_ptr_dtor_str(result);
    1730. 

  1730. 		}
    1731. 

  1731. 		ZVAL_NEW_STR(result, str);
    1732. 

  1732. 		return SUCCESS;
    1733. 

  1733. 	}
    1734. 

  1734. 

  1735. 	if (UNEXPECTED(Z_TYPE_P(op1) != IS_LONG)) {
    1736. 

  1736. 		zend_bool failed;
    1737. 

  1737. 		ZEND_TRY_BINARY_OP1_OBJECT_OPERATION(ZEND_BW_XOR);
    1738. 

  1738. 		op1_lval = zendi_try_get_long(op1, &failed);
    1739. 

  1739. 		if (UNEXPECTED(failed)) {
    1740. 

  1740. 			zend_binop_error("^", op1, op2);
    1741. 

  1741. 			if (result != op1) {
    1742. 

  1742. 				ZVAL_UNDEF(result);
    1743. 

  1743. 			}
    1744. 

  1744. 			return FAILURE;
    1745. 

  1745. 		}
    1746. 

  1746. 	} else {
    1747. 

  1747. 		op1_lval = Z_LVAL_P(op1);
    1748. 

  1748. 	}
    1749. 

  1749. 	if (UNEXPECTED(Z_TYPE_P(op2) != IS_LONG)) {
    1750. 

  1750. 		zend_bool failed;
    1751. 

  1751. 		ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(ZEND_BW_XOR);
    1752. 

  1752. 		op2_lval = zendi_try_get_long(op2, &failed);
    1753. 

  1753. 		if (UNEXPECTED(failed)) {
    1754. 

  1754. 			zend_binop_error("^", op1, op2);
    1755. 

  1755. 			if (result != op1) {
    1756. 

  1756. 				ZVAL_UNDEF(result);
    1757. 

  1757. 			}
    1758. 

  1758. 			return FAILURE;
    1759. 

  1759. 		}
    1760. 

  1760. 	} else {
    1761. 

  1761. 		op2_lval = Z_LVAL_P(op2);
    1762. 

  1762. 	}
    1763. 

  1763. 

  1764. 	if (op1 == result) {
    1765. 

  1765. 		zval_ptr_dtor(result);
    1766. 

  1766. 	}
    1767. 

  1767. 	ZVAL_LONG(result, op1_lval ^ op2_lval);
    1768. 

  1768. 	return SUCCESS;
    1769. 

  1769. }
    1770. 

  1770. /* }}} */
    1771. 

  1771. 

  1772. ZEND_API int ZEND_FASTCALL shift_left_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1773. 

  1773. {
    1774. 

  1774. 	zend_long op1_lval, op2_lval;
    1775. 

  1775. 

  1776. 	convert_op1_op2_long(op1, op1_lval, op2, op2_lval, result, ZEND_SL, "<<");
    1777. 

  1777. 

  1778. 	/* prevent wrapping quirkiness on some processors where << 64 + x == << x */
    1779. 

  1779. 	if (UNEXPECTED((zend_ulong)op2_lval >= SIZEOF_ZEND_LONG * 8)) {
    1780. 

  1780. 		if (EXPECTED(op2_lval > 0)) {
    1781. 

  1781. 			if (op1 == result) {
    1782. 

  1782. 				zval_ptr_dtor(result);
    1783. 

  1783. 			}
    1784. 

  1784. 			ZVAL_LONG(result, 0);
    1785. 

  1785. 			return SUCCESS;
    1786. 

  1786. 		} else {
    1787. 

  1787. 			if (EG(current_execute_data) && !CG(in_compilation)) {
    1788. 

  1788. 				zend_throw_exception_ex(zend_ce_arithmetic_error, 0, "Bit shift by negative number");
    1789. 

  1789. 			} else {
    1790. 

  1790. 				zend_error_noreturn(E_ERROR, "Bit shift by negative number");
    1791. 

  1791. 			}
    1792. 

  1792. 			if (op1 != result) {
    1793. 

  1793. 				ZVAL_UNDEF(result);
    1794. 

  1794. 			}
    1795. 

  1795. 			return FAILURE;
    1796. 

  1796. 		}
    1797. 

  1797. 	}
    1798. 

  1798. 

  1799. 	if (op1 == result) {
    1800. 

  1800. 		zval_ptr_dtor(result);
    1801. 

  1801. 	}
    1802. 

  1802. 

  1803. 	/* Perform shift on unsigned numbers to get well-defined wrap behavior. */
    1804. 

  1804. 	ZVAL_LONG(result, (zend_long) ((zend_ulong) op1_lval << op2_lval));
    1805. 

  1805. 	return SUCCESS;
    1806. 

  1806. }
    1807. 

  1807. /* }}} */
    1808. 

  1808. 

  1809. ZEND_API int ZEND_FASTCALL shift_right_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1810. 

  1810. {
    1811. 

  1811. 	zend_long op1_lval, op2_lval;
    1812. 

  1812. 

  1813. 	convert_op1_op2_long(op1, op1_lval, op2, op2_lval, result, ZEND_SR, ">>");
    1814. 

  1814. 

  1815. 	/* prevent wrapping quirkiness on some processors where >> 64 + x == >> x */
    1816. 

  1816. 	if (UNEXPECTED((zend_ulong)op2_lval >= SIZEOF_ZEND_LONG * 8)) {
    1817. 

  1817. 		if (EXPECTED(op2_lval > 0)) {
    1818. 

  1818. 			if (op1 == result) {
    1819. 

  1819. 				zval_ptr_dtor(result);
    1820. 

  1820. 			}
    1821. 

  1821. 			ZVAL_LONG(result, (op1_lval < 0) ? -1 : 0);
    1822. 

  1822. 			return SUCCESS;
    1823. 

  1823. 		} else {
    1824. 

  1824. 			if (EG(current_execute_data) && !CG(in_compilation)) {
    1825. 

  1825. 				zend_throw_exception_ex(zend_ce_arithmetic_error, 0, "Bit shift by negative number");
    1826. 

  1826. 			} else {
    1827. 

  1827. 				zend_error_noreturn(E_ERROR, "Bit shift by negative number");
    1828. 

  1828. 			}
    1829. 

  1829. 			if (op1 != result) {
    1830. 

  1830. 				ZVAL_UNDEF(result);
    1831. 

  1831. 			}
    1832. 

  1832. 			return FAILURE;
    1833. 

  1833. 		}
    1834. 

  1834. 	}
    1835. 

  1835. 

  1836. 	if (op1 == result) {
    1837. 

  1837. 		zval_ptr_dtor(result);
    1838. 

  1838. 	}
    1839. 

  1839. 

  1840. 	ZVAL_LONG(result, op1_lval >> op2_lval);
    1841. 

  1841. 	return SUCCESS;
    1842. 

  1842. }
    1843. 

  1843. /* }}} */
    1844. 

  1844. 

  1845. ZEND_API int ZEND_FASTCALL concat_function(zval *result, zval *op1, zval *op2) /* {{{ */
    1846. 

  1846. {
    1847. 

  1847.     zval *orig_op1 = op1;
    1848. 

  1848. 	zval op1_copy, op2_copy;
    1849. 

  1849. 

  1850. 	ZVAL_UNDEF(&op1_copy);
    1851. 

  1851. 	ZVAL_UNDEF(&op2_copy);
    1852. 

  1852. 

  1853. 	do {
    1854. 

  1854. 	 	if (UNEXPECTED(Z_TYPE_P(op1) != IS_STRING)) {
    1855. 

  1855. 	 		if (Z_ISREF_P(op1)) {
    1856. 

  1856. 	 			op1 = Z_REFVAL_P(op1);
    1857. 

  1857. 	 			if (Z_TYPE_P(op1) == IS_STRING) break;
    1858. 

  1858. 	 		}
    1859. 

  1859. 			ZEND_TRY_BINARY_OBJECT_OPERATION(ZEND_CONCAT);
    1860. 

  1860. 			ZVAL_STR(&op1_copy, zval_get_string_func(op1));
    1861. 

  1861. 			if (UNEXPECTED(EG(exception))) {
    1862. 

  1862. 				zval_ptr_dtor_str(&op1_copy);
    1863. 

  1863. 				if (orig_op1 != result) {
    1864. 

  1864. 					ZVAL_UNDEF(result);
    1865. 

  1865. 				}
    1866. 

  1866. 				return FAILURE;
    1867. 

  1867. 			}
    1868. 

  1868. 			if (result == op1) {
    1869. 

  1869. 				if (UNEXPECTED(op1 == op2)) {
    1870. 

  1870. 					op2 = &op1_copy;
    1871. 

  1871. 				}
    1872. 

  1872. 			}
    1873. 

  1873. 			op1 = &op1_copy;
    1874. 

  1874. 		}
    1875. 

  1875. 	} while (0);
    1876. 

  1876. 	do {
    1877. 

  1877. 		if (UNEXPECTED(Z_TYPE_P(op2) != IS_STRING)) {
    1878. 

  1878. 	 		if (Z_ISREF_P(op2)) {
    1879. 

  1879. 	 			op2 = Z_REFVAL_P(op2);
    1880. 

  1880. 	 			if (Z_TYPE_P(op2) == IS_STRING) break;
    1881. 

  1881. 	 		}
    1882. 

  1882. 			ZEND_TRY_BINARY_OP2_OBJECT_OPERATION(ZEND_CONCAT);
    1883. 

  1883. 			ZVAL_STR(&op2_copy, zval_get_string_func(op2));
    1884. 

  1884. 			if (UNEXPECTED(EG(exception))) {
    1885. 

  1885. 				zval_ptr_dtor_str(&op1_copy);
    1886. 

  1886. 				zval_ptr_dtor_str(&op2_copy);
    1887. 

  1887. 				if (orig_op1 != result) {
    1888. 

  1888. 					ZVAL_UNDEF(result);
    1889. 

  1889. 				}
    1890. 

  1890. 				return FAILURE;
    1891. 

  1891. 			}
    1892. 

  1892. 			op2 = &op2_copy;
    1893. 

  1893. 		}
    1894. 

  1894. 	} while (0);
    1895. 

  1895. 

  1896. 	if (UNEXPECTED(Z_STRLEN_P(op1) == 0)) {
    1897. 

  1897. 		if (EXPECTED(result != op2)) {
    1898. 

  1898. 			if (result == orig_op1) {
    1899. 

  1899. 				i_zval_ptr_dtor(result);
    1900. 

  1900. 			}
    1901. 

  1901. 			ZVAL_COPY(result, op2);
    1902. 

  1902. 		}
    1903. 

  1903. 	} else if (UNEXPECTED(Z_STRLEN_P(op2) == 0)) {
    1904. 

  1904. 		if (EXPECTED(result != op1)) {
    1905. 

  1905. 			ZVAL_COPY(result, op1);
    1906. 

  1906. 		}
    1907. 

  1907. 	} else {
    1908. 

  1908. 		size_t op1_len = Z_STRLEN_P(op1);
    1909. 

  1909. 		size_t op2_len = Z_STRLEN_P(op2);
    1910. 

  1910. 		size_t result_len = op1_len + op2_len;
    1911. 

  1911. 		zend_string *result_str;
    1912. 

  1912. 

  1913. 		if (UNEXPECTED(op1_len > SIZE_MAX - op2_len)) {
    1914. 

  1914. 			zend_throw_error(NULL, "String size overflow");
    1915. 

  1915. 			zval_ptr_dtor_str(&op1_copy);
    1916. 

  1916. 			zval_ptr_dtor_str(&op2_copy);
    1917. 

  1917. 			if (orig_op1 != result) {
    1918. 

  1918. 				ZVAL_UNDEF(result);
    1919. 

  1919. 			}
    1920. 

  1920. 			return FAILURE;
    1921. 

  1921. 		}
    1922. 

  1922. 

  1923. 		if (result == op1 && Z_REFCOUNTED_P(result)) {
    1924. 

  1924. 			/* special case, perform operations on result */
    1925. 

  1925. 			result_str = zend_string_extend(Z_STR_P(result), result_len, 0);
    1926. 

  1926. 		} else {
    1927. 

  1927. 			result_str = zend_string_alloc(result_len, 0);
    1928. 

  1928. 			memcpy(ZSTR_VAL(result_str), Z_STRVAL_P(op1), op1_len);
    1929. 

  1929. 			if (result == orig_op1) {
    1930. 

  1930. 				i_zval_ptr_dtor(result);
    1931. 

  1931. 			}
    1932. 

  1932. 		}
    1933. 

  1933. 

  1934. 		/* This has to happen first to account for the cases where result == op1 == op2 and
    1935. 

  1935. 		 * the realloc is done. In this case this line will also update Z_STRVAL_P(op2) to
    1936. 

  1936. 		 * point to the new string. The first op2_len bytes of result will still be the same. */
    1937. 

  1937. 		ZVAL_NEW_STR(result, result_str);
    1938. 

  1938. 

  1939. 		memcpy(ZSTR_VAL(result_str) + op1_len, Z_STRVAL_P(op2), op2_len);
    1940. 

  1940. 		ZSTR_VAL(result_str)[result_len] = '\0';
    1941. 

  1941. 	}
    1942. 

  1942. 

  1943. 	zval_ptr_dtor_str(&op1_copy);
    1944. 

  1944. 	zval_ptr_dtor_str(&op2_copy);
    1945. 

  1945. 	return SUCCESS;
    1946. 

  1946. }
    1947. 

  1947. /* }}} */
    1948. 

  1948. 

  1949. ZEND_API int ZEND_FASTCALL string_compare_function_ex(zval *op1, zval *op2, zend_bool case_insensitive) /* {{{ */
    1950. 

  1950. {
    1951. 

  1951. 	zend_string *tmp_str1, *tmp_str2;
    1952. 

  1952. 	zend_string *str1 = zval_get_tmp_string(op1, &tmp_str1);
    1953. 

  1953. 	zend_string *str2 = zval_get_tmp_string(op2, &tmp_str2);
    1954. 

  1954. 	int ret;
    1955. 

  1955. 

  1956. 	if (case_insensitive) {
    1957. 

  1957. 		ret = zend_binary_strcasecmp_l(ZSTR_VAL(str1), ZSTR_LEN(str1), ZSTR_VAL(str2), ZSTR_LEN(str1));
    1958. 

  1958. 	} else {
    1959. 

  1959. 		ret = zend_binary_strcmp(ZSTR_VAL(str1), ZSTR_LEN(str1), ZSTR_VAL(str2), ZSTR_LEN(str2));
    1960. 

  1960. 	}
    1961. 

  1961. 

  1962. 	zend_tmp_string_release(tmp_str1);
    1963. 

  1963. 	zend_tmp_string_release(tmp_str2);
    1964. 

  1964. 	return ret;
    1965. 

  1965. }
    1966. 

  1966. /* }}} */
    1967. 

  1967. 

  1968. ZEND_API int ZEND_FASTCALL string_compare_function(zval *op1, zval *op2) /* {{{ */
    1969. 

  1969. {
    1970. 

  1970. 	if (EXPECTE…
    1971.

Large files files are truncated, but you can click here to view the full file