Skip to content
Browse files

Interpret the depth paramter of dumpvars.

  • Loading branch information...
1 parent 161fa9c commit ea8bc7f419df41ff8d87077b7772ac0abd51c387 steve committed Jun 3, 2000
Showing with 21 additions and 2 deletions.
  1. +21 −2 vpi/sys_vcd.c
View
23 vpi/sys_vcd.c
@@ -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.9 2000/04/09 04:18:16 steve Exp $"
+#ident "$Id: sys_vcd.c,v 1.10 2000/06/03 02:22:15 steve Exp $"
#endif
/*
@@ -324,6 +324,8 @@ static void scan_scope(unsigned depth, vpiHandle argv)
static int sys_dumpvars_calltf(char*name)
{
+ unsigned depth;
+ s_vpi_value value;
s_vpi_time now;
vpiHandle item;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@@ -335,10 +337,24 @@ static int sys_dumpvars_calltf(char*name)
}
item = vpi_scan(argv);
+ switch (vpi_get(vpiType, item)) {
+ case vpiConstant:
+ case vpiNet:
+ case vpiReg:
+ case vpiMemoryWord:
+ value.format = vpiIntVal;
+ vpi_get_value(item, &value);
+ break;
+ default:
+ value.value.integer = 0;
+ break;
+ }
+
+ depth = value.value.integer == 0? 0xffffU : value.value.integer;
assert(dump_file);
- scan_scope(99, argv);
+ scan_scope(depth, argv);
fprintf(dump_file, "$enddefinitions $end\n");
@@ -381,6 +397,9 @@ void sys_vcd_register()
/*
* $Log: sys_vcd.c,v $
+ * Revision 1.10 2000/06/03 02:22:15 steve
+ * Interpret the depth paramter of dumpvars.
+ *
* Revision 1.9 2000/04/09 04:18:16 steve
* Catch duplicate $dumpvars of symbols (ajb)
*

0 comments on commit ea8bc7f

Please sign in to comment.
Something went wrong with that request. Please try again.