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

dumpfile selects file at compiletf time.

This commit is contained in:
steve 2004-02-15 03:17:15 +00:00
parent c275ef9482
commit c971448760
1 changed files with 29 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

153
vpi/sys_vcd.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: sys_vcd.c,v 1.53 2004/01/21 01:22:53 steve Exp $" #ident "$Id: sys_vcd.c,v 1.54 2004/02/15 03:17:15 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -38,6 +38,7 @@
#endif #endif
# include "vcd_priv.h" # include "vcd_priv.h"
static char*dump_path = 0;
static FILE*dump_file = 0; static FILE*dump_file = 0;
static const char*units_names[] = { static const char*units_names[] = {
@ -355,14 +356,18 @@ static int sys_dumpall_calltf(char*name)
return 0; return 0;
} }
static void open_dumpfile(const char*path) static void open_dumpfile(void)
{ {
dump_file = fopen(path, "w"); if (dump_path == 0) {
dump_path = strdup("dump.vcd");
}
dump_file = fopen(dump_path, "w");
if (dump_file == 0) { if (dump_file == 0) {
vpi_mcd_printf(1, vpi_mcd_printf(1,
"VCD Error: Unable to open %s for output.\n", "VCD Error: Unable to open %s for output.\n",
path); dump_path);
return; return;
} else { } else {
int prec = vpi_get(vpiTimePrecision, 0); int prec = vpi_get(vpiTimePrecision, 0);
@ -372,7 +377,7 @@ static void open_dumpfile(const char*path)
vpi_mcd_printf(1, vpi_mcd_printf(1,
"VCD info: dumpfile %s opened for output.\n", "VCD info: dumpfile %s opened for output.\n",
path); dump_path);
time(&walltime); time(&walltime);
@ -398,14 +403,14 @@ static void open_dumpfile(const char*path)
} }
} }
static int sys_dumpfile_calltf(char*name) static int sys_dumpfile_compiletf(char*name)
{ {
char*path;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
vpiHandle item; vpiHandle item;
char*path;
if (argv && (item = vpi_scan(argv))) { if (argv && (item = vpi_scan(argv))) {
s_vpi_value value; s_vpi_value value;
@ -425,19 +430,23 @@ static int sys_dumpfile_calltf(char*name)
vpi_free_object(argv); vpi_free_object(argv);
} else { } else {
path = strdup("dumpfile.vcd"); path = strdup("dump.vcd");
} }
if (dump_file) { if (dump_path) {
fclose(dump_file); vpi_mcd_printf(1, "VCD Warning:"
dump_file = 0; " Overriding dumpfile path %s with %s\n",
dump_path, path);
free(dump_path);
} }
assert(dump_file == 0); dump_path = path;
open_dumpfile(path);
free(path); return 0;
}
static int sys_dumpfile_calltf(char*name)
{
return 0; return 0;
} }
@ -703,7 +712,7 @@ static int sys_dumpvars_calltf(char*name)
vpiHandle argv; vpiHandle argv;
if (dump_file == 0) { if (dump_file == 0) {
open_dumpfile("dumpfile.vcd"); open_dumpfile();
if (dump_file == 0) if (dump_file == 0)
return 0; return 0;
} }
@ -794,7 +803,7 @@ void sys_vcd_register()
tf_data.type = vpiSysTask; tf_data.type = vpiSysTask;
tf_data.tfname = "$dumpfile"; tf_data.tfname = "$dumpfile";
tf_data.calltf = sys_dumpfile_calltf; tf_data.calltf = sys_dumpfile_calltf;
tf_data.compiletf = 0; tf_data.compiletf = sys_dumpfile_compiletf;
tf_data.sizetf = 0; tf_data.sizetf = 0;
tf_data.user_data = "$dumpfile"; tf_data.user_data = "$dumpfile";
vpi_register_systf(&tf_data); vpi_register_systf(&tf_data);
@ -810,6 +819,9 @@ void sys_vcd_register()
/* /*
* $Log: sys_vcd.c,v $ * $Log: sys_vcd.c,v $
* Revision 1.54 2004/02/15 03:17:15 steve
* dumpfile selects file at compiletf time.
*
* Revision 1.53 2004/01/21 01:22:53 steve * Revision 1.53 2004/01/21 01:22:53 steve
* Give the vip directory its own configure and vpi_config.h * Give the vip directory its own configure and vpi_config.h
* *
@ -836,112 +848,5 @@ void sys_vcd_register()
* *
* Revision 1.45 2003/08/06 18:24:55 steve * Revision 1.45 2003/08/06 18:24:55 steve
* Fix error truncating bitvec in output. * Fix error truncating bitvec in output.
*
* Revision 1.44 2003/05/15 16:51:09 steve
* Arrange for mcd id=00_00_00_01 to go to stdout
* as well as a user specified log file, set log
* file to buffer lines.
*
* Add vpi_flush function, and clear up some cunfused
* return codes from other vpi functions.
*
* Adjust $display and vcd/lxt messages to use the
* standard output/log file.
*
* Revision 1.43 2003/04/27 02:22:28 steve
* Capture VCD dump value in the rosync time period.
*
* Revision 1.42 2003/02/12 05:28:01 steve
* Set dumpoff of real variables to NaN.
*
* Revision 1.41 2003/02/11 05:21:33 steve
* Support dump of vpiRealVar objects.
*
* Revision 1.40 2002/12/21 00:55:58 steve
* The $time system task returns the integer time
* scaled to the local units. Change the internal
* implementation of vpiSystemTime the $time functions
* to properly account for this. Also add $simtime
* to get the simulation time.
*
* Revision 1.39 2002/11/17 22:28:42 steve
* Close old file if $dumpfile is called again.
*
* Revision 1.38 2002/11/14 22:43:58 steve
* Save vpiFullName results.
*
* Revision 1.37 2002/08/15 02:12:20 steve
* add dumpvars_compiletf to check first argument.
*
* Revision 1.36 2002/08/12 01:35:05 steve
* conditional ident string using autoconfig.
*
* Revision 1.35 2002/07/17 05:13:43 steve
* Implementation of vpi_handle_by_name, and
* add the vpiVariables iterator.
*
* Revision 1.34 2002/07/12 17:09:21 steve
* Remember to scan IntegerVars.
*
* Revision 1.33 2002/07/12 17:02:38 steve
* Scan scope objects before subscopes.
*
* Revision 1.32 2002/07/12 02:10:20 steve
* Make types array static, not on stack.
*
* Revision 1.31 2002/07/12 02:08:10 steve
* Eliminate use of vpiInternalScope.
*
* Revision 1.30 2002/06/21 04:59:36 steve
* Carry integerness throughout the compilation.
*
* Revision 1.29 2002/05/23 01:07:26 steve
* Ignore Named events in vcd signal scan.
*
* Revision 1.28 2002/05/10 16:00:16 steve
* ignore vpiMemory objects in vcd dumper.
*
* Revision 1.27 2002/04/06 20:25:45 steve
* cbValueChange automatically replays.
*
* Revision 1.26 2001/10/26 02:29:10 steve
* const/non-const warnings. (Stephan Boettcher)
*
* Revision 1.25 2001/10/25 04:19:53 steve
* VPI support for callback to return values.
*
* Revision 1.24 2001/10/15 01:50:23 steve
* Include scope information in VCD output.
*
* Revision 1.23 2001/10/14 18:32:06 steve
* More coverage of $dump related commands.
*
* Revision 1.22 2001/10/08 23:33:00 steve
* Fix pr283: signal values before enddefinitions in vcd. (Stephan Boettcher)
*
* Revision 1.21 2001/09/30 05:18:46 steve
* Reduce VCD output by removing duplicates. (Stephan Boettcher)
*
* Revision 1.20 2001/07/25 03:10:50 steve
* Create a config.h.in file to hold all the config
* junk, and support gcc 3.0. (Stephan Boettcher)
*
* Revision 1.19 2001/07/16 18:53:16 steve
* Cut off scope iteration when depth runs out.
*
* Revision 1.18 2001/06/29 00:42:39 steve
* Get a private copy of the object name.
*
* Revision 1.17 2001/06/21 04:15:22 steve
* Add dumpon and dumpoff (Stephan Boettcher)
*
* Revision 1.16 2001/01/23 18:50:26 steve
* Forgot to actually *open* the VCD output.
*
* Revision 1.15 2001/01/22 20:58:31 steve
* Support default dumpfiles.
*
* Revision 1.14 2001/01/01 08:10:35 steve
* Handle function scopes in dumpvars scn (PR#95)
*/ */