diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-05-07 17:43:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-05-07 17:43:03 +0200 |
commit | 8574c1ae9bf66e3520985e0277a3847b1a210e2e (patch) | |
tree | f7d0f45aaf5524a8aab7e07bdcd37d5bf83cf383 /src/ghdldrv/ghdlsimul.adb | |
parent | 6488ea75a11475f4820b27cf7a919fb2b8235912 (diff) | |
download | ghdl-8574c1ae9bf66e3520985e0277a3847b1a210e2e.tar.gz ghdl-8574c1ae9bf66e3520985e0277a3847b1a210e2e.tar.bz2 ghdl-8574c1ae9bf66e3520985e0277a3847b1a210e2e.zip |
ghdldrv: add functionnal API to compile.
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; |