From c8ec04b7ddb029a08bb065cb96902c2fcbfde335 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 29 Dec 2013 11:51:30 +0100
Subject: Improve error message.

---
 parse.adb | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/parse.adb b/parse.adb
index 6410edd3b..ca5640455 100644
--- a/parse.adb
+++ b/parse.adb
@@ -948,8 +948,13 @@ package body Parse is
                end if;
                Inter := Create_Iir (Iir_Kind_File_Interface_Declaration);
             when Tok_Right_Paren =>
-               Error_Msg_Parse
-                 ("extra ';' at end of interface list", Prev_Loc);
+               if Res = Null_Iir then
+                  Error_Msg_Parse
+                    ("empty interface list not allowed", Prev_Loc);
+               else
+                  Error_Msg_Parse
+                    ("extra ';' at end of interface list", Prev_Loc);
+               end if;
                exit;
             when others =>
                Error_Msg_Parse
-- 
cgit v1.2.3