From 3616beb1af38eadd3428da8ac427eb171c77159b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 11 Mar 2015 03:59:41 +0100
Subject: Fix truncated simple name in fst dump.

---
 src/grt/grt-fst.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/grt')

diff --git a/src/grt/grt-fst.adb b/src/grt/grt-fst.adb
index 121410381..9d6a861cd 100644
--- a/src/grt/grt-fst.adb
+++ b/src/grt/grt-fst.adb
@@ -372,7 +372,7 @@ package body Grt.Fst is
                Type_C_Name, FST_SVT_VHDL_SIGNAL, Sdt);
          end;
       else
-         Name (Name_Len) := NUL;
+         Name (Name_Len + 1) := NUL;
          Hand := fstWriterCreateVar2
            (Context, Vt, Dir, Len, To_Ghdl_C_String (Name'Address),
             Alias, Type_C_Name, FST_SVT_VHDL_SIGNAL, Sdt);
-- 
cgit v1.2.3