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

Update vpi/etc. files to correctly use PLI_INT32 

This patch fixes the various PLI code that was incorrectly
using int for PLI_INT32 for functions that are used with the
vpi_systf_data and cd_data data structures.
This commit is contained in:
Cary R 2007-11-27 17:33:12 -08:00 committed by Stephen Williams
parent 0f716d6dca
commit bbd61823b9
17 changed files with 98 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libveriuser/a_next.c
View File

@ -34,7 +34,7 @@ handle acc_next(PLI_INT32 *type, handle scope, handle prev)
/* trace */ /* trace */
if (pli_trace) { if (pli_trace) {
int *ip; PLI_INT32 *ip;
fprintf(pli_trace, "acc_next(%p <", type); fprintf(pli_trace, "acc_next(%p <", type);
for (ip = type; *ip; ip++) { for (ip = type; *ip; ip++) {
fprintf(pli_trace, "%s%d", ip != type ? "," : "", *ip); fprintf(pli_trace, "%s%d", ip != type ? "," : "", *ip);

14
libveriuser/veriusertfs.c
View File

@ -44,9 +44,9 @@ typedef struct t_pli_data {
int paramvc; /* parameter number for misctf */ int paramvc; /* parameter number for misctf */
} s_pli_data, *p_pli_data; } s_pli_data, *p_pli_data;
static int compiletf(char *); static PLI_INT32 compiletf(char *);
static int calltf(char *); static PLI_INT32 calltf(char *);
static int callback(p_cb_data); static PLI_INT32 callback(p_cb_data);
/* /*
* Register veriusertfs routines/wrappers. Iterate over the tfcell * Register veriusertfs routines/wrappers. Iterate over the tfcell
@ -109,7 +109,7 @@ void veriusertfs_register_table(p_tfcell vtable)
tf_data.tfname = tf->tfname; tf_data.tfname = tf->tfname;
tf_data.compiletf = compiletf; tf_data.compiletf = compiletf;
tf_data.calltf = calltf; tf_data.calltf = calltf;
tf_data.sizetf = tf->sizetf; tf_data.sizetf = (PLI_INT32 (*)(char *))tf->sizetf;
tf_data.user_data = (char *)data; tf_data.user_data = (char *)data;
if (pli_trace) { if (pli_trace) {
@ -139,7 +139,7 @@ void veriusertfs_register_table(p_tfcell vtable)
* This function calls the veriusertfs checktf and sets up all the * This function calls the veriusertfs checktf and sets up all the
* callbacks misctf requires. * callbacks misctf requires.
*/ */
static int compiletf(char *data) static PLI_INT32 compiletf(char *data)
{ {
p_pli_data pli; p_pli_data pli;
p_tfcell tf; p_tfcell tf;
@ -221,7 +221,7 @@ static int compiletf(char *data)
/* /*
* This function is the wrapper for the veriusertfs calltf routine. * This function is the wrapper for the veriusertfs calltf routine.
*/ */
static int calltf(char *data) static PLI_INT32 calltf(char *data)
{ {
int rc = 0; int rc = 0;
p_pli_data pli; p_pli_data pli;
@ -249,7 +249,7 @@ static int calltf(char *data)
*/ */
extern int async_misctf_enable; extern int async_misctf_enable;
static int callback(p_cb_data data) static PLI_INT32 callback(p_cb_data data)
{ {
p_pli_data pli; p_pli_data pli;
p_tfcell tf; p_tfcell tf;

14
vpi/sys_convert.c
View File

@ -86,10 +86,10 @@ static void double2bits(double real, PLI_UINT32 bits[2])
#endif #endif
} }
static int sizetf_32 (char*x) { return 32; } static PLI_INT32 sizetf_32 (char*x) { return 32; }
static int sizetf_64 (char*x) { return 64; } static PLI_INT32 sizetf_64 (char*x) { return 64; }
static int sys_convert_compiletf(char *name) static PLI_INT32 sys_convert_compiletf(char *name)
{ {
vpiHandle call_hand, argv, arg; vpiHandle call_hand, argv, arg;
int rtn = 0; int rtn = 0;
@ -116,7 +116,7 @@ static int sys_convert_compiletf(char *name)
return rtn; return rtn;
} }
static int sys_bitstoreal_calltf(char *user) static PLI_INT32 sys_bitstoreal_calltf(char *user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -147,7 +147,7 @@ static int sys_bitstoreal_calltf(char *user)
return 0; return 0;
} }
static int sys_itor_calltf(char *user) static PLI_INT32 sys_itor_calltf(char *user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -174,7 +174,7 @@ static int sys_itor_calltf(char *user)
return 0; return 0;
} }
static int sys_realtobits_calltf(char *user) static PLI_INT32 sys_realtobits_calltf(char *user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;
@ -211,7 +211,7 @@ static int sys_realtobits_calltf(char *user)
return 0; return 0;
} }
static int sys_rtoi_calltf(char *user) static PLI_INT32 sys_rtoi_calltf(char *user)
{ {
vpiHandle sys, argv, arg; vpiHandle sys, argv, arg;
s_vpi_value value; s_vpi_value value;

2
vpi/sys_deposit.c
View File

@ -26,7 +26,7 @@
# include "vpi_user.h" # include "vpi_user.h"
# include <assert.h> # include <assert.h>
static int sys_deposit_calltf(char *name) static PLI_INT32 sys_deposit_calltf(char *name)
{ {
vpiHandle sys, argv, target, value; vpiHandle sys, argv, target, value;
s_vpi_value val; s_vpi_value val;

26
vpi/sys_display.c
View File

@ -931,7 +931,7 @@ static int get_default_format(char *name)
return default_format; return default_format;
} }
static int sys_display_calltf(char *name) static PLI_INT32 sys_display_calltf(char *name)
{ {
struct strobe_cb_info*info; struct strobe_cb_info*info;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -966,7 +966,7 @@ static int sys_display_calltf(char *name)
* where it is use to perform the actual formatting and printing. * where it is use to perform the actual formatting and printing.
*/ */
static int strobe_cb(p_cb_data cb) static PLI_INT32 strobe_cb(p_cb_data cb)
{ {
struct strobe_cb_info*info = (struct strobe_cb_info*)cb->user_data; struct strobe_cb_info*info = (struct strobe_cb_info*)cb->user_data;
@ -980,7 +980,7 @@ static int strobe_cb(p_cb_data cb)
return 0; return 0;
} }
static int sys_strobe_calltf(char*name) static PLI_INT32 sys_strobe_calltf(char*name)
{ {
struct t_cb_data cb; struct t_cb_data cb;
struct t_vpi_time time; struct t_vpi_time time;
@ -1070,7 +1070,7 @@ static vpiHandle *monitor_callbacks = 0;
static int monitor_scheduled = 0; static int monitor_scheduled = 0;
static int monitor_enabled = 1; static int monitor_enabled = 1;
static int monitor_cb_2(p_cb_data cb) static PLI_INT32 monitor_cb_2(p_cb_data cb)
{ {
do_display(1, &monitor_info); do_display(1, &monitor_info);
vpi_printf("\n"); vpi_printf("\n");
@ -1084,7 +1084,7 @@ static int monitor_cb_2(p_cb_data cb)
* display to occur in a ReadOnlySync callback. The monitor_scheduled * display to occur in a ReadOnlySync callback. The monitor_scheduled
* flag is used to allow only one monitor strobe to be scheduled. * flag is used to allow only one monitor strobe to be scheduled.
*/ */
static int monitor_cb_1(p_cb_data cause) static PLI_INT32 monitor_cb_1(p_cb_data cause)
{ {
struct t_cb_data cb; struct t_cb_data cb;
struct t_vpi_time time; struct t_vpi_time time;
@ -1110,7 +1110,7 @@ static int monitor_cb_1(p_cb_data cause)
return 0; return 0;
} }
static int sys_monitor_calltf(char*name) static PLI_INT32 sys_monitor_calltf(char*name)
{ {
unsigned idx; unsigned idx;
struct t_cb_data cb; struct t_cb_data cb;
@ -1177,14 +1177,14 @@ static int sys_monitor_calltf(char*name)
return 0; return 0;
} }
static int sys_monitoron_calltf(char*name) static PLI_INT32 sys_monitoron_calltf(char*name)
{ {
monitor_enabled = 1; monitor_enabled = 1;
monitor_cb_1(0); monitor_cb_1(0);
return 0; return 0;
} }
static int sys_monitoroff_calltf(char*name) static PLI_INT32 sys_monitoroff_calltf(char*name)
{ {
monitor_enabled = 0; monitor_enabled = 0;
return 0; return 0;
@ -1193,7 +1193,7 @@ static int 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 int sys_fdisplay_calltf(char *name) static PLI_INT32 sys_fdisplay_calltf(char *name)
{ {
struct strobe_cb_info info; struct strobe_cb_info info;
unsigned int mcd; unsigned int mcd;
@ -1257,7 +1257,7 @@ static int sys_fdisplay_calltf(char *name)
return 0; return 0;
} }
static int sys_timeformat_compiletf(char *xx) static PLI_INT32 sys_timeformat_compiletf(char *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);
@ -1279,7 +1279,7 @@ static int sys_timeformat_compiletf(char *xx)
return 0; return 0;
} }
static int sys_timeformat_calltf(char *xx) static PLI_INT32 sys_timeformat_calltf(char *xx)
{ {
s_vpi_value value; s_vpi_value value;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -1335,7 +1335,7 @@ static char *pts_convert(int value)
return string; return string;
} }
static int sys_printtimescale_calltf(char *xx) static PLI_INT32 sys_printtimescale_calltf(char *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);
@ -1358,7 +1358,7 @@ static int sys_printtimescale_calltf(char *xx)
return 0; return 0;
} }
static int sys_end_of_compile(p_cb_data cb_data) static PLI_INT32 sys_end_of_compile(p_cb_data cb_data)
{ {
/* The default timeformat prints times in unit of simulation /* The default timeformat prints times in unit of simulation
precision. */ precision. */

24
vpi/sys_fileio.c
View File

@ -33,7 +33,7 @@
/* /*
* Implement the $fopen system function. * Implement the $fopen system function.
*/ */
static int sys_fopen_calltf(char *name) static PLI_INT32 sys_fopen_calltf(char *name)
{ {
s_vpi_value value; s_vpi_value value;
unsigned char *mode_string = 0; unsigned char *mode_string = 0;
@ -95,7 +95,7 @@ static int sys_fopen_calltf(char *name)
return 0; return 0;
} }
static int sys_fopen_sizetf(char*x) static PLI_INT32 sys_fopen_sizetf(char*x)
{ {
return 32; return 32;
} }
@ -103,7 +103,7 @@ static int sys_fopen_sizetf(char*x)
/* /*
* Implement $fclose system function * Implement $fclose system function
*/ */
static int sys_fclose_calltf(char *name) static PLI_INT32 sys_fclose_calltf(char *name)
{ {
unsigned int mcd; unsigned int mcd;
int type; int type;
@ -139,14 +139,14 @@ static int sys_fclose_calltf(char *name)
return 0; return 0;
} }
static int sys_fflush_calltf(char *name) static PLI_INT32 sys_fflush_calltf(char *name)
{ {
fflush(0); fflush(0);
return 0; return 0;
} }
static int sys_fputc_calltf(char *name) static PLI_INT32 sys_fputc_calltf(char *name)
{ {
unsigned int mcd; unsigned int mcd;
int type; int type;
@ -193,7 +193,7 @@ static int sys_fputc_calltf(char *name)
return fputc(x, fp); return fputc(x, fp);
} }
static int sys_fgetc_calltf(char *name) static PLI_INT32 sys_fgetc_calltf(char *name)
{ {
unsigned int mcd; unsigned int mcd;
int type; int type;
@ -238,12 +238,12 @@ static int sys_fgetc_calltf(char *name)
return 0; return 0;
} }
static int sys_fgetc_sizetf(char*x) static PLI_INT32 sys_fgetc_sizetf(char*x)
{ {
return 32; return 32;
} }
static int sys_fgets_compiletf(char*name) static PLI_INT32 sys_fgets_compiletf(char*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);
@ -276,7 +276,7 @@ static int sys_fgets_compiletf(char*name)
return 0; return 0;
} }
static int sys_fgets_calltf(char *name) static PLI_INT32 sys_fgets_calltf(char *name)
{ {
unsigned int mcd; unsigned int mcd;
FILE*fd; FILE*fd;
@ -326,7 +326,7 @@ static int sys_fgets_calltf(char *name)
return 0; return 0;
} }
static int sys_ungetc_compiletf(char*name) static PLI_INT32 sys_ungetc_compiletf(char*name)
{ {
int type; int type;
vpiHandle sys = vpi_handle(vpiSysTfCall, 0); vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
@ -354,7 +354,7 @@ static int sys_ungetc_compiletf(char*name)
return 0; return 0;
} }
static int sys_ungetc_calltf(char *name) static PLI_INT32 sys_ungetc_calltf(char *name)
{ {
unsigned int mcd; unsigned int mcd;
unsigned char x; unsigned char x;
@ -398,7 +398,7 @@ static int sys_ungetc_calltf(char *name)
return 0; return 0;
} }
static int sys_ungetc_sizetf(char*x) static PLI_INT32 sys_ungetc_sizetf(char*x)
{ {
return 32; return 32;
} }

2
vpi/sys_finish.c
View File

@ -25,7 +25,7 @@
# include "vpi_user.h" # include "vpi_user.h"
# include <string.h> # include <string.h>
static int sys_finish_calltf(char *name) static PLI_INT32 sys_finish_calltf(char *name)
{ {
if (strcmp(name,"$stop") == 0) { if (strcmp(name,"$stop") == 0) {
vpi_sim_control(vpiStop, 0); vpi_sim_control(vpiStop, 0);

18
vpi/sys_lxt.c
View File

@ -220,7 +220,7 @@ static void vcd_checkpoint_x()
show_this_item_x(cur); show_this_item_x(cur);
} }
static int variable_cb_2(p_cb_data cause) static PLI_INT32 variable_cb_2(p_cb_data cause)
{ {
struct vcd_info* info = vcd_dmp_list; struct vcd_info* info = vcd_dmp_list;
PLI_UINT64 now = timerec_to_time64(cause->time); PLI_UINT64 now = timerec_to_time64(cause->time);
@ -240,7 +240,7 @@ static int variable_cb_2(p_cb_data cause)
return 0; return 0;
} }
static int variable_cb_1(p_cb_data cause) static PLI_INT32 variable_cb_1(p_cb_data cause)
{ {
struct t_cb_data cb; struct t_cb_data cb;
struct vcd_info*info = (struct vcd_info*)cause->user_data; struct vcd_info*info = (struct vcd_info*)cause->user_data;
@ -263,7 +263,7 @@ static int variable_cb_1(p_cb_data cause)
return 0; return 0;
} }
static int dumpvars_cb(p_cb_data cause) static PLI_INT32 dumpvars_cb(p_cb_data cause)
{ {
if (dumpvars_status != 1) if (dumpvars_status != 1)
return 0; return 0;
@ -310,7 +310,7 @@ inline static int install_dumpvars_callback(void)
return 0; return 0;
} }
static int sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(char*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -340,7 +340,7 @@ static int sys_dumpoff_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(char*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -370,7 +370,7 @@ static int sys_dumpon_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(char*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 int sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(char*name)
{ {
char*path; char*path;
@ -470,7 +470,7 @@ static int sys_dumpfile_calltf(char*name)
/* /*
* The LXT1 format has no concept of file flushing. * The LXT1 format has no concept of file flushing.
*/ */
static int sys_dumpflush_calltf(char*name) static PLI_INT32 sys_dumpflush_calltf(char*name)
{ {
return 0; return 0;
} }
@ -674,7 +674,7 @@ static int draw_scope(vpiHandle item)
return depth; return depth;
} }
static int sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(char*name)
{ {
unsigned depth; unsigned depth;
s_vpi_value value; s_vpi_value value;

18
vpi/sys_lxt2.c
View File

@ -222,7 +222,7 @@ static void vcd_checkpoint_x()
show_this_item_x(cur); show_this_item_x(cur);
} }
static int variable_cb_2(p_cb_data cause) static PLI_INT32 variable_cb_2(p_cb_data cause)
{ {
struct vcd_info* info = vcd_dmp_list; struct vcd_info* info = vcd_dmp_list;
PLI_UINT64 now = timerec_to_time64(cause->time); PLI_UINT64 now = timerec_to_time64(cause->time);
@ -242,7 +242,7 @@ static int variable_cb_2(p_cb_data cause)
return 0; return 0;
} }
static int variable_cb_1(p_cb_data cause) static PLI_INT32 variable_cb_1(p_cb_data cause)
{ {
struct t_cb_data cb; struct t_cb_data cb;
struct vcd_info*info = (struct vcd_info*)cause->user_data; struct vcd_info*info = (struct vcd_info*)cause->user_data;
@ -265,7 +265,7 @@ static int variable_cb_1(p_cb_data cause)
return 0; return 0;
} }
static int dumpvars_cb(p_cb_data cause) static PLI_INT32 dumpvars_cb(p_cb_data cause)
{ {
if (dumpvars_status != 1) if (dumpvars_status != 1)
return 0; return 0;
@ -312,7 +312,7 @@ inline static int install_dumpvars_callback(void)
return 0; return 0;
} }
static int sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(char*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -341,7 +341,7 @@ static int sys_dumpoff_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(char*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -371,7 +371,7 @@ static int sys_dumpon_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(char*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 int sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(char*name)
{ {
char*path; char*path;
@ -479,7 +479,7 @@ static int 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 int sys_dumpflush_calltf(char*name) static PLI_INT32 sys_dumpflush_calltf(char*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 int sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(char*name)
{ {
unsigned depth; unsigned depth;
s_vpi_value value; s_vpi_value value;

10
vpi/sys_plusargs.c
View File

@ -25,7 +25,7 @@
# include <stdlib.h> # include <stdlib.h>
# include <assert.h> # include <assert.h>
static int sys_plusargs_sizetf(char*x) static PLI_INT32 sys_plusargs_sizetf(char*x)
{ {
return 32; return 32;
} }
@ -34,7 +34,7 @@ static int 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 int sys_test_plusargs_compiletf(char*xx) static PLI_INT32 sys_test_plusargs_compiletf(char*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 int 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 int sys_test_plusargs_calltf(char*xx) static PLI_INT32 sys_test_plusargs_calltf(char*xx)
{ {
int idx; int idx;
int flag = 0; int flag = 0;
@ -125,7 +125,7 @@ static int sys_test_plusargs_calltf(char*xx)
return 0; return 0;
} }
static int sys_value_plusargs_compiletf(char*xx) static PLI_INT32 sys_value_plusargs_compiletf(char*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 int sys_value_plusargs_compiletf(char*xx)
return 0; return 0;
} }
static int sys_value_plusargs_calltf(char*xx) static PLI_INT32 sys_value_plusargs_calltf(char*xx)
{ {
char*cp; char*cp;
int idx; int idx;

2
vpi/sys_priv.h
View File

@ -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 int sys_vcd_dumpvars_compiletf(char*name); extern PLI_INT32 sys_vcd_dumpvars_compiletf(char*name);
/* /*
* Context structure for PRNG in mt19937int.c * Context structure for PRNG in mt19937int.c

12
vpi/sys_random.c
View File

@ -190,7 +190,7 @@ static long poisson(long*seed, long mean)
return n; return n;
} }
static int sys_dist_poisson_calltf(char*name) static PLI_INT32 sys_dist_poisson_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -230,12 +230,12 @@ static int sys_dist_poisson_calltf(char*name)
return 0; return 0;
} }
static int sys_dist_poisson_sizetf(char*x) static PLI_INT32 sys_dist_poisson_sizetf(char*x)
{ {
return 32; return 32;
} }
static int sys_dist_uniform_calltf(char*name) static PLI_INT32 sys_dist_uniform_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -284,12 +284,12 @@ static int sys_dist_uniform_calltf(char*name)
return 0; return 0;
} }
static int sys_dist_uniform_sizetf(char*x) static PLI_INT32 sys_dist_uniform_sizetf(char*x)
{ {
return 32; return 32;
} }
static int sys_random_calltf(char*name) static PLI_INT32 sys_random_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -327,7 +327,7 @@ static int sys_random_calltf(char*name)
return 0; return 0;
} }
static int sys_random_sizetf(char*x) static PLI_INT32 sys_random_sizetf(char*x)
{ {
return 32; return 32;
} }

8
vpi/sys_random_mti.c
View File

@ -61,7 +61,7 @@ static long mti_dist_uniform(long*seed, long start, long end)
} }
static int sys_mti_dist_uniform_calltf(char*name) static PLI_INT32 sys_mti_dist_uniform_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -110,12 +110,12 @@ static int sys_mti_dist_uniform_calltf(char*name)
return 0; return 0;
} }
static int sys_mti_dist_uniform_sizetf(char*x) static PLI_INT32 sys_mti_dist_uniform_sizetf(char*x)
{ {
return 32; return 32;
} }
static int sys_mti_random_calltf(char*name) static PLI_INT32 sys_mti_random_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
vpiHandle call_handle; vpiHandle call_handle;
@ -174,7 +174,7 @@ static int sys_mti_random_calltf(char*name)
return 0; return 0;
} }
static int sys_mti_random_sizetf(char*x) static PLI_INT32 sys_mti_random_sizetf(char*x)
{ {
return 32; return 32;
} }

4
vpi/sys_readmem.c
View File

@ -100,7 +100,7 @@ static int check_file_name(const char*name, vpiHandle item)
} }
static int sys_readmem_calltf(char*name) static PLI_INT32 sys_readmem_calltf(char*name)
{ {
int code; int code;
int wwid; int wwid;
@ -355,7 +355,7 @@ static int sys_readmem_calltf(char*name)
return 0; return 0;
} }
static int sys_writemem_calltf(char*name) static PLI_INT32 sys_writemem_calltf(char*name)
{ {
int wwid; int wwid;
char*path; char*path;

8
vpi/sys_time.c
View File

@ -37,17 +37,17 @@ static vpiHandle module_of_function(vpiHandle obj)
return obj; return obj;
} }
static int sys_time_sizetf(char*x) static PLI_INT32 sys_time_sizetf(char*x)
{ {
return 64; return 64;
} }
static int sys_stime_sizetf(char*x) static PLI_INT32 sys_stime_sizetf(char*x)
{ {
return 32; return 32;
} }
static int sys_time_calltf(char*name) static PLI_INT32 sys_time_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
s_vpi_time now; s_vpi_time now;
@ -102,7 +102,7 @@ static int sys_time_calltf(char*name)
return 0; return 0;
} }
static int sys_realtime_calltf(char*name) static PLI_INT32 sys_realtime_calltf(char*name)
{ {
s_vpi_value val; s_vpi_value val;
s_vpi_time now; s_vpi_time now;

22
vpi/sys_vcd.c
View File

@ -174,7 +174,7 @@ static void vcd_checkpoint_x()
show_this_item_x(cur); show_this_item_x(cur);
} }
static int variable_cb_2(p_cb_data cause) static PLI_INT32 variable_cb_2(p_cb_data cause)
{ {
struct vcd_info* info = vcd_dmp_list; struct vcd_info* info = vcd_dmp_list;
PLI_UINT64 now = timerec_to_time64(cause->time); PLI_UINT64 now = timerec_to_time64(cause->time);
@ -194,7 +194,7 @@ static int variable_cb_2(p_cb_data cause)
return 0; return 0;
} }
static int variable_cb_1(p_cb_data cause) static PLI_INT32 variable_cb_1(p_cb_data cause)
{ {
struct t_cb_data cb; struct t_cb_data cb;
struct vcd_info*info = (struct vcd_info*)cause->user_data; struct vcd_info*info = (struct vcd_info*)cause->user_data;
@ -217,7 +217,7 @@ static int variable_cb_1(p_cb_data cause)
return 0; return 0;
} }
static int dumpvars_cb(p_cb_data cause) static PLI_INT32 dumpvars_cb(p_cb_data cause)
{ {
if (dumpvars_status != 1) if (dumpvars_status != 1)
return 0; return 0;
@ -268,7 +268,7 @@ inline static int install_dumpvars_callback(void)
return 0; return 0;
} }
static int sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(char*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -299,7 +299,7 @@ static int sys_dumpoff_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(char*name)
{ {
s_vpi_time now; s_vpi_time now;
PLI_UINT64 now64; PLI_UINT64 now64;
@ -330,7 +330,7 @@ static int sys_dumpon_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(char*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 int sys_dumpfile_compiletf(char*name) static PLI_INT32 sys_dumpfile_compiletf(char*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 int sys_dumpfile_compiletf(char*name)
return 0; return 0;
} }
static int sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(char*name)
{ {
return 0; return 0;
} }
static int sys_dumpflush_calltf(char*name) static PLI_INT32 sys_dumpflush_calltf(char*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.
*/ */
int sys_vcd_dumpvars_compiletf(char*name) PLI_INT32 sys_vcd_dumpvars_compiletf(char*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 @@ int sys_vcd_dumpvars_compiletf(char*name)
return 0; return 0;
} }
static int sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(char*name)
{ {
unsigned depth; unsigned depth;
s_vpi_value value; s_vpi_value value;

10
vpi/sys_vcdoff.c
View File

@ -41,17 +41,17 @@
static FILE*dump_file = 0; static FILE*dump_file = 0;
static int sys_dumpoff_calltf(char*name) static PLI_INT32 sys_dumpoff_calltf(char*name)
{ {
return 0; return 0;
} }
static int sys_dumpon_calltf(char*name) static PLI_INT32 sys_dumpon_calltf(char*name)
{ {
return 0; return 0;
} }
static int sys_dumpall_calltf(char*name) static PLI_INT32 sys_dumpall_calltf(char*name)
{ {
return 0; return 0;
} }
@ -70,7 +70,7 @@ static void open_dumpfile(const char*path)
} }
} }
static int sys_dumpfile_calltf(char*name) static PLI_INT32 sys_dumpfile_calltf(char*name)
{ {
char*path; char*path;
@ -113,7 +113,7 @@ static int sys_dumpfile_calltf(char*name)
return 0; return 0;
} }
static int sys_dumpvars_calltf(char*name) static PLI_INT32 sys_dumpvars_calltf(char*name)
{ {
if (dump_file == 0) { if (dump_file == 0) {
open_dumpfile("dumpfile.vcd"); open_dumpfile("dumpfile.vcd");