diff options
| -rw-r--r-- | src/grt/grt-avhpi.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb index 434e999..16bbad6 100644 --- a/src/grt/grt-avhpi.adb +++ b/src/grt/grt-avhpi.adb @@ -621,6 +621,13 @@ package body Grt.Avhpi is Len := 0; case Property is + when VhpiFileNameP => + declare + Str : Ghdl_C_String; + begin + Vhpi_Get_Str (Property, Obj, Str); + Add (Str); + end; when VhpiNameP => case Obj.Kind is when VhpiEnumTypeDeclK => |