diff options
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)); |