diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-09-14 21:25:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-09-14 21:25:01 +0200 |
| commit | 2851e70ffac0e2074a8fc3111410e42c16999bb2 (patch) | |
| tree | 537e3195dca56834cdaac820d2dfd2b9c7271193 /src/grt/ghdl_main.adb | |
| parent | 0af83126cae63e9bd71deb924ca1b81c57e590d3 (diff) | |
| download | ghdl-2851e70ffac0e2074a8fc3111410e42c16999bb2.tar.gz ghdl-2851e70ffac0e2074a8fc3111410e42c16999bb2.tar.bz2 ghdl-2851e70ffac0e2074a8fc3111410e42c16999bb2.zip | |
grt: add --list-features, and --has-feature
Diffstat (limited to 'src/grt/ghdl_main.adb')
| -rw-r--r-- | src/grt/ghdl_main.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/grt/ghdl_main.adb b/src/grt/ghdl_main.adb index 2d1a00813..86f11aa5b 100644 --- a/src/grt/ghdl_main.adb +++ b/src/grt/ghdl_main.adb @@ -35,9 +35,7 @@ with Grt.Std_Logic_1164; with Grt.Errors; pragma Warnings (On); - -function Ghdl_Main (Argc : Integer; Argv : System.Address) - return Integer +function Ghdl_Main (Argc : Integer; Argv : System.Address) return Integer is -- Grt_Init corresponds to the 'adainit' subprogram for grt. procedure Grt_Init; @@ -48,6 +46,7 @@ is Default_Progname : constant String := "ghdl_design" & NUL; begin + -- Set program name. if Argc > 0 then Grt.Options.Progname := To_Argv_Type (Argv)(0); else |