diff options
-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); |