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

acc_fetch_type supports module.

This commit is contained in:
steve 2003-05-29 02:35:41 +00:00
parent 8cfef65bd8
commit bf664c67b4
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
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.14 2003/05/29 02:21:45 steve Exp $" #ident "$Id: acc_user.h,v 1.15 2003/05/29 02:35:41 steve Exp $"
#endif #endif
/* /*
@ -59,6 +59,8 @@ typedef struct __vpiHandle *handle;
#define accReg 30 #define accReg 30
#define accStringParam 204 #define accStringParam 204
#define accParameter 220 #define accParameter 220
#define accTopModule 224
#define accModuleInstance 226
#define accIntegerVar 281 #define accIntegerVar 281
#define accIntVar 281 #define accIntVar 281
#define accScalar 300 #define accScalar 300
@ -245,6 +247,9 @@ EXTERN_C_END
/* /*
* $Log: acc_user.h,v $ * $Log: acc_user.h,v $
* Revision 1.15 2003/05/29 02:35:41 steve
* acc_fetch_type supports module.
*
* Revision 1.14 2003/05/29 02:21:45 steve * Revision 1.14 2003/05/29 02:21:45 steve
* Implement acc_fetch_defname and its infrastructure in vvp. * Implement acc_fetch_defname and its infrastructure in vvp.
* *

15
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.4 2003/04/24 18:57:06 steve Exp $" #ident "$Id: a_fetch_type.c,v 1.5 2003/05/29 02:35:41 steve Exp $"
#endif #endif
# include <acc_user.h> # include <acc_user.h>
@ -54,6 +54,9 @@ PLI_INT32 acc_fetch_type(handle obj)
case vpiIntegerVar: case vpiIntegerVar:
return accIntegerVar; return accIntegerVar;
case vpiModule:
return accModule;
default: default:
vpi_printf("acc_fetch_type: vpiType %d is what accType?\n", vpi_printf("acc_fetch_type: vpiType %d is what accType?\n",
vpi_get(vpiType, obj)); vpi_get(vpiType, obj));
@ -76,6 +79,13 @@ PLI_INT32 acc_fetch_fulltype(handle obj)
case vpiIntegerVar: case vpiIntegerVar:
return accIntegerVar; return accIntegerVar;
case vpiModule:
if (!vpi_handle(vpiScope, obj))
return accTopModule;
else
return accModuleInstance;
// FIXME accCellInstance
default: default:
vpi_printf("acc_fetch_fulltype: vpiType %d is what accType?\n", vpi_printf("acc_fetch_fulltype: vpiType %d is what accType?\n",
vpi_get(vpiType, obj)); vpi_get(vpiType, obj));
@ -85,6 +95,9 @@ PLI_INT32 acc_fetch_fulltype(handle obj)
/* /*
* $Log: a_fetch_type.c,v $ * $Log: a_fetch_type.c,v $
* Revision 1.5 2003/05/29 02:35:41 steve
* acc_fetch_type supports module.
*
* Revision 1.4 2003/04/24 18:57:06 steve * Revision 1.4 2003/04/24 18:57:06 steve
* Add acc_fetch_fulltype function. * Add acc_fetch_fulltype function.
* *