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