dpas_parse_hex: ignore the 'H' on the end of a hexadecimal constant.

diff --git a/ChangeLog b/ChangeLog
index 9ee72f213772a6ddc65f51a6a38e6ba09e98f7ef..9e82f76755615c7810af951a398006b61555dfc7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -17,6 +17,9 @@
        * include/jit/jit-defs.h.in: incorrect values for jit_max_int
        and jit_max_long.
 
+       * dpas/dpas-scanner.l (dpas_parse_hex): ignore the 'H' on the
+       end of a hexadecimal constant.
+
 2004-05-11  Rhys Weatherley  <rweather@southern-storm.com.au>
 
        * include/jit/jit-insn.h, jit/jit-insn.c, jit/jit-interp.cpp,

diff --git a/dpas/dpas-scanner.l b/dpas/dpas-scanner.l
index 3d6c0ce2c16ea4a32360e97bec38e458b15c1c03..278abbbf5fbedaee6449db91b772ca3dc4947f44 100644 (file)
--- a/dpas/dpas-scanner.l
+++ b/dpas/dpas-scanner.l
@@ -133,7 +133,7 @@ static void dpas_parse_hex(const char *text, YYSTYPE *lval)
                {
                        value = value * 16 + (jit_ulong)(*text - 'A' + 10);
                }
-               else
+               else if(*text >= 'a' && *text <= 'f')
                {
                        value = value * 16 + (jit_ulong)(*text - 'a' + 10);
                }