226 lines
6.0 KiB
C
226 lines
6.0 KiB
C
/* vi:sw=6
|
|
* Copyright (c) 2002,2003 Michael Ruff (mruff at chiaro.com)
|
|
*
|
|
* This source code is free software; you can redistribute it
|
|
* and/or modify it in source code form under the terms of the GNU
|
|
* General Public License as published by the Free Software
|
|
* Foundation; either version 2 of the License, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
|
*/
|
|
#ifdef HAVE_CVS_IDENT
|
|
#ident "$Id: getsimtime.c,v 1.11 2003/06/21 23:40:15 steve Exp $"
|
|
#endif
|
|
|
|
#include <veriuser.h>
|
|
#include <vpi_user.h>
|
|
#include <stdlib.h>
|
|
#include <math.h>
|
|
#include "config.h"
|
|
#include "priv.h"
|
|
#include <assert.h>
|
|
|
|
/*
|
|
* some TF time routines implemented using VPI interface
|
|
*/
|
|
|
|
static ivl_u64_t
|
|
scale(int high, int low, void*obj) {
|
|
vpiHandle hand = vpi_handle(vpiScope, vpi_handle(vpiSysTfCall,0));
|
|
ivl_u64_t scaled;
|
|
|
|
scaled = high;
|
|
scaled = (scaled << 32) | low;
|
|
scaled *= pow(10, vpi_get(vpiTimePrecision,0) -
|
|
vpi_get(vpiTimeUnit,obj ? (vpiHandle)obj : hand));
|
|
|
|
return scaled;
|
|
}
|
|
|
|
|
|
PLI_INT32 tf_gettime(void)
|
|
{
|
|
s_vpi_time time;
|
|
time.type = vpiSimTime;
|
|
vpi_get_time (0, &time);
|
|
return scale(time.high, time.low, 0) & 0xffffffff;
|
|
}
|
|
|
|
char *tf_strgettime(void)
|
|
{
|
|
static char buf[32];
|
|
s_vpi_time time;
|
|
|
|
time.type = vpiSimTime;
|
|
vpi_get_time (0, &time);
|
|
if (time.high)
|
|
snprintf(buf, sizeof(buf)-1, "%u%08u", time.high, time.low);
|
|
else
|
|
snprintf(buf, sizeof(buf)-1, "%u", time.low);
|
|
return buf;
|
|
}
|
|
|
|
PLI_INT32 tf_igetlongtime(PLI_INT32 *high, void*obj)
|
|
{
|
|
s_vpi_time time;
|
|
ivl_u64_t scaled;
|
|
time.type = vpiSimTime;
|
|
vpi_get_time ((vpiHandle)obj, &time);
|
|
scaled = scale(time.high, time.low, obj);
|
|
|
|
*high = (scaled >> 32) & 0xffffffff;
|
|
return scaled & 0xffffffff;
|
|
}
|
|
|
|
PLI_INT32 tf_getlongtime(PLI_INT32 *high)
|
|
{
|
|
return tf_igetlongtime(high, 0);
|
|
}
|
|
|
|
/* Alias for commercial simulators */
|
|
PLI_INT32 tf_getlongsimtime(PLI_INT32 *high) \
|
|
__attribute__ ((weak, alias ("tf_getlongtime")));
|
|
|
|
void tf_scale_longdelay(void*obj, PLI_INT32 low, PLI_INT32 high,
|
|
PLI_INT32 *alow, PLI_INT32 *ahigh)
|
|
{
|
|
ivl_u64_t scaled = scale(high, low, obj);
|
|
*ahigh = (scaled >> 32) & 0xffffffff;
|
|
*alow = scaled & 0xffffffff;
|
|
}
|
|
|
|
void tf_unscale_longdelay(void*obj, PLI_INT32 low, PLI_INT32 high,
|
|
PLI_INT32 *alow, PLI_INT32 *ahigh)
|
|
{
|
|
ivl_u64_t unscaled;
|
|
vpiHandle hand = vpi_handle(vpiScope, vpi_handle(vpiSysTfCall,0));
|
|
|
|
unscaled = high;
|
|
unscaled = (unscaled << 32) | low;
|
|
unscaled *= pow(10, vpi_get(vpiTimeUnit, hand) -
|
|
vpi_get(vpiTimePrecision, 0));
|
|
|
|
*ahigh = (unscaled >> 32) & 0xffffffff;
|
|
*alow = unscaled & 0xffffffff;
|
|
}
|
|
|
|
void tf_scale_realdelay(void*obj, double real, double *areal)
|
|
{
|
|
vpiHandle hand = vpi_handle(vpiScope, vpi_handle(vpiSysTfCall,0));
|
|
|
|
*areal = real * pow(10, vpi_get(vpiTimePrecision, 0) -
|
|
vpi_get(vpiTimeUnit, hand));
|
|
}
|
|
|
|
void tf_unscale_realdelay(void*obj, double real, double *areal)
|
|
{
|
|
vpiHandle hand = vpi_handle(vpiScope, vpi_handle(vpiSysTfCall,0));
|
|
|
|
*areal = real * pow(10, vpi_get(vpiTimeUnit, hand) -
|
|
vpi_get(vpiTimePrecision, 0));
|
|
}
|
|
|
|
PLI_INT32 tf_gettimeprecision(void)
|
|
{
|
|
PLI_INT32 rc;
|
|
vpiHandle hand;
|
|
vpiHandle sys = vpi_handle(vpiSysTfCall,0);
|
|
assert(sys);
|
|
|
|
hand = vpi_handle(vpiScope, sys);
|
|
rc = vpi_get(vpiTimePrecision, hand);
|
|
|
|
if (pli_trace)
|
|
fprintf(pli_trace, "tf_gettimeprecision(<%s>) --> %d\n",
|
|
vpi_get_str(vpiName, sys), rc);
|
|
|
|
return rc;
|
|
}
|
|
|
|
PLI_INT32 tf_igettimeprecision(void*obj)
|
|
{
|
|
PLI_INT32 rc;
|
|
|
|
if (obj == 0) {
|
|
/* If the obj pointer is null, then get the simulation
|
|
time precision. */
|
|
rc = vpi_get(vpiTimePrecision, 0);
|
|
|
|
} else {
|
|
|
|
vpiHandle scope = vpi_handle(vpiScope, (vpiHandle)obj);
|
|
assert(scope);
|
|
rc = vpi_get(vpiTimePrecision, scope);
|
|
}
|
|
|
|
if (pli_trace)
|
|
fprintf(pli_trace, "tf_igettimeprecision(<%s>) --> %d\n",
|
|
obj? vpi_get_str(vpiName, obj) : ".", rc);
|
|
|
|
return rc;
|
|
}
|
|
|
|
|
|
PLI_INT32 tf_gettimeunit()
|
|
{
|
|
vpiHandle hand = vpi_handle(vpiScope, vpi_handle(vpiSysTfCall,0));
|
|
return vpi_get(vpiTimeUnit, hand);
|
|
}
|
|
|
|
PLI_INT32 tf_igettimeunit(void*obj)
|
|
{
|
|
return vpi_get(!obj ? vpiTimePrecision : vpiTimeUnit, (vpiHandle)obj);
|
|
}
|
|
|
|
|
|
/*
|
|
* $Log: getsimtime.c,v $
|
|
* Revision 1.11 2003/06/21 23:40:15 steve
|
|
* gettimeprecision will null argument has specific meaning.
|
|
*
|
|
* Revision 1.10 2003/06/13 19:23:42 steve
|
|
* Add a bunch more PLI1 routines.
|
|
*
|
|
* Revision 1.9 2003/06/04 01:56:20 steve
|
|
* 1) Adds configure logic to clean up compiler warnings
|
|
* 2) adds acc_compare_handle, acc_fetch_range, acc_next_scope and
|
|
* tf_isetrealdelay, acc_handle_scope
|
|
* 3) makes acc_next reentrant
|
|
* 4) adds basic vpiWire type support
|
|
* 5) fills in some acc_object_of_type() and acc_fetch_{full}type()
|
|
* 6) add vpiLeftRange/RigthRange to signals
|
|
*
|
|
* 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.
|
|
*
|
|
* Revision 1.6 2003/05/27 16:22:10 steve
|
|
* PLI get time units/precision.
|
|
*
|
|
* Revision 1.5 2003/04/12 18:57:14 steve
|
|
* More acc_ function stubs.
|
|
*
|
|
* Revision 1.4 2003/03/13 04:35:09 steve
|
|
* Add a bunch of new acc_ and tf_ functions.
|
|
*
|
|
* Revision 1.3 2003/03/06 00:27:54 steve
|
|
* Fill in required fields when getting time.
|
|
*
|
|
* Revision 1.2 2002/08/12 01:35:02 steve
|
|
* conditional ident string using autoconfig.
|
|
*
|
|
* Revision 1.1 2002/05/31 18:25:51 steve
|
|
* Add tf_getlongtime (mruff)
|
|
*
|
|
*/
|