diff options
Diffstat (limited to 'src/ghdldrv/ghdlsimul.adb')
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb index e17d83c2f..ddf70bbb3 100644 --- a/src/ghdldrv/ghdlsimul.adb +++ b/src/ghdldrv/ghdlsimul.adb @@ -42,8 +42,6 @@ with Execution; with Ghdlcomp; -with Grt.Vpi; -pragma Unreferenced (Grt.Vpi); with Grt.Types; with Grt.Options; with Grt.Errors; @@ -207,8 +205,7 @@ package body Ghdlsimul is Put_Line (" --debug Run with debugger"); end Disp_Long_Help; - procedure Register_Commands - is + procedure Set_Hooks is begin Ghdlcomp.Hooks := (Compile_Init'Access, Compile_Elab'Access, @@ -216,6 +213,17 @@ package body Ghdlsimul is Run'Access, Decode_Option'Access, Disp_Long_Help'Access); + end Set_Hooks; + + procedure Register_Commands is + begin + Set_Hooks; Ghdlcomp.Register_Commands; end Register_Commands; + + procedure Compile_Init is + begin + Ghdllocal.Compile_Init; + Set_Hooks; + end Compile_Init; end Ghdlsimul; |