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