From 7346d1a7fcf241c9eb797bd896f44d08a341f6a1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 19 Dec 2018 07:35:19 +0100
Subject: sem_scopes: add assertion.

---
 src/vhdl/sem_scopes.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/sem_scopes.adb b/src/vhdl/sem_scopes.adb
index 617f7bedc..16be2a29d 100644
--- a/src/vhdl/sem_scopes.adb
+++ b/src/vhdl/sem_scopes.adb
@@ -454,6 +454,8 @@ package body Sem_Scopes is
          Last_In_Region := Ident;
       end Add_New_Interpretation;
    begin
+      pragma Assert (Ident /= Null_Identifier);
+
       if not Valid_Interpretation (Raw_Inter) then
          --  Very simple: no hidding, no overloading.
          Add_New_Interpretation (True);
-- 
cgit v1.2.3