diff options
Diffstat (limited to 'translate/grt')
| -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 ca82e0c..336cf4e 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; |