From 1171507e898db362faa6299bdc845073cd3beeae Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 15 Jan 2015 06:53:00 +0100
Subject: parser: improve error message and recovery on = for default
 expression.

---
 src/vhdl/parse.adb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index fef73472e..1eb513ff5 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -2950,6 +2950,13 @@ package body Parse is
          --  Skip ':='.
          Scan;
 
+         Default_Value := Parse_Expression;
+      elsif Current_Token = Tok_Equal then
+         Error_Msg_Parse ("= should be := for initial value");
+
+         --  Skip '='
+         Scan;
+
          Default_Value := Parse_Expression;
       else
          Default_Value := Null_Iir;
-- 
cgit v1.2.3