diff options
Diffstat (limited to 'src/vhdl/translate/translation.adb')
-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; |