Implement tf_inump

This commit is contained in:
steve 2003-05-28 03:38:05 +00:00
parent 031962ba32
commit bf881fef0a
2 changed files with 20 additions and 6 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: nump.c,v 1.2 2002/08/12 01:35:02 steve Exp $"
#ident "$Id: nump.c,v 1.3 2003/05/28 03:38:05 steve Exp $"
#endif
#include <vpi_user.h>
@ -26,22 +26,32 @@
/*
* tf_nump implemented using VPI interface
*/
int tf_nump(void)
int tf_inump(void *obj)
{
vpiHandle sys_h, sys_i;
int cnt;
sys_h = vpi_handle(vpiSysTfCall, 0 /* NULL */);
sys_h = (vpiHandle)obj;
sys_i = vpi_iterate(vpiArgument, sys_h);
/* count number of args */
/* count number of args */
for (cnt = 0; sys_i && vpi_scan(sys_i); cnt++);
return cnt;
}
int tf_nump(void)
{
vpiHandle sys_h = vpi_handle(vpiSysTfCall, 0 /* NULL */);
return tf_inump(sys_h);
}
/*
* $Log: nump.c,v $
* Revision 1.3 2003/05/28 03:38:05 steve
* Implement tf_inump
*
* Revision 1.2 2002/08/12 01:35:02 steve
* conditional ident string using autoconfig.
*

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.26 2003/05/28 03:14:20 steve Exp $"
#ident "$Id: veriuser.h,v 1.27 2003/05/28 03:38:05 steve Exp $"
#endif
/*
@ -273,6 +273,7 @@ extern void tf_multiply_long(PLI_INT32*aof_low1, PLI_INT32*aof_high1,
PLI_INT32 aof_low2, PLI_INT32 aof_high2);
extern int tf_nump(void);
extern int tf_inump(void*);
/* IEEE1364 NOTE: tf_putlongp is listed as returning in in the header
file shown in the standard, but as returning void in the detailed
@ -310,6 +311,9 @@ EXTERN_C_END
/*
* $Log: veriuser.h,v $
* Revision 1.27 2003/05/28 03:38:05 steve
* Implement tf_inump
*
* Revision 1.26 2003/05/28 03:14:20 steve
* Missing time related declarations.
*