diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-03 07:39:50 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-06 20:10:53 +0200 |
| commit | 37a6c987d59303b8c8e2c1407cc0f7d9c414f5d3 (patch) | |
| tree | 89ee2efd73c4a9d11a6ded15d853d5ffbefda3de | |
| parent | cfb359f0b05e9042c1045213b93b09e465fa8ccc (diff) | |
| download | ghdl-37a6c987d59303b8c8e2c1407cc0f7d9c414f5d3.tar.gz ghdl-37a6c987d59303b8c8e2c1407cc0f7d9c414f5d3.tar.bz2 ghdl-37a6c987d59303b8c8e2c1407cc0f7d9c414f5d3.zip | |
grt/ghdl_main: add comments.
| -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; |