From dfe367903f66c566f9f2b2e075d6c65e7126cb3a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 3 Oct 2017 05:46:34 +0200
Subject: Minor refactoring to simplify interfacing.

---
 src/ghdldrv/ghdllocal.ads | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/ghdldrv/ghdllocal.ads')

diff --git a/src/ghdldrv/ghdllocal.ads b/src/ghdldrv/ghdllocal.ads
index 0809035b1..3624543d8 100644
--- a/src/ghdldrv/ghdllocal.ads
+++ b/src/ghdldrv/ghdllocal.ads
@@ -23,13 +23,16 @@ package Ghdllocal is
    --  Init procedure for the functionnal interface.
    procedure Compile_Init;
 
+   --  Handle:
+   --  --std=xx, --work=xx, -Pxxx, --workdir=x, --ieee=x, -Px, and -v
+   function Decode_Driver_Option (Option : String) return Boolean;
+
    type Command_Lib is abstract new Command_Type with null record;
 
    --  Setup GHDL.  Same as Compile_Init.
    procedure Init (Cmd : in out Command_Lib);
 
-   --  Handle:
-   --  --std=xx, --work=xx, -Pxxx, --workdir=x, --ieee=x, -Px, and -v
+   --  Handle driver options.
    procedure Decode_Option (Cmd : in out Command_Lib;
                             Option : String;
                             Arg : String;
-- 
cgit v1.2.3