diff options
| -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; |