From a9d86c3387b11b5d514438621d50d31543ffc317 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 21 Dec 2014 07:38:56 +0100
Subject: vhpi: handle FileNameP

---
 src/grt/grt-avhpi.adb | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/grt/grt-avhpi.adb')

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 =>
-- 
cgit v1.2.3