diff options
| -rw-r--r-- | src/grt/ghdl_main.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/grt/ghdl_main.adb b/src/grt/ghdl_main.adb index 4311e603a..c36e1b851 100644 --- a/src/grt/ghdl_main.adb +++ b/src/grt/ghdl_main.adb @@ -46,8 +46,15 @@ is My_Argv : Grt.Options.Argv_Type := To_Argv_Type (Argv); begin + -- Ada elaboration. Grt_Init; + + -- Set the options. Grt.Main.Run_Options (My_Argv (0), Argc, My_Argv); + + -- Initialize, elaborate and simulate. Grt.Main.Run; + + -- Return the status. return Grt.Errors.Exit_Status; end Ghdl_Main; |