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 | |
| parent | 82548be462091370f1fbd664c590bebe8f6f7096 (diff) | |
| download | ghdl-98c4de59417b92b3b270afc27f9cab2f3dd7e45b.tar.gz ghdl-98c4de59417b92b3b270afc27f9cab2f3dd7e45b.tar.bz2 ghdl-98c4de59417b92b3b270afc27f9cab2f3dd7e45b.zip | |
translation: avoid crash after error in VHPIDIRECT extraction.
| -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; |