From 0b6a8d0458d37d39f6416935c9e4526f31d7a8bd Mon Sep 17 00:00:00 2001
From: Stanislav Malyshev <stas@php.net>
Date: Tue, 14 Nov 2000 17:54:11 +0000
Subject: [PATCH] Better 0x handling - not change non-0x number behaviour

---
 Zend/zend_language_scanner.l | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/Zend/zend_language_scanner.l b/Zend/zend_language_scanner.l
index 1e02fc4818..b537c08141 100644
--- a/Zend/zend_language_scanner.l
+++ b/Zend/zend_language_scanner.l
@@ -1001,19 +1001,12 @@ ANY_CHAR (.|[\n])
 }
 
 
-<ST_IN_SCRIPTING>{LNUM}|{HNUM} {
+<ST_IN_SCRIPTING>{LNUM} {
 	errno = 0;
-	zendlval->value.lval = strtoul(yytext, NULL, 0);
+	zendlval->value.lval = strtol(yytext, NULL, 0);
 	if (errno == ERANGE) { /* overflow */
-		if(yytext[0] == 0 && (yytext[1] == 'x' || yytext[1] == 'X') ) {
-			/* strtod for 0x'es returns trash */
-			zendlval->value.lval = LONG_MAX; /* maximal long */
-			zendlval->type = IS_LONG;
-			zend_error(E_NOTICE,"Hex number is too big: %s",yytext);
-		} else {
-			zendlval->value.dval = strtod(yytext,NULL);
-			zendlval->type = IS_DOUBLE;
-		}
+		zendlval->value.dval = strtod(yytext,NULL);
+		zendlval->type = IS_DOUBLE;
 		return T_DNUMBER;
 	} else {
 		zendlval->type = IS_LONG;
@@ -1021,6 +1014,20 @@ ANY_CHAR (.|[\n])
 	}
 }
 
+<ST_IN_SCRIPTING>{HNUM} {
+	errno = 0;
+	zendlval->value.lval = strtoul(yytext, NULL, 16);
+	if (errno == ERANGE) { /* overflow */
+		/* not trying strtod - it returns trans on 0x-es */
+		zendlval->value.lval = LONG_MAX; /* maximal long */
+		zend_error(E_NOTICE,"Hex number is too big: %s",yytext);
+	} else {
+		zendlval->type = IS_LONG;
+	}
+	zendlval->type = IS_LONG;
+	return T_LNUMBER;
+}
+
 <ST_DOUBLE_QUOTES,ST_BACKQUOTE,ST_HEREDOC>{LNUM}|{HNUM} { /* treat numbers (almost) as strings inside encapsulated strings */
 	zendlval->value.str.val = (char *)estrndup(yytext, yyleng);
 	zendlval->value.str.len = yyleng;
-- 
2.50.1