From abe17103c669922a7349a7b2238d440b24d29f30 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 5 Dec 2014 06:12:55 +0100
Subject: grt-fst: add comments.

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

(limited to 'src')

diff --git a/src/grt/grt-fst.adb b/src/grt/grt-fst.adb
index 0c3328580..a44a2630d 100644
--- a/src/grt/grt-fst.adb
+++ b/src/grt/grt-fst.adb
@@ -317,6 +317,7 @@ package body Grt.Fst is
          Type_C_Name := To_Ghdl_C_String (Type_Name'Address);
       end if;
 
+      --  Extract name (avoid truncation, append verilog range for arrays).
       Vhpi_Get_Str (VhpiNameP, Sig, Name, Name_Len);
       if Name_Len >= Name'Length
         or else Vcd_El.Irange /= null
@@ -362,6 +363,7 @@ package body Grt.Fst is
             Alias, Type_C_Name, FST_SVT_VHDL_SIGNAL, Sdt);
       end if;
 
+      --  Do not put aliases in the table.
       if Flag_Aliases and then Interfaces.C."/=" (Alias, Null_fstHandle) then
          return;
       end if;
-- 
cgit v1.2.3