bugfix:hexadecimal ranges 0x00..0x01

2010-03-09 19:37:26 +01:00 · 2010-03-09 19:37:26 +01:00 · fe4cc78294
commit fe4cc78294
parent 684bb09773
2 changed files with 9 additions and 1 deletions
--- a/rod/scanner.nim
+++ b/rod/scanner.nim
@ -357,7 +357,7 @@ proc GetNumber(L: var TLexer): TToken =
        result.base = base16
        while true: 
          case L.buf[pos]
-          of 'G'..'Z', 'g'..'z', '.': 
+          of 'G'..'Z', 'g'..'z': 
            lexMessage(L, errInvalidNumber, result.literal)
            inc(pos)
          of '_': 
--- a/tests/accept/compile/thexrange.nim
+++ b/tests/accept/compile/thexrange.nim
@ -0,0 +1,8 @@
+
+type
+  TArray = array[0x0012..0x0013, int]
+  
+var a: TArray
+
+echo a[0] #OUT 0
+