From deb8888cec67e91b834f97b16cb29774d63e9c68 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 9 Jun 2017 06:26:33 +0200
Subject: vpi: avoid a crash on anynomous subtype.

Fix #283
---
 src/grt/grt-vpi.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb
index 52a06c6d2..a0c413c3b 100644
--- a/src/grt/grt-vpi.adb
+++ b/src/grt/grt-vpi.adb
@@ -1464,7 +1464,7 @@ package body Grt.Vpi is
          exit when Err /= AvhpiErrorOk;
 
          El_Name := Avhpi_Get_Base_Name (Res);
-         exit when Strcasecmp (Name, El_Name);
+         exit when El_Name /= null and then Strcasecmp (Name, El_Name);
       end loop;
    end Find_By_Name;
 
-- 
cgit v1.2.3