From 80eacd9d2a9b09fc69ab88adefa64c1a26e5aa52 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 4 Sep 2017 03:57:39 +0200
Subject: vpi: report timeprecision as 1ps

Fix #403
---
 src/grt/grt-vpi.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb
index a0c413c3b..a3db80a6e 100644
--- a/src/grt/grt-vpi.adb
+++ b/src/grt/grt-vpi.adb
@@ -479,12 +479,12 @@ package body Grt.Vpi is
          when vpiType =>
             Res := Ref.mType;
          when vpiTimePrecision =>
-            Res := -9; -- is this nano-seconds?
+            Res := -12; -- In ps.
          when vpiSize =>
             Res := Vpi_Get_Size (Ref);
          when vpiVector =>
             Res := Boolean'Pos (Vpi_Get_Vector (Ref));
-         when others=>
+         when others =>
             dbgPut_Line ("vpi_get: unknown property");
             Res := 0;
       end case;
-- 
cgit v1.2.3