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

Add acc_fetch_fulltype function.

This commit is contained in:
steve 2003-04-24 18:57:05 +00:00
parent cdbf21a92d
commit aa47ff5653
2 changed files with 38 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
acc_user.h
View File

@ -19,7 +19,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#ifdef HAVE_CVS_IDENT #ifdef HAVE_CVS_IDENT
#ident "$Id: acc_user.h,v 1.10 2003/04/20 02:48:39 steve Exp $" #ident "$Id: acc_user.h,v 1.11 2003/04/24 18:57:05 steve Exp $"
#endif #endif
/* /*
@ -57,7 +57,10 @@ typedef struct __vpiHandle *handle;
#define accScope 21 #define accScope 21
#define accNet 25 #define accNet 25
#define accReg 30 #define accReg 30
#define accStringParam 204
#define accParameter 220 #define accParameter 220
#define accIntegerVar 281
#define accIntVar 281
#define accScalar 300 #define accScalar 300
#define accVector 302 #define accVector 302
#define accConstant 600 #define accConstant 600
@ -179,6 +182,7 @@ extern void acc_fetch_timescale_info(handle obj, p_timescale_info info);
extern PLI_INT32 acc_fetch_size(handle obj); extern PLI_INT32 acc_fetch_size(handle obj);
extern PLI_INT32 acc_fetch_type(handle obj); extern PLI_INT32 acc_fetch_type(handle obj);
extern PLI_INT32 acc_fetch_fulltype(handle obj);
extern char* acc_fetch_type_str(PLI_INT32 type); extern char* acc_fetch_type_str(PLI_INT32 type);
extern char* acc_fetch_value(handle obj, const char*fmt, s_acc_value*value); extern char* acc_fetch_value(handle obj, const char*fmt, s_acc_value*value);
@ -210,6 +214,9 @@ EXTERN_C_END
/* /*
* $Log: acc_user.h,v $ * $Log: acc_user.h,v $
* Revision 1.11 2003/04/24 18:57:05 steve
* Add acc_fetch_fulltype function.
*
* Revision 1.10 2003/04/20 02:48:39 steve * Revision 1.10 2003/04/20 02:48:39 steve
* Support value change callbacks. * Support value change callbacks.
* *

30
libveriuser/a_fetch_type.c
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#ifdef HAVE_CVS_IDENT #ifdef HAVE_CVS_IDENT
#ident "$Id: a_fetch_type.c,v 1.3 2003/04/12 18:57:14 steve Exp $" #ident "$Id: a_fetch_type.c,v 1.4 2003/04/24 18:57:06 steve Exp $"
#endif #endif
# include <acc_user.h> # include <acc_user.h>
@ -51,8 +51,11 @@ PLI_INT32 acc_fetch_type(handle obj)
case vpiReg: case vpiReg:
return accReg; return accReg;
case vpiIntegerVar:
return accIntegerVar;
default: default:
vpi_printf("XXXX acc_fetch_type(%d) returns what?\n", vpi_printf("acc_fetch_type: vpiType %d is what accType?\n",
vpi_get(vpiType, obj)); vpi_get(vpiType, obj));
return 0; return 0;
} }
@ -60,8 +63,31 @@ PLI_INT32 acc_fetch_type(handle obj)
return 0; return 0;
} }
PLI_INT32 acc_fetch_fulltype(handle obj)
{
switch (vpi_get(vpiType, obj)) {
case vpiConstant:
/* see acc_fetch_type */
if (vpi_get(vpiConstType, obj) == vpiStringConst)
return accStringParam;
else
return accConstant;
case vpiIntegerVar:
return accIntegerVar;
default:
vpi_printf("acc_fetch_fulltype: vpiType %d is what accType?\n",
vpi_get(vpiType, obj));
return 0;
}
}
/* /*
* $Log: a_fetch_type.c,v $ * $Log: a_fetch_type.c,v $
* Revision 1.4 2003/04/24 18:57:06 steve
* Add acc_fetch_fulltype function.
*
* Revision 1.3 2003/04/12 18:57:14 steve * Revision 1.3 2003/04/12 18:57:14 steve
* More acc_ function stubs. * More acc_ function stubs.
* *