diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-12-21 07:38:56 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-12-21 07:38:56 +0100 |
| commit | a9d86c3387b11b5d514438621d50d31543ffc317 (patch) | |
| tree | d3603cc9a0abbfe3afe9dbb1f84fb36cfb4a053b /src/grt/grt-avhpi.adb | |
| parent | 9a0c4d848946d6057722ca423d6096e20731404a (diff) | |
| download | ghdl-a9d86c3387b11b5d514438621d50d31543ffc317.tar.gz ghdl-a9d86c3387b11b5d514438621d50d31543ffc317.tar.bz2 ghdl-a9d86c3387b11b5d514438621d50d31543ffc317.zip | |
vhpi: handle FileNameP
Diffstat (limited to 'src/grt/grt-avhpi.adb')
| -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 434e99938..16bbad61b 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 => |