Warn on unexpected options for command '-a'. Fix #1066

5 files changed, 33 insertions, 2 deletions

diff --git a/src/errorout.ads b/src/errorout.ads
index 08d0c3fcd..5888193dc 100644
--- a/src/errorout.ads
+++ b/src/errorout.ads
@@ -39,6 +39,9 @@ package Errorout is
       --  Option is deprecated.
       Warnid_Deprecated_Option,
 
+      --  Unexpected option.
+      Warnid_Unexpected_Option,
+
       --  Missing Xref in pretty print.
       Warnid_Missing_Xref,
 
@@ -305,9 +308,14 @@ private
      (Warnid_Library | Warnid_Binding | Warnid_Port | Warnid_Shared
         | Warnid_Runtime_Error | Warnid_Pure | Warnid_Specs | Warnid_Hide
         | Warnid_Pragma | Warnid_Analyze_Assert | Warnid_Attribute
-        | Warnid_Deprecated_Option
+        | Warnid_Deprecated_Option | Warnid_Unexpected_Option
         | Msgid_Warning  => (Enabled => True, Error => False),
-      others             => (Enabled => False, Error => False));
+      Warnid_Delta_Cycle | Warnid_Body | Warnid_Static | Warnid_Nested_Comment
+        | Warnid_Universal | Warnid_Port_Bounds
+        | Warnid_Others | Warnid_Reserved_Word | Warnid_Directive
+        | Warnid_Parenthesis | Warnid_Delayed_Checks | Warnid_Default_Binding
+        | Warnid_Vital_Generic | Warnid_Missing_Xref
+        | Warnid_Unused => (Enabled => False, Error => False));
 
    --  Compute the column from Error_Record E.
    function Get_Error_Col (E : Error_Record) return Natural;
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb
index 5a5ae3536..c0915af98 100644
--- a/src/ghdldrv/ghdlcomp.adb
+++ b/src/ghdldrv/ghdlcomp.adb
@@ -444,6 +444,8 @@ package body Ghdlcomp is
          raise Compilation_Error;
       end if;
 
+      Expect_Filenames (Args);
+
       Hooks.Compile_Init.all (True);
 
       --  Parse all files.
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index 4d4ebfa61..c382f22bf 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -907,6 +907,9 @@ package body Ghdldrv is
          Error ("no file to analyze");
          raise Option_Error;
       end if;
+
+      Expect_Filenames (Args);
+
       Setup_Compiler (False);
 
       for I in Args'Range loop
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 40f2eb984..3baea8889 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -1707,6 +1707,20 @@ package body Ghdllocal is
       end if;
    end Extract_Elab_Unit;
 
+   procedure Expect_Filenames (Args : Argument_List)
+   is
+      use Errorout;
+   begin
+      for I in Args'Range loop
+         if Args (I)(Args (I)'First) = '-' then
+            Warning_Msg_Option
+              (Warnid_Unexpected_Option,
+               "no option expected after files, use ./" & Args (I).all);
+            exit;
+         end if;
+      end loop;
+   end Expect_Filenames;
+
    --  Command Elab_Order.
    type Command_Elab_Order is new Command_Lib with null record;
    function Decode_Command (Cmd : Command_Elab_Order; Name : String)
diff --git a/src/ghdldrv/ghdllocal.ads b/src/ghdldrv/ghdllocal.ads
index 042c51d87..230ddd7f5 100644
--- a/src/ghdldrv/ghdllocal.ads
+++ b/src/ghdldrv/ghdllocal.ads
@@ -156,5 +156,9 @@ package Ghdllocal is
    --  name is incorrect.
    function Decode_Generic_Override_Option (Opt : String) return Option_State;
 
+   --  Emit a warning if an argument is not a filename (ie looks like an
+   --  option).
+   procedure Expect_Filenames (Args : Argument_List);
+
    procedure Register_Commands;
 end Ghdllocal;