From 2851e70ffac0e2074a8fc3111410e42c16999bb2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 14 Sep 2015 21:25:01 +0200
Subject: grt: add --list-features, and --has-feature

---
 src/grt/ghdl_main.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/grt/ghdl_main.adb')

diff --git a/src/grt/ghdl_main.adb b/src/grt/ghdl_main.adb
index 2d1a008..86f11aa 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
-- 
cgit