diff options
author | Brian Drummond <brian@shapes.demon.co.uk> | 2013-12-13 15:22:06 +0000 |
---|---|---|
committer | Brian Drummond <brian@shapes.demon.co.uk> | 2013-12-13 15:22:06 +0000 |
commit | 9c4833e90ec7f984d0a0efeaf6ea6879f2b74512 (patch) | |
tree | c6b8030efe481e08a1122dbd9e6eb9551fbb923c | |
parent | bbc3ea64ca1340bcc2e6947638ba61437d0ebf3b (diff) | |
download | ghdl-9c4833e90ec7f984d0a0efeaf6ea6879f2b74512.tar.gz ghdl-9c4833e90ec7f984d0a0efeaf6ea6879f2b74512.tar.bz2 ghdl-9c4833e90ec7f984d0a0efeaf6ea6879f2b74512.zip |
Patch for https://gna.org/bugs/?18353
-rw-r--r-- | translate/grt/grt-values.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/grt/grt-values.adb b/translate/grt/grt-values.adb index ca82e0cd8..336cf4e0a 100644 --- a/translate/grt/grt-values.adb +++ b/translate/grt/grt-values.adb @@ -231,8 +231,8 @@ package body Grt.Values is when others => Error_E ("'value: digit expected"); end case; - if D > Base then - Error_E ("'value: digit greather than base"); + if D >= Base then + Error_E ("'value: digit >= base"); end if; Val := Val * Base + D; Pos := Pos + 1; |