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

Account for all 64 bits in results of $time.

This commit is contained in:
steve 2003-06-18 00:54:28 +00:00
parent 2894c021e7
commit ae418c6a6d
2 changed files with 39 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
vpi/sys_time.c
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#ifdef HAVE_CVS_IDENT
#ident "$Id: sys_time.c,v 1.8 2003/02/07 02:44:25 steve Exp $"
#ident "$Id: sys_time.c,v 1.9 2003/06/18 00:54:28 steve Exp $"
#endif
# include "config.h"
@ -80,15 +80,22 @@ static int sys_time_calltf(char*name)
units -= 1;
}
val.format = vpiIntVal;
val.value.integer = now.low;
assert(now.high == 0);
assert(8*sizeof(long long) >= 64);
{ long long tmp_now = ((long long)now.high) << 32;
tmp_now += (long long)now.low;
frac = tmp_now % (long long)scale;
tmp_now /= (long long)scale;
frac = val.value.integer % scale;
val.value.integer /= scale;
/* Round to the nearest integer, which may be up. */
if ((scale > 1) && (frac >= scale/2))
val.value.integer += 1;
/* Round to the nearest integer, which may be up. */
if ((scale > 1) && (frac >= scale/2))
tmp_now += 1;
now.low = tmp_now & 0xffffffff;
now.high = tmp_now >> 32LL;
}
val.format = vpiTimeVal;
val.value.time = &now;
vpi_put_value(call_handle, &val, 0, vpiNoDelay);
@ -162,6 +169,9 @@ void sys_time_register()
/*
* $Log: sys_time.c,v $
* Revision 1.9 2003/06/18 00:54:28 steve
* Account for all 64 bits in results of $time.
*
* Revision 1.8 2003/02/07 02:44:25 steve
* Properly round inter time values from $time.
*

21
vvp/vpi_tasks.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#ifdef HAVE_CVS_IDENT
#ident "$Id: vpi_tasks.cc,v 1.23 2003/03/14 05:00:44 steve Exp $"
#ident "$Id: vpi_tasks.cc,v 1.24 2003/06/18 00:54:28 steve Exp $"
#endif
/*
@ -165,6 +165,22 @@ static vpiHandle sysfunc_put_value(vpiHandle ref, p_vpi_value vp,
break;
}
case vpiTimeVal:
for (int idx = 0 ; idx < rfp->vwid ; idx += 1) {
PLI_INT32 word;
if (idx >= 32)
word = vp->value.time->high;
else
word = vp->value.time->low;
word >>= idx % 32;
vthread_put_bit(vpip_current_vthread,
rfp->vbit+idx, word&1);
}
break;
case vpiScalarVal:
switch (vp->value.scalar) {
case vpi0:
@ -471,6 +487,9 @@ void* vpi_get_userdata(vpiHandle ref)
/*
* $Log: vpi_tasks.cc,v $
* Revision 1.24 2003/06/18 00:54:28 steve
* Account for all 64 bits in results of $time.
*
* Revision 1.23 2003/03/14 05:00:44 steve
* Support vpi_get of vpiTimeUnit.
*