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

VPI tasks take PLI_BYTE* by the standard.

This commit is contained in:
steve 2007-03-14 04:05:51 +00:00
parent a50ec29ad9
commit 72ec3a2c09
16 changed files with 146 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
vpi/sys_convert.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_convert.c,v 1.6 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_convert.c,v 1.7 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_config.h" # include "vpi_config.h"
@ -86,10 +86,10 @@ static void double2bits(double real, PLI_UINT32 bits[2])
#endif #endif
} }
static PLI_INT32 sizetf_32 (char*x) { return 32; } static PLI_INT32 sizetf_32 (PLI_BYTE8*x) { return 32; }
static PLI_INT32 sizetf_64 (char*x) { return 64; } static PLI_INT32 sizetf_64 (PLI_BYTE8*x) { return 64; }
static PLI_INT32 sys_convert_compiletf(char *name) static PLI_INT32 sys_convert_compiletf(PLI_BYTE8*name)
{ {
vpiHandle call_hand, argv, arg; vpiHandle call_hand, argv, arg;
PLI_INT32 rtn = 0; PLI_INT32 rtn = 0;
@ -116,7 +116,7 @@ static PLI_INT32 sys_convert_compiletf(char *name)
return rtn; return rtn;
} }
static PLI_INT32 sys_bitstoreal_calltf(char *user) static PLI_INT32 sys_bitstoreal_calltf(PLI_BYTE8*user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -147,7 +147,7 @@ static PLI_INT32 sys_bitstoreal_calltf(char *user)
return 0; return 0;
} }
static PLI_INT32 sys_itor_calltf(char *user) static PLI_INT32 sys_itor_calltf(PLI_BYTE8*user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -174,7 +174,7 @@ static PLI_INT32 sys_itor_calltf(char *user)
return 0; return 0;
} }
static PLI_INT32 sys_realtobits_calltf(char *user) static PLI_INT32 sys_realtobits_calltf(PLI_BYTE8*user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -211,7 +211,7 @@ static PLI_INT32 sys_realtobits_calltf(char *user)
return 0; return 0;
} }
static PLI_INT32 sys_rtoi_calltf(char *user) static PLI_INT32 sys_rtoi_calltf(PLI_BYTE8*user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -281,6 +281,9 @@ void sys_convert_register()
/* /*
* $Log: sys_convert.c,v $ * $Log: sys_convert.c,v $
* Revision 1.7 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.6 2006/10/30 22:45:37 steve * Revision 1.6 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

7
vpi/sys_deposit.c
View File

@ -18,7 +18,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_deposit.c,v 1.6 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_deposit.c,v 1.7 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_config.h" # include "vpi_config.h"
@ -26,7 +26,7 @@
# include "vpi_user.h" # include "vpi_user.h"
# include <assert.h> # include <assert.h>
static PLI_INT32 sys_deposit_calltf(char *name) static PLI_INT32 sys_deposit_calltf(PLI_BYTE8*name)
{ {
vpiHandle sys, argv, target, value; vpiHandle sys, argv, target, value;
s_vpi_value val; s_vpi_value val;
@ -79,6 +79,9 @@ void sys_deposit_register()
/* /*
* $Log: sys_deposit.c,v $ * $Log: sys_deposit.c,v $
* Revision 1.7 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.6 2006/10/30 22:45:37 steve * Revision 1.6 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

21
vpi/sys_display.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_display.c,v 1.73 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_display.c,v 1.74 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_config.h" # include "vpi_config.h"
@ -925,7 +925,7 @@ static int get_default_format(char *name)
return default_format; return default_format;
} }
static PLI_INT32 sys_display_calltf(char *name) static PLI_INT32 sys_display_calltf(PLI_BYTE8*name)
{ {
struct strobe_cb_info*info; struct strobe_cb_info*info;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -974,7 +974,7 @@ static PLI_INT32 strobe_cb(p_cb_data cb)
return 0; return 0;
} }
static PLI_INT32 sys_strobe_calltf(char*name) static PLI_INT32 sys_strobe_calltf(PLI_BYTE8*name)
{ {
struct t_cb_data cb; struct t_cb_data cb;
struct t_vpi_time time; struct t_vpi_time time;
@ -1104,7 +1104,7 @@ static PLI_INT32 monitor_cb_1(p_cb_data cause)
return 0; return 0;
} }
static PLI_INT32 sys_monitor_calltf(char*name) static PLI_INT32 sys_monitor_calltf(PLI_BYTE8*name)
{ {
unsigned idx; unsigned idx;
struct t_cb_data cb; struct t_cb_data cb;
@ -1171,14 +1171,14 @@ static PLI_INT32 sys_monitor_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_monitoron_calltf(char*name) static PLI_INT32 sys_monitoron_calltf(PLI_BYTE8*name)
{ {
monitor_enabled = 1; monitor_enabled = 1;
monitor_cb_1(0); monitor_cb_1(0);
return 0; return 0;
} }
static PLI_INT32 sys_monitoroff_calltf(char*name) static PLI_INT32 sys_monitoroff_calltf(PLI_BYTE8*name)
{ {
monitor_enabled = 0; monitor_enabled = 0;
return 0; return 0;
@ -1187,7 +1187,7 @@ static PLI_INT32 sys_monitoroff_calltf(char*name)
/* Implement $fdisplay and $fwrite. /* Implement $fdisplay and $fwrite.
* Perhaps this could be merged into sys_display_calltf. * Perhaps this could be merged into sys_display_calltf.
*/ */
static PLI_INT32 sys_fdisplay_calltf(char *name) static PLI_INT32 sys_fdisplay_calltf(PLI_BYTE8*name)
{ {
struct strobe_cb_info info; struct strobe_cb_info info;
unsigned int mcd; unsigned int mcd;
@ -1251,7 +1251,7 @@ static PLI_INT32 sys_fdisplay_calltf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_timeformat_compiletf(char *xx) static PLI_INT32 sys_timeformat_compiletf(PLI_BYTE8*xx)
{ {
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
@ -1273,7 +1273,7 @@ static PLI_INT32 sys_timeformat_compiletf(char *xx)
return 0; return 0;
} }
static PLI_INT32 sys_timeformat_calltf(char *xx) static PLI_INT32 sys_timeformat_calltf(PLI_BYTE8*xx)
{ {
s_vpi_value value; s_vpi_value value;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -1560,6 +1560,9 @@ void sys_display_register()
/* /*
* $Log: sys_display.c,v $ * $Log: sys_display.c,v $
* Revision 1.74 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.73 2006/10/30 22:45:37 steve * Revision 1.73 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

31
vpi/sys_fileio.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_fileio.c,v 1.9 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_fileio.c,v 1.10 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_user.h" # include "vpi_user.h"
@ -33,7 +33,7 @@
/* /*
* Implement the $fopen system function. * Implement the $fopen system function.
*/ */
static PLI_INT32 sys_fopen_compiletf(char *name) static PLI_INT32 sys_fopen_compiletf(PLI_BYTE8*name)
{ {
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
@ -81,7 +81,7 @@ static PLI_INT32 sys_fopen_compiletf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_fopen_calltf(char *name) static PLI_INT32 sys_fopen_calltf(PLI_BYTE8*name)
{ {
s_vpi_value value; s_vpi_value value;
char *mode_string = 0; char *mode_string = 0;
@ -126,7 +126,7 @@ static PLI_INT32 sys_fopen_calltf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_fopen_sizetf(char*x) static PLI_INT32 sys_fopen_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
@ -134,7 +134,7 @@ static PLI_INT32 sys_fopen_sizetf(char*x)
/* /*
* Implement $fclose system function * Implement $fclose system function
*/ */
static PLI_INT32 sys_fclose_calltf(char *name) static PLI_INT32 sys_fclose_calltf(PLI_BYTE8*name)
{ {
unsigned int mcd; unsigned int mcd;
int type; int type;
@ -170,14 +170,14 @@ static PLI_INT32 sys_fclose_calltf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_fflush_calltf(char *name) static PLI_INT32 sys_fflush_calltf(PLI_BYTE8*name)
{ {
fflush(0); fflush(0);
return 0; return 0;
} }
static PLI_INT32 sys_fputc_calltf(char *name) static PLI_INT32 sys_fputc_calltf(PLI_BYTE8*name)
{ {
unsigned int mcd; unsigned int mcd;
int type; int type;
@ -224,7 +224,7 @@ static PLI_INT32 sys_fputc_calltf(char *name)
return fputc(x, fp); return fputc(x, fp);
} }
static PLI_INT32 sys_fgetc_calltf(char *name) static PLI_INT32 sys_fgetc_calltf(PLI_BYTE8*name)
{ {
unsigned int mcd; unsigned int mcd;
int type; int type;
@ -269,12 +269,12 @@ static PLI_INT32 sys_fgetc_calltf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_fgetc_sizetf(char*x) static PLI_INT32 sys_fgetc_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
static PLI_INT32 sys_fgets_compiletf(char*name) static PLI_INT32 sys_fgets_compiletf(PLI_BYTE8*name)
{ {
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
@ -307,7 +307,7 @@ static PLI_INT32 sys_fgets_compiletf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_fgets_calltf(char *name) static PLI_INT32 sys_fgets_calltf(PLI_BYTE8*name)
{ {
unsigned int mcd; unsigned int mcd;
FILE*fd; FILE*fd;
@ -357,7 +357,7 @@ static PLI_INT32 sys_fgets_calltf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_ungetc_compiletf(char*name) static PLI_INT32 sys_ungetc_compiletf(PLI_BYTE8*name)
{ {
int type; int type;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -385,7 +385,7 @@ static PLI_INT32 sys_ungetc_compiletf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_ungetc_calltf(char *name) static PLI_INT32 sys_ungetc_calltf(PLI_BYTE8*name)
{ {
unsigned int mcd; unsigned int mcd;
unsigned char x; unsigned char x;
@ -429,7 +429,7 @@ static PLI_INT32 sys_ungetc_calltf(char *name)
return 0; return 0;
} }
static PLI_INT32 sys_ungetc_sizetf(char*x) static PLI_INT32 sys_ungetc_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
@ -510,6 +510,9 @@ void sys_fileio_register()
/* /*
* $Log: sys_fileio.c,v $ * $Log: sys_fileio.c,v $
* Revision 1.10 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.9 2006/10/30 22:45:37 steve * Revision 1.9 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

17
vpi/sys_lxt.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_lxt.c,v 1.27 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_lxt.c,v 1.28 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -310,7 +310,7 @@ inline static int install_dumpvars_callback(void)
return 0; return 0;
} }
static PLI_INT32 sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -340,7 +340,7 @@ static PLI_INT32 sys_dumpoff_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -370,7 +370,7 @@ static PLI_INT32 sys_dumpon_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -426,7 +426,7 @@ static void open_dumpfile(const char*path)
} }
} }
static PLI_INT32 sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(PLI_BYTE8*name)
{ {
char*path; char*path;
@ -470,7 +470,7 @@ static PLI_INT32 sys_dumpfile_calltf(char*name)
/* /*
* The LXT1 format has no concept of file flushing. * The LXT1 format has no concept of file flushing.
*/ */
static PLI_INT32 sys_dumpflush_calltf(char*name) static PLI_INT32 sys_dumpflush_calltf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
@ -674,7 +674,7 @@ static int draw_scope(vpiHandle item)
return depth; return depth;
} }
static PLI_INT32 sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(PLI_BYTE8*name)
{ {
unsigned depth; unsigned depth;
s_vpi_value value; s_vpi_value value;
@ -819,6 +819,9 @@ void sys_lxt_register()
/* /*
* $Log: sys_lxt.c,v $ * $Log: sys_lxt.c,v $
* Revision 1.28 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.27 2006/10/30 22:45:37 steve * Revision 1.27 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

17
vpi/sys_lxt2.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_lxt2.c,v 1.9 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_lxt2.c,v 1.10 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -312,7 +312,7 @@ inline static int install_dumpvars_callback(void)
return 0; return 0;
} }
static PLI_INT32 sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -341,7 +341,7 @@ static PLI_INT32 sys_dumpoff_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -371,7 +371,7 @@ static PLI_INT32 sys_dumpon_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -431,7 +431,7 @@ static void open_dumpfile(const char*path)
} }
} }
static PLI_INT32 sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(PLI_BYTE8*name)
{ {
char*path; char*path;
@ -479,7 +479,7 @@ static PLI_INT32 sys_dumpfile_calltf(char*name)
* writes checkpoints out, but this makes it happen at a specific * writes checkpoints out, but this makes it happen at a specific
* time. * time.
*/ */
static PLI_INT32 sys_dumpflush_calltf(char*name) static PLI_INT32 sys_dumpflush_calltf(PLI_BYTE8*name)
{ {
if (dump_file) lxt2_wr_flush(dump_file); if (dump_file) lxt2_wr_flush(dump_file);
return 0; return 0;
@ -692,7 +692,7 @@ static int draw_scope(vpiHandle item)
return depth; return depth;
} }
static PLI_INT32 sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(PLI_BYTE8*name)
{ {
unsigned depth; unsigned depth;
s_vpi_value value; s_vpi_value value;
@ -839,6 +839,9 @@ void sys_lxt2_register()
/* /*
* $Log: sys_lxt2.c,v $ * $Log: sys_lxt2.c,v $
* Revision 1.10 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.9 2006/10/30 22:45:37 steve * Revision 1.9 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

15
vpi/sys_plusargs.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_plusargs.c,v 1.6 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_plusargs.c,v 1.7 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include <vpi_user.h> # include <vpi_user.h>
@ -25,7 +25,7 @@
# include <stdlib.h> # include <stdlib.h>
# include <assert.h> # include <assert.h>
static PLI_INT32 sys_plusargs_sizetf(char*x) static PLI_INT32 sys_plusargs_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
@ -34,7 +34,7 @@ static PLI_INT32 sys_plusargs_sizetf(char*x)
* The compiletf for $test$plusargs checks that there is one argument * The compiletf for $test$plusargs checks that there is one argument
* to the function call, and that argument is a constant string. * to the function call, and that argument is a constant string.
*/ */
static PLI_INT32 sys_test_plusargs_compiletf(char*xx) static PLI_INT32 sys_test_plusargs_compiletf(PLI_BYTE8*xx)
{ {
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
@ -81,7 +81,7 @@ static PLI_INT32 sys_test_plusargs_compiletf(char*xx)
* passed to the $test$plusargs. If there is a simulator argument that * passed to the $test$plusargs. If there is a simulator argument that
* is like this argument, then return true. Otherwise return false. * is like this argument, then return true. Otherwise return false.
*/ */
static PLI_INT32 sys_test_plusargs_calltf(char*xx) static PLI_INT32 sys_test_plusargs_calltf(PLI_BYTE8*xx)
{ {
int idx; int idx;
int flag = 0; int flag = 0;
@ -125,7 +125,7 @@ static PLI_INT32 sys_test_plusargs_calltf(char*xx)
return 0; return 0;
} }
static PLI_INT32 sys_value_plusargs_compiletf(char*xx) static PLI_INT32 sys_value_plusargs_compiletf(PLI_BYTE8*xx)
{ {
s_vpi_value value; s_vpi_value value;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -229,7 +229,7 @@ static PLI_INT32 sys_value_plusargs_compiletf(char*xx)
return 0; return 0;
} }
static PLI_INT32 sys_value_plusargs_calltf(char*xx) static PLI_INT32 sys_value_plusargs_calltf(PLI_BYTE8*xx)
{ {
char*cp; char*cp;
int idx; int idx;
@ -329,6 +329,9 @@ void sys_plusargs_register()
/* /*
* $Log: sys_plusargs.c,v $ * $Log: sys_plusargs.c,v $
* Revision 1.7 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.6 2006/10/30 22:45:37 steve * Revision 1.6 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

7
vpi/sys_priv.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: sys_priv.h,v 1.7 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_priv.h,v 1.8 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_config.h" # include "vpi_config.h"
@ -29,7 +29,7 @@
* This function is used by sys_vcd and sys_lxt as the dumpvars * This function is used by sys_vcd and sys_lxt as the dumpvars
* compiletf function. * compiletf function.
*/ */
extern PLI_INT32 sys_vcd_dumpvars_compiletf(char*name); extern PLI_INT32 sys_vcd_dumpvars_compiletf(PLI_BYTE8*name);
/* /*
* Context structure for PRNG in mt19937int.c * Context structure for PRNG in mt19937int.c
@ -59,6 +59,9 @@ extern struct timeformat_info_s timeformat_info;
/* /*
* $Log: sys_priv.h,v $ * $Log: sys_priv.h,v $
* Revision 1.8 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.7 2006/10/30 22:45:37 steve * Revision 1.7 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

17
vpi/sys_random.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_random.c,v 1.15 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_random.c,v 1.16 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -190,7 +190,7 @@ static long poisson(long*seed, long mean)
return n; return n;
} }
static PLI_INT32 sys_dist_poisson_calltf(char*name) static PLI_INT32 sys_dist_poisson_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -230,12 +230,12 @@ static PLI_INT32 sys_dist_poisson_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dist_poisson_sizetf(char*x) static PLI_INT32 sys_dist_poisson_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
static PLI_INT32 sys_dist_uniform_calltf(char*name) static PLI_INT32 sys_dist_uniform_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -284,12 +284,12 @@ static PLI_INT32 sys_dist_uniform_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dist_uniform_sizetf(char*x) static PLI_INT32 sys_dist_uniform_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
static PLI_INT32 sys_random_calltf(char*name) static PLI_INT32 sys_random_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -327,7 +327,7 @@ static PLI_INT32 sys_random_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_random_sizetf(char*x) static PLI_INT32 sys_random_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
@ -362,6 +362,9 @@ void sys_random_register()
/* /*
* $Log: sys_random.c,v $ * $Log: sys_random.c,v $
* Revision 1.16 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.15 2006/10/30 22:45:37 steve * Revision 1.15 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

13
vpi/sys_random_mti.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_random_mti.c,v 1.4 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_random_mti.c,v 1.5 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -61,7 +61,7 @@ static long mti_dist_uniform(long*seed, long start, long end)
} }
static PLI_INT32 sys_mti_dist_uniform_calltf(char*name) static PLI_INT32 sys_mti_dist_uniform_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -110,12 +110,12 @@ static PLI_INT32 sys_mti_dist_uniform_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_mti_dist_uniform_sizetf(char*x) static PLI_INT32 sys_mti_dist_uniform_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
static PLI_INT32 sys_mti_random_calltf(char*name) static PLI_INT32 sys_mti_random_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -174,7 +174,7 @@ static PLI_INT32 sys_mti_random_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_mti_random_sizetf(char*x) static PLI_INT32 sys_mti_random_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
@ -202,6 +202,9 @@ void sys_random_mti_register()
/* /*
* $Log: sys_random_mti.c,v $ * $Log: sys_random_mti.c,v $
* Revision 1.5 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.4 2006/10/30 22:45:37 steve * Revision 1.4 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

9
vpi/sys_readmem.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_readmem.c,v 1.18 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_readmem.c,v 1.19 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_config.h" # include "vpi_config.h"
@ -100,7 +100,7 @@ static int check_file_name(const char*name, vpiHandle item)
} }
static PLI_INT32 sys_readmem_calltf(char*name) static PLI_INT32 sys_readmem_calltf(PLI_BYTE8*name)
{ {
int code; int code;
int wwid; int wwid;
@ -355,7 +355,7 @@ static PLI_INT32 sys_readmem_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_writemem_calltf(char*name) static PLI_INT32 sys_writemem_calltf(PLI_BYTE8*name)
{ {
int wwid; int wwid;
char*path; char*path;
@ -594,6 +594,9 @@ void sys_readmem_register()
/* /*
* $Log: sys_readmem.c,v $ * $Log: sys_readmem.c,v $
* Revision 1.19 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.18 2006/10/30 22:45:37 steve * Revision 1.18 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

12
vpi/sys_scanf.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_scanf.c,v 1.5 2007/03/07 00:38:16 steve Exp $" #ident "$Id: sys_scanf.c,v 1.6 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_user.h" # include "vpi_user.h"
@ -61,7 +61,7 @@ static void byte_ungetc(struct byte_source*src, int ch)
} }
static PLI_INT32 sys_fscanf_compiletf(char*name) static PLI_INT32 sys_fscanf_compiletf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
@ -467,7 +467,7 @@ static int scan_format(vpiHandle sys, struct byte_source*src, vpiHandle argv)
return 0; return 0;
} }
static PLI_INT32 sys_fscanf_calltf(char*name) static PLI_INT32 sys_fscanf_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -493,12 +493,12 @@ static PLI_INT32 sys_fscanf_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_sscanf_compiletf(char*name) static PLI_INT32 sys_sscanf_compiletf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
static PLI_INT32 sys_sscanf_calltf(char*name) static PLI_INT32 sys_sscanf_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -526,7 +526,7 @@ static PLI_INT32 sys_sscanf_calltf(char*name)
/* /*
* All the Xscanf functions return a 32bit value. * All the Xscanf functions return a 32bit value.
*/ */
static PLI_INT32 sys_fscanf_sizetf(char*x) static PLI_INT32 sys_fscanf_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }

13
vpi/sys_time.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_time.c,v 1.11 2006/10/30 22:45:37 steve Exp $" #ident "$Id: sys_time.c,v 1.12 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "vpi_config.h" # include "vpi_config.h"
@ -37,17 +37,17 @@ static vpiHandle module_of_function(vpiHandle obj)
return obj; return obj;
} }
static PLI_INT32 sys_time_sizetf(char*x) static PLI_INT32 sys_time_sizetf(PLI_BYTE8*x)
{ {
return 64; return 64;
} }
static PLI_INT32 sys_stime_sizetf(char*x) static PLI_INT32 sys_stime_sizetf(PLI_BYTE8*x)
{ {
return 32; return 32;
} }
static PLI_INT32 sys_time_calltf(char*name) static PLI_INT32 sys_time_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
s_vpi_time now; s_vpi_time now;
@ -102,7 +102,7 @@ static PLI_INT32 sys_time_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_realtime_calltf(char*name) static PLI_INT32 sys_realtime_calltf(PLI_BYTE8*name)
{ {
s_vpi_value val; s_vpi_value val;
s_vpi_time now; s_vpi_time now;
@ -169,6 +169,9 @@ void sys_time_register()
/* /*
* $Log: sys_time.c,v $ * $Log: sys_time.c,v $
* Revision 1.12 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.11 2006/10/30 22:45:37 steve * Revision 1.11 2006/10/30 22:45:37 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

21
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.57 2006/10/30 22:45:38 steve Exp $" #ident "$Id: sys_vcd.c,v 1.58 2007/03/14 04:05:51 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -268,7 +268,7 @@ inline static int install_dumpvars_callback(void)
return 0; return 0;
} }
static PLI_INT32 sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -299,7 +299,7 @@ static PLI_INT32 sys_dumpoff_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -330,7 +330,7 @@ static PLI_INT32 sys_dumpon_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(PLI_BYTE8*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -403,7 +403,7 @@ static void open_dumpfile(void)
} }
} }
static PLI_INT32 sys_dumpfile_compiletf(char*name) static PLI_INT32 sys_dumpfile_compiletf(PLI_BYTE8*name)
{ {
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
@ -445,12 +445,12 @@ static PLI_INT32 sys_dumpfile_compiletf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
static PLI_INT32 sys_dumpflush_calltf(char*name) static PLI_INT32 sys_dumpflush_calltf(PLI_BYTE8*name)
{ {
if (dump_file) if (dump_file)
fflush(dump_file); fflush(dump_file);
@ -673,7 +673,7 @@ static int draw_scope(vpiHandle item)
* This function is also used in sys_lxt to check the arguments of the * This function is also used in sys_lxt to check the arguments of the
* lxt variant of $dumpvars. * lxt variant of $dumpvars.
*/ */
PLI_INT32 sys_vcd_dumpvars_compiletf(char*name) PLI_INT32 sys_vcd_dumpvars_compiletf(PLI_BYTE8*name)
{ {
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv = vpi_iterate(vpiArgument, sys); vpiHandle argv = vpi_iterate(vpiArgument, sys);
@ -711,7 +711,7 @@ PLI_INT32 sys_vcd_dumpvars_compiletf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(PLI_BYTE8*name)
{ {
unsigned depth; unsigned depth;
s_vpi_value value; s_vpi_value value;
@ -835,6 +835,9 @@ void sys_vcd_register()
/* /*
* $Log: sys_vcd.c,v $ * $Log: sys_vcd.c,v $
* Revision 1.58 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.57 2006/10/30 22:45:38 steve * Revision 1.57 2006/10/30 22:45:38 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

15
vpi/sys_vcdoff.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_vcdoff.c,v 1.4 2006/10/30 22:45:38 steve Exp $" #ident "$Id: sys_vcdoff.c,v 1.5 2007/03/14 04:05:52 steve Exp $"
#endif #endif
# include "sys_priv.h" # include "sys_priv.h"
@ -41,17 +41,17 @@
static FILE*dump_file = 0; static FILE*dump_file = 0;
static PLI_INT32 sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
static PLI_INT32 sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
static PLI_INT32 sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(PLI_BYTE8*name)
{ {
return 0; return 0;
} }
@ -70,7 +70,7 @@ static void open_dumpfile(const char*path)
} }
} }
static PLI_INT32 sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(PLI_BYTE8*name)
{ {
char*path; char*path;
@ -113,7 +113,7 @@ static PLI_INT32 sys_dumpfile_calltf(char*name)
return 0; return 0;
} }
static PLI_INT32 sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(PLI_BYTE8*name)
{ {
if (dump_file == 0) { if (dump_file == 0) {
open_dumpfile("dumpfile.vcd"); open_dumpfile("dumpfile.vcd");
@ -171,6 +171,9 @@ void sys_vcdoff_register()
/* /*
* $Log: sys_vcdoff.c,v $ * $Log: sys_vcdoff.c,v $
* Revision 1.5 2007/03/14 04:05:52 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.4 2006/10/30 22:45:38 steve * Revision 1.4 2006/10/30 22:45:38 steve
* Updates for Cygwin portability (pr1585922) * Updates for Cygwin portability (pr1585922)
* *

13
vpi_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: vpi_user.h,v 1.36 2004/10/04 01:10:56 steve Exp $" #ident "$Id: vpi_user.h,v 1.37 2007/03/14 04:05:51 steve Exp $"
#endif #endif
@ -58,10 +58,10 @@ typedef struct t_vpi_systf_data {
PLI_INT32 type; PLI_INT32 type;
PLI_INT32 sysfunctype; PLI_INT32 sysfunctype;
const char *tfname; const char *tfname;
PLI_INT32 (*calltf)(char*); PLI_INT32 (*calltf) (PLI_BYTE8*);
PLI_INT32 (*compiletf)(char*); PLI_INT32 (*compiletf)(PLI_BYTE8*);
PLI_INT32 (*sizetf)(char*); PLI_INT32 (*sizetf) (PLI_BYTE8*);
char *user_data; PLI_BYTE8 *user_data;
} s_vpi_systf_data, *p_vpi_systf_data; } s_vpi_systf_data, *p_vpi_systf_data;
/* The type in the above structure can have one of the following /* The type in the above structure can have one of the following
@ -419,6 +419,9 @@ EXTERN_C_END
/* /*
* $Log: vpi_user.h,v $ * $Log: vpi_user.h,v $
* Revision 1.37 2007/03/14 04:05:51 steve
* VPI tasks take PLI_BYTE* by the standard.
*
* Revision 1.36 2004/10/04 01:10:56 steve * Revision 1.36 2004/10/04 01:10:56 steve
* Clean up spurious trailing white space. * Clean up spurious trailing white space.
* *