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

Implement $low() for certain types.

This commit is contained in:
Stephen Williams 2014-08-21 16:35:13 -07:00
parent f602ae84ab
commit ea5789e4d9
1 changed files with 58 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
vpi/v2009_array.c
View File

@ -114,6 +114,57 @@ static PLI_INT32 high_calltf(ICARUS_VPI_CONST PLI_BYTE8*name)
return 0;
}
static void low_array(const char*name, vpiHandle callh, vpiHandle arg)
{
s_vpi_value value;
int array_type;
switch ( (array_type = vpi_get(vpiArrayType, arg)) ) {
case vpiDynamicArray:
case vpiQueueArray:
value.format = vpiIntVal;
value.value.integer = 0;
vpi_put_value(callh, &value, 0, vpiNoDelay);
break;
default:
vpi_printf("SORRY: %s:%d: function %s() argument object code is %d\n",
vpi_get_str(vpiFile,callh), (int)vpi_get(vpiLineNo, callh),
name, array_type);
break;
}
}
static PLI_INT32 low_calltf(ICARUS_VPI_CONST PLI_BYTE8*name)
{
vpiHandle callh = vpi_handle(vpiSysTfCall, 0);
vpiHandle argv;
vpiHandle arg;
int object_code;
(void)name; /* Parameter is not used. */
argv = vpi_iterate(vpiArgument, callh);
assert(argv);
arg = vpi_scan(argv);
assert(arg);
vpi_free_object(argv);
switch ( (object_code = vpi_get(vpiType, arg)) ) {
case vpiArrayVar:
low_array(name, callh, arg);
break;
default:
vpi_printf("SORRY: %s:%d: function %s() argument object code is %d\n",
vpi_get_str(vpiFile,callh), (int)vpi_get(vpiLineNo, callh),
name, object_code);
return 0;
}
return 0;
}
void v2009_array_register(void)
{
s_vpi_systf_data tf_data;
@ -146,11 +197,6 @@ void v2009_array_register(void)
res = vpi_register_systf(&tf_data);
vpip_make_systf_system_defined(res);
tf_data.tfname = "$low";
tf_data.user_data = "$low";
res = vpi_register_systf(&tf_data);
vpip_make_systf_system_defined(res);
tf_data.tfname = "$increment";
tf_data.user_data = "$increment";
res = vpi_register_systf(&tf_data);
@ -162,4 +208,11 @@ void v2009_array_register(void)
tf_data.calltf = high_calltf;
res = vpi_register_systf(&tf_data);
vpip_make_systf_system_defined(res);
tf_data.tfname = "$low";
tf_data.user_data = "$low";
tf_data.compiletf = one_array_arg_compiletf;
tf_data.calltf = low_calltf;
res = vpi_register_systf(&tf_data);
vpip_make_systf_system_defined(res);
}