diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-12 06:51:34 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-12 06:51:34 +0100 |
commit | 98c4de59417b92b3b270afc27f9cab2f3dd7e45b (patch) | |
tree | 8cab00705d86a7cb0918a42dc591b6f1153216de /src | |
parent | 82548be462091370f1fbd664c590bebe8f6f7096 (diff) | |
download | ghdl-98c4de59417b92b3b270afc27f9cab2f3dd7e45b.tar.gz ghdl-98c4de59417b92b3b270afc27f9cab2f3dd7e45b.tar.bz2 ghdl-98c4de59417b92b3b270afc27f9cab2f3dd7e45b.zip |
translation: avoid crash after error in VHPIDIRECT extraction.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/translate/translation.adb | 3 |
1 files changed, 3 insertions, 0 deletions
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; |