Add tf_scale_longdelay.
This commit is contained in:
parent
5903f0744c
commit
f003da6621
|
|
@ -17,7 +17,7 @@
|
|||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||
*/
|
||||
#ifdef HAVE_CVS_IDENT
|
||||
#ident "$Id: getsimtime.c,v 1.7 2003/05/28 03:14:20 steve Exp $"
|
||||
#ident "$Id: getsimtime.c,v 1.8 2003/05/30 04:01:55 steve Exp $"
|
||||
#endif
|
||||
|
||||
#include <veriuser.h>
|
||||
|
|
@ -93,6 +93,14 @@ PLI_INT32 tf_igetlongtime(PLI_INT32 *high, void*obj)
|
|||
PLI_INT32 tf_getlongsimtime(PLI_INT32 *high) \
|
||||
__attribute__ ((weak, alias ("tf_getlongtime")));
|
||||
|
||||
void tf_scale_longdelay(void*obj, PLI_INT32 lo, PLI_INT32 hi,
|
||||
PLI_INT32 *low, PLI_INT32 *high)
|
||||
{
|
||||
long long scaled = scale(hi, lo, obj);
|
||||
*high = (scaled >> 32) & 0xffffffff;
|
||||
*low = scaled & 0xffffffff;
|
||||
}
|
||||
|
||||
|
||||
PLI_INT32 tf_gettimeprecision(void)
|
||||
{
|
||||
|
|
@ -121,6 +129,9 @@ PLI_INT32 tf_igettimeunit(void*obj)
|
|||
|
||||
/*
|
||||
* $Log: getsimtime.c,v $
|
||||
* Revision 1.8 2003/05/30 04:01:55 steve
|
||||
* Add tf_scale_longdelay.
|
||||
*
|
||||
* Revision 1.7 2003/05/28 03:14:20 steve
|
||||
* Missing time related declarations.
|
||||
*
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@
|
|||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||
*/
|
||||
#ifdef HAVE_CVS_IDENT
|
||||
#ident "$Id: veriuser.h,v 1.28 2003/05/29 03:46:21 steve Exp $"
|
||||
#ident "$Id: veriuser.h,v 1.29 2003/05/30 04:01:55 steve Exp $"
|
||||
#endif
|
||||
|
||||
/*
|
||||
|
|
@ -261,6 +261,8 @@ extern PLI_INT32 tf_gettime(void);
|
|||
extern PLI_INT32 tf_getlongtime(PLI_INT32*);
|
||||
extern PLI_INT32 tf_igetlongtime(PLI_INT32*, void*);
|
||||
|
||||
extern void tf_scale_longdelay(void*,PLI_INT32,PLI_INT32,PLI_INT32*,PLI_INT32*);
|
||||
|
||||
extern PLI_INT32 tf_gettimeprecision(void);
|
||||
extern PLI_INT32 tf_igettimeprecision(void*);
|
||||
|
||||
|
|
@ -322,6 +324,9 @@ EXTERN_C_END
|
|||
|
||||
/*
|
||||
* $Log: veriuser.h,v $
|
||||
* Revision 1.29 2003/05/30 04:01:55 steve
|
||||
* Add tf_scale_longdelay.
|
||||
*
|
||||
* Revision 1.28 2003/05/29 03:46:21 steve
|
||||
* Add tf_getp/putp support for integers
|
||||
* and real valued arguments.
|
||||
|
|
|
|||
Loading…
Reference in New Issue