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/libraries.adb | |
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/libraries.adb')
-rw-r--r-- | src/libraries.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index bb8b69089..4258eeaea 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -37,6 +37,7 @@ with Disp_Vhdl; with Sem; with Post_Sems; with Canon; +with Nodes_GC; package body Libraries is -- Chain of known libraries. This is also the top node of all iir node. @@ -1556,6 +1557,10 @@ package body Libraries is Disp_Tree.Disp_Tree (Unit); end if; + if Flags.Check_Ast_Level > 0 then + Nodes_GC.Check_Tree (Unit); + end if; + if Flags.Verbose then Report_Msg (Msgid_Note, Semantic, +Lib_Unit, "analyze %n", (1 => +Lib_Unit)); |