# HG changeset patch
# User Aziz K?ksal <aziz.koeksal@gmail.com>
# Date 1190059031 -7200
# Node ID fce1e6133dac8d06cfed042521c77f1a324c1772
# Parent  bb935c6f9b7a00988769f31abc6473fe4f9e6c3b
Applied fix to hex float scanner.

Positive and negative exponents are scanned now.

diff -r bb935c6f9b7a -r fce1e6133dac trunk/src/dil/Lexer.d
--- a/trunk/src/dil/Lexer.d	Mon Sep 17 20:35:08 2007 +0200
+++ b/trunk/src/dil/Lexer.d	Mon Sep 17 21:57:11 2007 +0200
@@ -1673,7 +1673,10 @@
     }
     // Scan exponent
     assert(*p == 'p' || *p == 'P');
-    if (!isdigit(*++p))
+    ++p;
+    if (*p == '+' || *p == '-')
+      ++p;
+    if (!isdigit(*p))
     {
       mid = MID.HexFloatExpMustStartWithDigit;
       goto Lerr;