There is a new --write-opt-file option that will create a wave option file with all the signals of the design. (#179)

The --wave-opt-file option is renamed to --read-opt-file for consistency

Some code cleanup and bug fixes

1 files changed, 0 insertions, 67 deletions

diff --git a/src/grt/grt-wave_opt_file-parse-debug.adb b/src/grt/grt-wave_opt_file-parse-debug.adb
deleted file mode 100644
index 3461c9f3c..000000000
--- a/src/grt/grt-wave_opt_file-parse-debug.adb
+++ /dev/null
@@ -1,67 +0,0 @@
---  GHDL Run Time (GRT) - Wave option file package for debugging.
---  Copyright (C) 2016 Jonas Baggett
---
---  GHDL is free software; you can redistribute it and/or modify it under
---  the terms of the GNU General Public License as published by the Free
---  Software Foundation; either version 2, or (at your option) any later
---  version.
---
---  GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
---  WARRANTY; without even the implied warranty of MERCHANTABILITY or
---  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
---  for more details.
---
---  You should have received a copy of the GNU General Public License
---  along with GCC; see the file COPYING.  If not, write to the Free
---  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
---  02111-1307, USA.
---
---  As a special exception, if other files instantiate generics from this
---  unit, or you link this unit with other files to produce an executable,
---  this unit does not by itself cause the resulting executable to be
---  covered by the GNU General Public License. This exception does not
---  however invalidate any other reasons why the executable file might be
---  covered by the GNU Public License.
-
--- Description: See package specifications
-
-with Grt.Astdio; use Grt.Astdio;
-
-package body Grt.Wave_Opt_File.Parse.Debug is
-
-   -- Dump recursively an element of the tree.
-   procedure Dump_Sub_Tree (Cursor : Elem_Acc);
-
-   procedure Dump_Tree is
-   begin
-      New_Line;
-      for Index in Tree_Index_Type'Range loop
-         Put_Line ("----------------------------");
-         if Index = Pkg then
-            Put_Line ("Packages : ");
-         else
-            Put_Line ("Instances : ");
-         end if;
-         Dump_Sub_Tree (Trees (Index));
-      end loop;
-      Put_Line ("----------- END -----------------");
-      New_Line;
-   end Dump_Tree;
-
--------------------------------------------------------------------------------
-
-   procedure Dump_Sub_Tree (Cursor : Elem_Acc)
-   is
-      Sibling_Cursor : Elem_Acc;
-   begin
-      Sibling_Cursor := Cursor;
-      while Sibling_Cursor /= null loop
-         Put ((3 .. 2 * Sibling_Cursor.Level => ' '));
-         Put ('/');
-         Put_Line (Sibling_Cursor.Name.all);
-         Dump_Sub_Tree (Sibling_Cursor.Next_Child);
-         Sibling_Cursor := Sibling_Cursor.Next_Sibling;
-      end loop;
-   end Dump_Sub_Tree;
-
-end Grt.Wave_Opt_File.Parse.Debug;