Handle function scopes in dumpvars scn (PR#95)
This commit is contained in:
parent
eda3c63f72
commit
5803e8c42c
|
|
@ -17,7 +17,7 @@
|
|||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||
*/
|
||||
#if !defined(WINNT) && !defined(macintosh)
|
||||
#ident "$Id: sys_vcd.c,v 1.13 2000/11/01 06:05:44 steve Exp $"
|
||||
#ident "$Id: sys_vcd.c,v 1.14 2001/01/01 08:10:35 steve Exp $"
|
||||
#endif
|
||||
|
||||
/*
|
||||
|
|
@ -333,6 +333,7 @@ static void scan_scope(unsigned depth, vpiHandle argv)
|
|||
case vpiModule:
|
||||
case vpiNamedBegin:
|
||||
case vpiTask:
|
||||
case vpiFunction:
|
||||
sublist = vpi_iterate(vpiInternalScope, item);
|
||||
if (sublist && (depth > 0)) {
|
||||
vcd_info_post_process();
|
||||
|
|
@ -341,7 +342,8 @@ static void scan_scope(unsigned depth, vpiHandle argv)
|
|||
break;
|
||||
|
||||
default:
|
||||
vpi_printf("ERROR: $dumpvars: Unsupported parameter type\n");
|
||||
vpi_printf("ERROR: $dumpvars: Unsupported parameter "
|
||||
"type (%d)\n", vpi_get(vpiType, item));
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -430,6 +432,9 @@ void sys_vcd_register()
|
|||
|
||||
/*
|
||||
* $Log: sys_vcd.c,v $
|
||||
* Revision 1.14 2001/01/01 08:10:35 steve
|
||||
* Handle function scopes in dumpvars scn (PR#95)
|
||||
*
|
||||
* Revision 1.13 2000/11/01 06:05:44 steve
|
||||
* VCD scans tasks (PR#35)
|
||||
*
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@
|
|||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||
*/
|
||||
#if !defined(WINNT) && !defined(macintosh)
|
||||
#ident "$Id: vpi_scope.c,v 1.10 2000/11/01 06:05:44 steve Exp $"
|
||||
#ident "$Id: vpi_scope.c,v 1.11 2001/01/01 08:10:35 steve Exp $"
|
||||
#endif
|
||||
|
||||
# include "vpi_priv.h"
|
||||
|
|
@ -47,7 +47,8 @@ static vpiHandle module_iter(int code, vpiHandle obj)
|
|||
struct __vpiScope*ref = (struct __vpiScope*)obj;
|
||||
assert((obj->vpi_type->type_code == vpiModule)
|
||||
|| (obj->vpi_type->type_code == vpiNamedBegin)
|
||||
|| (obj->vpi_type->type_code == vpiTask));
|
||||
|| (obj->vpi_type->type_code == vpiTask)
|
||||
|| (obj->vpi_type->type_code == vpiFunction));
|
||||
|
||||
switch (code) {
|
||||
case vpiInternalScope:
|
||||
|
|
@ -83,7 +84,7 @@ static const struct __vpirt vpip_function_rt = {
|
|||
0,
|
||||
0,
|
||||
0,
|
||||
0
|
||||
module_iter
|
||||
};
|
||||
|
||||
static const struct __vpirt vpip_named_begin_rt = {
|
||||
|
|
@ -149,6 +150,9 @@ void vpip_attach_to_scope(struct __vpiScope*ref, vpiHandle obj)
|
|||
|
||||
/*
|
||||
* $Log: vpi_scope.c,v $
|
||||
* Revision 1.11 2001/01/01 08:10:35 steve
|
||||
* Handle function scopes in dumpvars scn (PR#95)
|
||||
*
|
||||
* Revision 1.10 2000/11/01 06:05:44 steve
|
||||
* VCD scans tasks (PR#35)
|
||||
*
|
||||
|
|
|
|||
Loading…
Reference in New Issue