From b4e20d8af1e23ab124a2f42d7eb56e86aa7850aa Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 13 Mar 2019 19:52:46 +0100
Subject: vhdl: handle names starting with '_' as an identifier.

Remove assertion.
Fix #779
---
 src/vhdl/sem.adb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/vhdl/sem.adb')

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index 89babd3fc..7cecd3d6b 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -3281,6 +3281,7 @@ package body Sem is
 
       --  Analyze the library unit.
       if Library_Unit /= Null_Iir then
+         --  Can be null_iir in case of parse error.
          case Iir_Kinds_Library_Unit (Get_Kind (Library_Unit)) is
             when Iir_Kind_Entity_Declaration =>
                Sem_Entity_Declaration (Library_Unit);
@@ -3297,9 +3298,6 @@ package body Sem is
             when Iir_Kind_Context_Declaration =>
                Sem_Context_Declaration (Library_Unit);
          end case;
-      else
-         pragma Assert (Flags.Flag_Force_Analysis);
-         null;
       end if;
 
       Close_Declarative_Region;
-- 
cgit v1.2.3