From 48448a12ef628218db298d8b7c6879e28cdd019a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 17 Dec 2013 06:25:53 +0100
Subject: Sync tree: add parsing of AMS-VHDL, add Darwin syntax in asm files.

---
 translate/grt/grt-values.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'translate/grt/grt-values.adb')

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;
-- 
cgit v1.2.3