diff options
| author | Tristan Gingold <tgingold@free.fr> | 2013-12-17 06:25:53 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2013-12-17 06:25:53 +0100 |
| commit | 48448a12ef628218db298d8b7c6879e28cdd019a (patch) | |
| tree | 7e612d41dc01c435cf32e3cee029b429c9362bb9 /translate/grt/grt-values.adb | |
| parent | 04ad1cd54d99fc3ac3d82c69ee5f7c2db7e2275a (diff) | |
| download | ghdl-48448a12ef628218db298d8b7c6879e28cdd019a.tar.gz ghdl-48448a12ef628218db298d8b7c6879e28cdd019a.tar.bz2 ghdl-48448a12ef628218db298d8b7c6879e28cdd019a.zip | |
Sync tree: add parsing of AMS-VHDL, add Darwin syntax in asm files.
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; |