From 09f051e990a8952a404932f1449ee7ef949ad0a7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 1 Mar 2018 06:51:37 +0100
Subject: ghdl_mcode: error message if no file to analyze.

---
 src/ghdldrv/ghdlcomp.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb
index b20d12ac2..5c9d5fe25 100644
--- a/src/ghdldrv/ghdlcomp.adb
+++ b/src/ghdldrv/ghdlcomp.adb
@@ -361,6 +361,11 @@ package body Ghdlcomp is
       Unit : Iir;
       Next_Unit : Iir;
    begin
+      if Args'Length = 0 then
+         Error ("no file to analyze");
+         raise Compilation_Error;
+      end if;
+
       Setup_Libraries (True);
 
       Hooks.Compile_Init.all (True);
-- 
cgit v1.2.3