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

Proper rounding of scaled integer time.

This commit is contained in:
steve 2003-02-02 02:14:14 +00:00
parent 222f15c293
commit 27f7a00df0
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
vvp/vpi_time.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#ifdef HAVE_CVS_IDENT #ifdef HAVE_CVS_IDENT
#ident "$Id: vpi_time.cc,v 1.10 2003/02/01 05:50:04 steve Exp $" #ident "$Id: vpi_time.cc,v 1.11 2003/02/02 02:14:14 steve Exp $"
#endif #endif
# include "vpi_priv.h" # include "vpi_priv.h"
@ -143,11 +143,23 @@ static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
unsigned long x, num_bits; unsigned long x, num_bits;
vvp_time64_t simtime = schedule_simtime(); vvp_time64_t simtime = schedule_simtime();
int units = rfp->scope->time_units; int units = rfp->scope->time_units;
/* Calculate the divisor needed to scale the simulation time
(in time_precision units) to time units of the scope. */
vvp_time64_t divisor = 1;
while (units > vpi_time_precision) { while (units > vpi_time_precision) {
simtime /= 10; divisor *= 10;
units -= 1; units -= 1;
} }
/* Scale the simtime, and use the modulus to round up if
appropriate. */
vvp_time64_t simtime_fraction = simtime % divisor;
simtime /= divisor;
if ((divisor >= 10) && (simtime_fraction >= (divisor/2)))
simtime += 1;
switch (vp->format) { switch (vp->format) {
case vpiObjTypeVal: case vpiObjTypeVal:
case vpiTimeVal: case vpiTimeVal:
@ -243,6 +255,9 @@ void vpip_set_time_precision(int pre)
/* /*
* $Log: vpi_time.cc,v $ * $Log: vpi_time.cc,v $
* Revision 1.11 2003/02/02 02:14:14 steve
* Proper rounding of scaled integer time.
*
* Revision 1.10 2003/02/01 05:50:04 steve * Revision 1.10 2003/02/01 05:50:04 steve
* Make $time and $realtime available to $display uniquely. * Make $time and $realtime available to $display uniquely.
* *