diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-03-11 03:59:41 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-03-11 03:59:41 +0100 |
| commit | 3616beb1af38eadd3428da8ac427eb171c77159b (patch) | |
| tree | dd6aef3cb6cfc0a7453238544beae0642500e816 /src/grt/grt-fst.adb | |
| parent | c813833761b81a72db056b5b6f6a2b9fd4ff0d87 (diff) | |
| download | ghdl-3616beb1af38eadd3428da8ac427eb171c77159b.tar.gz ghdl-3616beb1af38eadd3428da8ac427eb171c77159b.tar.bz2 ghdl-3616beb1af38eadd3428da8ac427eb171c77159b.zip | |
Fix truncated simple name in fst dump.
Diffstat (limited to 'src/grt/grt-fst.adb')
| -rw-r--r-- | src/grt/grt-fst.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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); |