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/ghdllocal.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/ghdllocal.adb')
-rw-r--r-- | src/ghdldrv/ghdllocal.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index dfc206649..a28c44bee 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -108,14 +108,19 @@ package body Ghdllocal is end if; end Finish_Compilation; - procedure Init (Cmd : in out Command_Lib) - is - pragma Unreferenced (Cmd); + procedure Compile_Init is begin Options.Initialize; Flag_Ieee := Lib_Standard; Back_End.Finish_Compilation := Finish_Compilation'Access; Flag_Verbose := False; + end Compile_Init; + + procedure Init (Cmd : in out Command_Lib) + is + pragma Unreferenced (Cmd); + begin + Compile_Init; end Init; procedure Decode_Option (Cmd : in out Command_Lib; |