From 517a3edcd4d7d97cdfe3301e362859eb816aeb29 Mon Sep 17 00:00:00 2001
From: gingold
Date: Tue, 20 Dec 2005 15:05:23 +0000
Subject: bugs fix for ghw writer

---
 translate/grt/grt-signals.adb | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'translate/grt/grt-signals.adb')

diff --git a/translate/grt/grt-signals.adb b/translate/grt/grt-signals.adb
index 520fbe4..5b3a12f 100644
--- a/translate/grt/grt-signals.adb
+++ b/translate/grt/grt-signals.adb
@@ -1095,15 +1095,6 @@ package body Grt.Signals is
          when others =>
             Internal_Error ("ghdl_create_signal_attribute");
       end case;
---       Sig_Instance_Name := new Ghdl_Instance_Name_Type'
---         (Kind => Ghdl_Name_Signal,
---          Name => null,
---          Parent => null,
---          Brother => null,
---          Sig_Mode => Mode,
---          Sig_Kind => Kind_Signal_No,
---        Sig_Indexes => (First => Sig_Table.Last + 1, Last => Sig_Table.Last),
---          Sig_Type_Desc => Sig_Type);
       --  Note: bit and boolean are both mode_b2.
       Res := Create_Signal
         (Mode_B2, Value_Union'(Mode => Mode_B2, B2 => True),
-- 
cgit