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

384 lines
10 KiB
C
Raw Normal View History

Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/*
* Verilog-2005 math library for Icarus Verilog
* http://www.icarus.com/eda/verilog/
*
Update VPI routines to on error signal VVP to return non-zero
2021-01-21 08:50:06 +01:00
* Copyright (C) 2007-2021 Cary R. (cygcary@yahoo.com)
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License along
* with this program; if not, write to the Free Software Foundation, Inc.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
#include "vpi_config.h"
#include <assert.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
Make sure to call vpi_config.h first. vpi_config.h defines _FILE_OFFSET_BITS. This must be defined before any system includes files are processed, so vpi_config.h must be called first. This patch puts vpi_config.h first. It also removes direct calls for both vpi_config.h and vpi_user.h when sys_priv.h is included since it already includes these two files. It also updates the code to always include vpi_user.h using double quotes.
2010-05-17 18:38:23 +02:00
#include "vpi_user.h"
Make ivl_alloc.h the last include so it doesn't effect any system includes. In ivl_alloc.h we redefine malloc(), realloc() and calloc() to have standard error checking. We don't want to do this for anything that comes from the standard headers. This specifically doesn't work if a C++ header files does std::malloc, etc. Also change to -W instead of -Wextra since that is more portable. I plan to add a check from -Wextra and use it when available since it is more descriptive.
2010-10-24 00:52:56 +02:00
#include "ivl_alloc.h"
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Single argument functions. */
typedef struct s_single_data {
const char *name;
double (*func)(double);
} t_single_data;
static t_single_data va_single_data[]= {
{"$sqrt", sqrt},
{"$ln", log},
{"$log10", log10},
{"$exp", exp},
{"$ceil", ceil},
{"$floor", floor},
{"$sin", sin},
{"$cos", cos},
{"$tan", tan},
{"$asin", asin},
{"$acos", acos},
{"$atan", atan},
{"$sinh", sinh},
{"$cosh", cosh},
{"$tanh", tanh},
{"$asinh", asinh},
{"$acosh", acosh},
{"$atanh", atanh},
{0, 0} /* Must be NULL terminated! */
};
/* Double argument functions. */
typedef struct s_double_data {
const char *name;
double (*func)(double, double);
} t_double_data;
static t_double_data va_double_data[]= {
{"$pow", pow},
{"$atan2", atan2},
{"$hypot", hypot},
{0, 0} /* Must be NULL terminated! */
};
/*
* This structure holds the single argument information.
*/
typedef struct {
vpiHandle arg;
double (*func)(double);
} va_single_t;
/*
* This structure holds the double argument information.
*/
typedef struct {
vpiHandle arg1;
vpiHandle arg2;
double (*func)(double, double);
} va_double_t;
Cleanup allocated memory in the math functions and veriusertfs. This patch cleans up the V-2005 and V-analog math functions to free their allocated memory at the end of simulation. It also modifies the veriusertfs code to do the same thing. It also closes the VCD file at EOS.
2009-01-29 19:38:22 +01:00
/*
* Cleanup the allocated memory at the end of simulation.
*/
static va_single_t** single_funcs = 0;
static unsigned single_funcs_count = 0;
static va_double_t** double_funcs = 0;
static unsigned double_funcs_count = 0;
static PLI_INT32 sys_end_of_simulation(p_cb_data cb_data)
{
unsigned idx;
Remove missing parameter warnings
2014-07-09 23:16:57 +02:00
(void)cb_data; /* Parameter is not used. */
Cleanup allocated memory in the math functions and veriusertfs. This patch cleans up the V-2005 and V-analog math functions to free their allocated memory at the end of simulation. It also modifies the veriusertfs code to do the same thing. It also closes the VCD file at EOS.
2009-01-29 19:38:22 +01:00
for (idx = 0; idx < single_funcs_count; idx += 1) {
free(single_funcs[idx]);
}
free(single_funcs);
single_funcs = 0;
single_funcs_count = 0;
for (idx = 0; idx < double_funcs_count; idx += 1) {
free(double_funcs[idx]);
}
free(double_funcs);
double_funcs = 0;
double_funcs_count = 0;
return 0;
}
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/*
* Standard error message routine. The format string must take one
* string argument (the name of the function).
*/
static void va_error_message(vpiHandle callh, const char *format,
const char *name) {
vpi_printf("%s:%d: error: ", vpi_get_str(vpiFile, callh),
(int)vpi_get(vpiLineNo, callh));
vpi_printf(format, name);
Update VPI routines to on error signal VVP to return non-zero
2021-01-21 08:50:06 +01:00
vpip_set_return_value(1);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
vpi_control(vpiFinish, 1);
}
/*
* Process an argument.
*/
Easy changes for -Wmissing-prototypes
2014-07-10 22:15:03 +02:00
static vpiHandle va_process_argument(vpiHandle callh, const char *name,
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
vpiHandle arg, const char *post) {
PLI_INT32 type;
if (arg == NULL) return 0;
type = vpi_get(vpiType, arg);
/* Math function cannot do anything with a string. */
if ((type == vpiConstant || type == vpiParameter) &&
(vpi_get(vpiConstType, arg) == vpiStringConst)) {
const char* basemsg = "%s cannot process strings";
char* msg = malloc(strlen(basemsg)+strlen(post)+3);
strcpy(msg, basemsg);
strcat(msg, post);
strcat(msg, ".\n");
va_error_message(callh, msg, name);
free(msg);
return 0;
}
return arg;
}
/*
* Routine to check all the single argument math functions.
*/
Brainless start to const-correct changes Results of running cd vpi for f in *.c *.h; do sed -i \ -e "s/_calltf(PLI_BYTE8/_calltf(ICARUS_VPI_CONST PLI_BYTE8/" \ -e "s/_compiletf(PLI_BYTE8/_compiletf(ICARUS_VPI_CONST PLI_BYTE8/" $f; done and a trivial patch to vpi_user.h to, among other things, make ICARUS_VPI_CONST blank. Thus, this patch does absolutely nothing. Will be followed by a (much shorter) patch that makes it do something. :-)
2010-10-04 18:31:01 +02:00
static PLI_INT32 va_single_argument_compiletf(ICARUS_VPI_CONST PLI_BYTE8 *ud)
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
{
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
vpiHandle callh, argv, arg;
Add possibility of const-correctness Follow-up to "Brainless start to const-correct changes" Still actually does nothing, but now if the #define ICARUS_VPI_CONST in vpi_user.h is changed to const, Icarus is almost const-correct, as checked with gcc flags -Wcast-qual -Wwrite-strings. Choosing when to #define ICARUS_VPI_CONST const is left as an exercise for the reader. With these two patches applied, and the const define, there are still about a dozen const problems left.
2010-10-04 18:53:55 +02:00
const t_single_data *data;
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
const char *name;
va_single_t* fun_data;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
assert(ud != 0);
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
callh = vpi_handle(vpiSysTfCall, 0);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
assert(callh != 0);
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
argv = vpi_iterate(vpiArgument, callh);
Add possibility of const-correctness Follow-up to "Brainless start to const-correct changes" Still actually does nothing, but now if the #define ICARUS_VPI_CONST in vpi_user.h is changed to const, Icarus is almost const-correct, as checked with gcc flags -Wcast-qual -Wwrite-strings. Choosing when to #define ICARUS_VPI_CONST const is left as an exercise for the reader. With these two patches applied, and the const define, there are still about a dozen const problems left.
2010-10-04 18:53:55 +02:00
data = (const t_single_data *) ud;
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
name = data->name;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
fun_data = malloc(sizeof(va_single_t));
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Check that there are arguments. */
if (argv == 0) {
va_error_message(callh, "%s requires one argument.\n", name);
Fix some memory leaks/issues found with cppcheck. I ran cppcheck on the code and it found a few obscure memory leaks and a few other issues. This patch fixes most of them.
2009-08-04 01:04:03 +02:00
free(fun_data);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
return 0;
}
/* In Icarus if we have an argv we have at least one argument. */
arg = vpi_scan(argv);
fun_data->arg = va_process_argument(callh, name, arg, "");
/* These functions only take one argument. */
arg = vpi_scan(argv);
if (arg != 0) {
va_error_message(callh, "%s takes only one argument.\n", name);
Free the iterator if there are extra arguments. To avoid extra memory usage on error free the iterator if there are extra arguments.
2011-10-06 01:48:09 +02:00
vpi_free_object(argv);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
}
/* Get the function that is to be used by the calltf routine. */
fun_data->func = data->func;
vpi_put_userdata(callh, fun_data);
Cleanup allocated memory in the math functions and veriusertfs. This patch cleans up the V-2005 and V-analog math functions to free their allocated memory at the end of simulation. It also modifies the veriusertfs code to do the same thing. It also closes the VCD file at EOS.
2009-01-29 19:38:22 +01:00
single_funcs_count += 1;
single_funcs = (va_single_t **)realloc(single_funcs,
single_funcs_count*sizeof(va_single_t **));
single_funcs[single_funcs_count-1] = fun_data;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* vpi_scan() returning 0 (NULL) has already freed argv. */
return 0;
}
/*
* Routine to implement the single argument math functions.
*/
Brainless start to const-correct changes Results of running cd vpi for f in *.c *.h; do sed -i \ -e "s/_calltf(PLI_BYTE8/_calltf(ICARUS_VPI_CONST PLI_BYTE8/" \ -e "s/_compiletf(PLI_BYTE8/_compiletf(ICARUS_VPI_CONST PLI_BYTE8/" $f; done and a trivial patch to vpi_user.h to, among other things, make ICARUS_VPI_CONST blank. Thus, this patch does absolutely nothing. Will be followed by a (much shorter) patch that makes it do something. :-)
2010-10-04 18:31:01 +02:00
static PLI_INT32 va_single_argument_calltf(ICARUS_VPI_CONST PLI_BYTE8 *ud)
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
{
vpiHandle callh = vpi_handle(vpiSysTfCall, 0);
s_vpi_value val;
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
va_single_t* fun_data;
Remove missing parameter warnings
2014-07-09 23:16:57 +02:00
(void)ud; /* Parameter is not used. */
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Retrieve the function and argument data. */
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
fun_data = vpi_get_userdata(callh);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Calculate the result */
val.format = vpiRealVal;
vpi_get_value(fun_data->arg, &val);
val.value.real = (fun_data->func)(val.value.real);
/* Return the result */
vpi_put_value(callh, &val, 0, vpiNoDelay);
return 0;
}
/*
* Routine to check all the double argument math functions.
*/
Brainless start to const-correct changes Results of running cd vpi for f in *.c *.h; do sed -i \ -e "s/_calltf(PLI_BYTE8/_calltf(ICARUS_VPI_CONST PLI_BYTE8/" \ -e "s/_compiletf(PLI_BYTE8/_compiletf(ICARUS_VPI_CONST PLI_BYTE8/" $f; done and a trivial patch to vpi_user.h to, among other things, make ICARUS_VPI_CONST blank. Thus, this patch does absolutely nothing. Will be followed by a (much shorter) patch that makes it do something. :-)
2010-10-04 18:31:01 +02:00
static PLI_INT32 va_double_argument_compiletf(ICARUS_VPI_CONST PLI_BYTE8 *ud)
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
{
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
vpiHandle callh, argv, arg;
Add possibility of const-correctness Follow-up to "Brainless start to const-correct changes" Still actually does nothing, but now if the #define ICARUS_VPI_CONST in vpi_user.h is changed to const, Icarus is almost const-correct, as checked with gcc flags -Wcast-qual -Wwrite-strings. Choosing when to #define ICARUS_VPI_CONST const is left as an exercise for the reader. With these two patches applied, and the const define, there are still about a dozen const problems left.
2010-10-04 18:53:55 +02:00
const t_double_data *data;
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
const char *name;
va_double_t* fun_data;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
assert(ud != 0);
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
callh = vpi_handle(vpiSysTfCall, 0);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
assert(callh != 0);
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
argv = vpi_iterate(vpiArgument, callh);
Add possibility of const-correctness Follow-up to "Brainless start to const-correct changes" Still actually does nothing, but now if the #define ICARUS_VPI_CONST in vpi_user.h is changed to const, Icarus is almost const-correct, as checked with gcc flags -Wcast-qual -Wwrite-strings. Choosing when to #define ICARUS_VPI_CONST const is left as an exercise for the reader. With these two patches applied, and the const define, there are still about a dozen const problems left.
2010-10-04 18:53:55 +02:00
data = (const t_double_data *) ud;
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
name = data->name;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
fun_data = malloc(sizeof(va_double_t));
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Check that there are arguments. */
if (argv == 0) {
va_error_message(callh, "%s requires two arguments.\n", name);
Fix some memory leaks/issues found with cppcheck. I ran cppcheck on the code and it found a few obscure memory leaks and a few other issues. This patch fixes most of them.
2009-08-04 01:04:03 +02:00
free(fun_data);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
return 0;
}
/* In Icarus if we have an argv we have at least one argument. */
arg = vpi_scan(argv);
fun_data->arg1 = va_process_argument(callh, name, arg, " (arg1)");
/* Check that there are at least two arguments. */
arg = vpi_scan(argv);
if (arg == 0) {
va_error_message(callh, "%s requires two arguments.\n", name);
}
fun_data->arg2 = va_process_argument(callh, name, arg, " (arg2)");
/* These functions only take two arguments. */
arg = vpi_scan(argv);
if (arg != 0) {
va_error_message(callh, "%s takes only two arguments.\n", name);
Free the iterator if there are extra arguments. To avoid extra memory usage on error free the iterator if there are extra arguments.
2011-10-06 01:48:09 +02:00
vpi_free_object(argv);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
}
/* Get the function that is to be used by the calltf routine. */
fun_data->func = data->func;
vpi_put_userdata(callh, fun_data);
Cleanup allocated memory in the math functions and veriusertfs. This patch cleans up the V-2005 and V-analog math functions to free their allocated memory at the end of simulation. It also modifies the veriusertfs code to do the same thing. It also closes the VCD file at EOS.
2009-01-29 19:38:22 +01:00
double_funcs_count += 1;
double_funcs = (va_double_t **)realloc(double_funcs,
double_funcs_count*sizeof(va_double_t **));
double_funcs[double_funcs_count-1] = fun_data;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* vpi_scan() returning 0 (NULL) has already freed argv. */
return 0;
}
/*
* Routine to implement the double argument math functions.
*/
Brainless start to const-correct changes Results of running cd vpi for f in *.c *.h; do sed -i \ -e "s/_calltf(PLI_BYTE8/_calltf(ICARUS_VPI_CONST PLI_BYTE8/" \ -e "s/_compiletf(PLI_BYTE8/_compiletf(ICARUS_VPI_CONST PLI_BYTE8/" $f; done and a trivial patch to vpi_user.h to, among other things, make ICARUS_VPI_CONST blank. Thus, this patch does absolutely nothing. Will be followed by a (much shorter) patch that makes it do something. :-)
2010-10-04 18:31:01 +02:00
static PLI_INT32 va_double_argument_calltf(ICARUS_VPI_CONST PLI_BYTE8 *ud)
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
{
vpiHandle callh = vpi_handle(vpiSysTfCall, 0);
s_vpi_value val;
double first_arg;
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
va_double_t* fun_data;
Remove missing parameter warnings
2014-07-09 23:16:57 +02:00
(void)ud; /* Parameter is not used. */
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Retrieve the function and argument data. */
Content-free portability fixes. These are patches from ITOH Yasufumi and Larry Doolittle of pr2120948. They change nothing, but make the code compile with older compilers.
2008-09-30 03:06:47 +02:00
fun_data = vpi_get_userdata(callh);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
/* Calculate the result */
val.format = vpiRealVal;
vpi_get_value(fun_data->arg1, &val);
first_arg = val.value.real;
vpi_get_value(fun_data->arg2, &val);
val.value.real = (fun_data->func)(first_arg, val.value.real);
/* Return the result */
vpi_put_value(callh, &val, 0, vpiNoDelay);
return 0;
}
/*
* Register all the functions with Verilog.
*/
static void sys_v2005_math_register(void)
{
Cleanup allocated memory in the math functions and veriusertfs. This patch cleans up the V-2005 and V-analog math functions to free their allocated memory at the end of simulation. It also modifies the veriusertfs code to do the same thing. It also closes the VCD file at EOS.
2009-01-29 19:38:22 +01:00
s_cb_data cb_data;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
s_vpi_systf_data tf_data;
Add support for vpiUserSystf iteration, etc. This patch adds support for iterating over the list of vpiUserSystf tasks/functions that have vpiUserDefn set. The vpiUserDefn property is true by default, but you can call vpip_make_systf_system_defined() to set this property false (will hide the vpiUserSystf object). All the normal system tasks/functions have been modified to call this procedure to remove them from the list of vpiUserSystf objects. Only user defined system tasks or functions should appear in the list. vpi_compare_objects() is just a simple are the two pointers the same. This works correctly for the vpiUserSystf objects, but the other handle objects have not been checked.
2010-04-12 08:39:08 +02:00
vpiHandle res;
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
unsigned idx;
/* Register the single argument functions. */
tf_data.type = vpiSysFunc;
tf_data.sysfunctype = vpiRealFunc;
tf_data.calltf = va_single_argument_calltf;
tf_data.compiletf = va_single_argument_compiletf;
tf_data.sizetf = 0;
for (idx=0; va_single_data[idx].name != 0; idx++) {
tf_data.tfname = va_single_data[idx].name;
tf_data.user_data = (PLI_BYTE8 *) &va_single_data[idx];
Add support for vpiUserSystf iteration, etc. This patch adds support for iterating over the list of vpiUserSystf tasks/functions that have vpiUserDefn set. The vpiUserDefn property is true by default, but you can call vpip_make_systf_system_defined() to set this property false (will hide the vpiUserSystf object). All the normal system tasks/functions have been modified to call this procedure to remove them from the list of vpiUserSystf objects. Only user defined system tasks or functions should appear in the list. vpi_compare_objects() is just a simple are the two pointers the same. This works correctly for the vpiUserSystf objects, but the other handle objects have not been checked.
2010-04-12 08:39:08 +02:00
res = vpi_register_systf(&tf_data);
vpip_make_systf_system_defined(res);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
}
/* Register the double argument functions. */
tf_data.type = vpiSysFunc;
tf_data.sysfunctype = vpiRealFunc;
tf_data.calltf = va_double_argument_calltf;
tf_data.compiletf = va_double_argument_compiletf;
tf_data.sizetf = 0;
for (idx=0; va_double_data[idx].name != 0; idx++) {
tf_data.tfname = va_double_data[idx].name;
tf_data.user_data = (PLI_BYTE8 *) &va_double_data[idx];
Add support for vpiUserSystf iteration, etc. This patch adds support for iterating over the list of vpiUserSystf tasks/functions that have vpiUserDefn set. The vpiUserDefn property is true by default, but you can call vpip_make_systf_system_defined() to set this property false (will hide the vpiUserSystf object). All the normal system tasks/functions have been modified to call this procedure to remove them from the list of vpiUserSystf objects. Only user defined system tasks or functions should appear in the list. vpi_compare_objects() is just a simple are the two pointers the same. This works correctly for the vpiUserSystf objects, but the other handle objects have not been checked.
2010-04-12 08:39:08 +02:00
res = vpi_register_systf(&tf_data);
vpip_make_systf_system_defined(res);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
}
Cleanup allocated memory in the math functions and veriusertfs. This patch cleans up the V-2005 and V-analog math functions to free their allocated memory at the end of simulation. It also modifies the veriusertfs code to do the same thing. It also closes the VCD file at EOS.
2009-01-29 19:38:22 +01:00
/* We need to clean up the userdata. */
cb_data.reason = cbEndOfSimulation;
cb_data.time = 0;
cb_data.cb_rtn = sys_end_of_simulation;
cb_data.user_data = "system";
vpi_register_cb(&cb_data);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
}
/*
* Hook to get Icarus Verilog to find the registration function.
*/
Fuss with C function prototypes 119 formal void parameters added to keep -Wstrict-prototypes happy. Process found one real missing prototype in vpi/vcd_priv.h: EXTERN void vcd_names_delete(struct vcd_names_list_s*tab); 8 such warnings left, all in Tony's code
2014-07-08 21:12:54 +02:00
extern void sys_clog2_register(void);
Add the Verilog-2005 and Verilog-AMS constant system functions. This patch adds the constant system functions for Verilog-2005 and Verilog-AMS. These are evaluated at compile time. $abs(), $min() and $max() support their polymorphic behavior in the compiler where it really matters. They are always evaluated as reals in the run time and the result/argument(s) will be converted as needed. The Verilog-2005 functions are available if using the 2005 generation (default) and if either the icarus-misc (also on by default) or verilog-ams flags are set. The Verilog-AMS functions are available if either the icarus-misc or verilog-ams flags are set.
2008-08-30 06:11:44 +02:00
void (*vlog_startup_routines[])(void) = {
sys_v2005_math_register,
sys_clog2_register,
0
};