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

Refix vpiRealVal scaling of time.

This commit is contained in:
steve 2003-03-14 18:01:00 +00:00
parent f2106416a7
commit 857ec1079a
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
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.14 2003/03/13 20:31:41 steve Exp $" #ident "$Id: vpi_time.cc,v 1.15 2003/03/14 18:01:00 steve Exp $"
#endif #endif
# include "config.h" # include "config.h"
@ -165,14 +165,19 @@ static void timevar_get_value(vpiHandle ref, s_vpi_value*vp)
switch (vp->format) { switch (vp->format) {
case vpiObjTypeVal: case vpiObjTypeVal:
/* The default format is vpiTimeVal. */
vp->format = vpiTimeVal;
case vpiTimeVal: case vpiTimeVal:
vp->value.time = &time_value; vp->value.time = &time_value;
vp->value.time->type = vpiSimTime; vp->value.time->type = vpiSimTime;
vpip_time_to_timestruct(vp->value.time, simtime); vpip_time_to_timestruct(vp->value.time, simtime);
vp->format = vpiTimeVal;
break; break;
case vpiRealVal: 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. */
units = rfp->scope? rfp->scope->time_units : vpi_time_precision;
vp->value.real = pow(10, vpi_time_precision - units); vp->value.real = pow(10, vpi_time_precision - units);
vp->value.real *= schedule_simtime(); vp->value.real *= schedule_simtime();
break; break;
@ -269,6 +274,9 @@ void vpip_set_time_precision(int pre)
/* /*
* $Log: vpi_time.cc,v $ * $Log: vpi_time.cc,v $
* Revision 1.15 2003/03/14 18:01:00 steve
* Refix vpiRealVal scaling of time.
*
* Revision 1.14 2003/03/13 20:31:41 steve * Revision 1.14 2003/03/13 20:31:41 steve
* Warnings about long long time. * Warnings about long long time.
* *