Add tf_scale_longdelay.

This commit is contained in:
steve 2003-05-30 04:01:55 +00:00
parent 5903f0744c
commit f003da6621
2 changed files with 18 additions and 2 deletions

View File

@ -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.
*

View File

@ -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.