diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-10-17 06:27:54 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-10-17 06:27:54 +0200 |
commit | 3b58d4bbef3902d444c60c6d647ec2b083ad166e (patch) | |
tree | 31129dda44db925c5b3a83821e302aa3e239ec85 /src/ghdldrv | |
parent | 20a49e1ed483deea8531fef92ac0064355eed729 (diff) | |
download | ghdl-3b58d4bbef3902d444c60c6d647ec2b083ad166e.tar.gz ghdl-3b58d4bbef3902d444c60c6d647ec2b083ad166e.tar.bz2 ghdl-3b58d4bbef3902d444c60c6d647ec2b083ad166e.zip |
nodes_gc: move checks in libraries (WIP)
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 5d7dd7a28..18ed69380 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -24,7 +24,6 @@ with Ada.Text_IO; with Types; with Iirs; use Iirs; -with Nodes_GC; with Flags; with Sem; with Name_Table; @@ -38,9 +37,6 @@ package body Ghdlcomp is Flag_Expect_Failure : Boolean := False; - Flag_Debug_Nodes_Leak : Boolean := False; - -- If True, detect unreferenced nodes at the end of analysis. - -- Commands which use the mcode compiler. type Command_Comp is abstract new Command_Lib with null record; procedure Decode_Option (Cmd : in out Command_Comp; @@ -58,8 +54,8 @@ package body Ghdlcomp is if Option = "--expect-failure" then Flag_Expect_Failure := True; Res := Option_Ok; - elsif Option = "--debug-nodes-leak" then - Flag_Debug_Nodes_Leak := True; + elsif Option = "--check-ast" then + Flags.Check_Ast_Level := Flags.Check_Ast_Level + 1; Res := Option_Ok; elsif Hooks.Decode_Option.all (Option) then Res := Option_Ok; @@ -377,10 +373,6 @@ package body Ghdlcomp is raise Compilation_Error; end if; - if Flag_Debug_Nodes_Leak then - Nodes_GC.Report_Unreferenced; - end if; - Libraries.Save_Work_Library; exception |