diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-09 06:26:33 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-09 06:26:33 +0200 |
| commit | deb8888cec67e91b834f97b16cb29774d63e9c68 (patch) | |
| tree | 0834f58367eb4d65a59bc0efc8738e60ed971ac0 | |
| parent | 6d21f84aeb96107be1405d57a6d93e6155fb1fd6 (diff) | |
| download | ghdl-deb8888cec67e91b834f97b16cb29774d63e9c68.tar.gz ghdl-deb8888cec67e91b834f97b16cb29774d63e9c68.tar.bz2 ghdl-deb8888cec67e91b834f97b16cb29774d63e9c68.zip | |
vpi: avoid a crash on anynomous subtype.
Fix #283
| -rw-r--r-- | src/grt/grt-vpi.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |