diff options
| author | gingold | 2009-08-13 04:03:03 +0000 |
|---|---|---|
| committer | gingold | 2009-08-13 04:03:03 +0000 |
| commit | bb07aea45543efdb49a6d4b02a8f30b475aeda5c (patch) | |
| tree | 0f66c73119c2a243fa369b2ab712923d01699a68 /translate/ghdldrv/ghdllocal.adb | |
| parent | a91ee6a3d21f29017c7bcf81a73fa4b1aa189694 (diff) | |
| download | ghdl-bb07aea45543efdb49a6d4b02a8f30b475aeda5c.tar.gz ghdl-bb07aea45543efdb49a6d4b02a8f30b475aeda5c.tar.bz2 ghdl-bb07aea45543efdb49a6d4b02a8f30b475aeda5c.zip | |
Preliminary support for llvm.
Diffstat (limited to 'translate/ghdldrv/ghdllocal.adb')
| -rw-r--r-- | translate/ghdldrv/ghdllocal.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/translate/ghdldrv/ghdllocal.adb b/translate/ghdldrv/ghdllocal.adb index 5cd97b4..7f6149a 100644 --- a/translate/ghdldrv/ghdllocal.adb +++ b/translate/ghdldrv/ghdllocal.adb @@ -53,6 +53,10 @@ package body Ghdllocal is Config : Iir_Design_Unit; Lib : Iir; begin + if (Main or Flags.Dump_All) and then Flags.Dump_Parse then + Disp_Tree.Disp_Tree (Unit); + end if; + if Flags.Verbose then Put_Line ("semantize " & Disp_Node (Get_Library_Unit (Unit))); end if; @@ -67,6 +71,10 @@ package body Ghdllocal is raise Compilation_Error; end if; + if (Main or Flags.List_All) and then Flags.List_Sem then + Disp_Vhdl.Disp_Vhdl (Unit); + end if; + Post_Sems.Post_Sem_Checks (Unit); if Errorout.Nbr_Errors > 0 then |