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 * This source code is free software; you can redistribute it
* and/or modify it in source code form under the terms of the GNU * 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, bool is_int_func)
static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
{ {
/* Keep a persistent structure for passing time values back to /* Keep a persistent structure for passing time values back to
the caller. */ the caller. */
@ -210,10 +209,12 @@ static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
break; break;
case vpiRealVal: case vpiRealVal:
/* Oops, in this case I want a double power of 10 to do /* If this is an integer based call (anything but $realtime)
the scaling, instead of the integer scaling done * just return the value as a double. */
everywhere else. */ if (is_int_func) vp->value.real = double (simtime);
vp->value.real = vpip_time_to_scaled_real(schedule_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); rfp->scope);
break; 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 = { static const struct __vpirt vpip_system_time_rt = {
vpiSysFuncCall, vpiSysFuncCall,
timevar_time_get, timevar_time_get,
timevar_time_get_str, timevar_time_get_str,
timevar_get_value, timevar_get_ivalue,
0, 0,
timevar_handle, timevar_handle,
0 0
@ -265,7 +276,7 @@ static const struct __vpirt vpip_system_simtime_rt = {
vpiSysFuncCall, vpiSysFuncCall,
timevar_time_get, timevar_time_get,
timevar_simtime_get_str, timevar_simtime_get_str,
timevar_get_value, timevar_get_ivalue,
0, 0,
timevar_handle, timevar_handle,
0 0
@ -275,7 +286,7 @@ static const struct __vpirt vpip_system_realtime_rt = {
vpiSysFuncCall, vpiSysFuncCall,
timevar_realtime_get, timevar_realtime_get,
timevar_realtime_get_str, timevar_realtime_get_str,
timevar_get_value, timevar_get_rvalue,
0, 0,
timevar_handle, timevar_handle,
0 0
@ -315,4 +326,3 @@ void vpip_set_time_precision(int pre)
{ {
vpi_time_precision = pre; vpi_time_precision = pre;
} }