From b8295177d57530f71af9f9163e97d840095fd39d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 14 May 2015 22:08:01 +0200
Subject: Avoid a crash for incorrect allocator.

Fix ticket 63
---
 src/vhdl/sem_expr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb
index 46e75f31c..dc24d597c 100644
--- a/src/vhdl/sem_expr.adb
+++ b/src/vhdl/sem_expr.adb
@@ -3564,7 +3564,7 @@ package body Sem_Expr is
                Arg := Sem_Types.Sem_Subtype_Indication (Arg);
                Set_Subtype_Indication (Expr, Arg);
                Arg := Get_Type_Of_Subtype_Indication (Arg);
-               if Arg = Null_Iir then
+               if Arg = Null_Iir or else Is_Error (Arg) then
                   return Null_Iir;
                end if;
                --  LRM93 7.3.6
-- 
cgit v1.2.3