diff options
Diffstat (limited to 'translate/grt/grt-values.adb')
| -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 336cf4e0a..97a36ae17 100644 --- a/translate/grt/grt-values.adb +++ b/translate/grt/grt-values.adb @@ -350,7 +350,7 @@ package body Grt.Values is S.Bounds := To_Std_String_Boundp(Bound'Address); -- find characters at the end... - Finish := Ghdl_Index_Type(Bound.Dim_1.Length)-1; + Finish := Bound.Dim_1.Length - 1; while White(S.Base.all(Finish)) loop Finish := Finish - 1; end loop; @@ -389,7 +389,7 @@ package body Grt.Values is end; if Rti.Kind = Ghdl_Rtik_Type_P64 then - Mult := Ghdl_I64(Multiple.Unit_64); + Mult := Multiple.Unit_64; else Mult := Ghdl_I64(Multiple.Unit_32); end if; |