luke
/
iverilog
mirror of https://github.com/steveicarus/iverilog.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

$time, $stime and $simtime return an integer rounded value for %f 

The $time, $stime, $simtime (integer time) system functions should
return a rounded integer value in a real context.
This commit is contained in:
Cary R 2008-08-01 17:19:40 -07:00 committed by Stephen Williams
parent 61930c3b6e
commit aeec93a322
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
vvp/vpi_time.cc
View File

@ -1,5 +1,5 @@
/*
* Copyright (c) 2001-2007 Stephen Williams (steve@icarus.com)
* Copyright (c) 2001-2008 Stephen Williams (steve@icarus.com)
*
* This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU
@ -168,8 +168,7 @@ static vpiHandle timevar_handle(int code, vpiHandle ref)
}
}
static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
static void timevar_get_value(vpiHandle ref, s_vpi_value*vp, bool is_int_func)
{
/* Keep a persistent structure for passing time values back to
the caller. */
@ -210,10 +209,12 @@ static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
break;
case vpiRealVal:
/* Oops, in this case I want a double power of 10 to do
the scaling, instead of the integer scaling done
everywhere else. */
vp->value.real = vpip_time_to_scaled_real(schedule_simtime(),
/* If this is an integer based call (anything but $realtime)
* just return the value as a double. */
if (is_int_func) vp->value.real = double (simtime);
/* This is a call to $realtime to return a real value so
* scale this using the scaled real rules. */
else vp->value.real = vpip_time_to_scaled_real(schedule_simtime(),
rfp->scope);
break;
@ -251,11 +252,21 @@ static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
}
}
static void timevar_get_ivalue(vpiHandle ref, s_vpi_value*vp)
{
timevar_get_value(ref, vp, true);
}
static void timevar_get_rvalue(vpiHandle ref, s_vpi_value*vp)
{
timevar_get_value(ref, vp, false);
}
static const struct __vpirt vpip_system_time_rt = {
vpiSysFuncCall,
timevar_time_get,
timevar_time_get_str,
timevar_get_value,
timevar_get_ivalue,
0,
timevar_handle,
0
@ -265,7 +276,7 @@ static const struct __vpirt vpip_system_simtime_rt = {
vpiSysFuncCall,
timevar_time_get,
timevar_simtime_get_str,
timevar_get_value,
timevar_get_ivalue,
0,
timevar_handle,
0
@ -275,7 +286,7 @@ static const struct __vpirt vpip_system_realtime_rt = {
vpiSysFuncCall,
timevar_realtime_get,
timevar_realtime_get_str,
timevar_get_value,
timevar_get_rvalue,
0,
timevar_handle,
0
@ -315,4 +326,3 @@ void vpip_set_time_precision(int pre)
{
vpi_time_precision = pre;
}