From 98c4de59417b92b3b270afc27f9cab2f3dd7e45b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 12 Dec 2018 06:51:34 +0100
Subject: translation: avoid crash after error in VHPIDIRECT extraction.

---
 src/vhdl/translate/translation.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/vhdl/translate')

diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb
index 3aa021add..9cc217d7e 100644
--- a/src/vhdl/translate/translation.adb
+++ b/src/vhdl/translate/translation.adb
@@ -139,6 +139,9 @@ package body Translation is
             if P > Length then
                Error_Msg_Sem
                  (+Spec, "missing subprogram/library name after VHPIDIRECT");
+               Info.Lib_Len := 0;
+               Info.Subprg_Len := 0;
+               return Info;
             end if;
             --  Extract library.
             Lf := P;
-- 
cgit v1.2.3