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

Imlement vpi_handle(vpiScope, 0) for NULL handles 

This is not part of the standard, but it convenient, and may be
used by the libveriuser to implement some bits of PLI1.
This commit is contained in:
Stephen Williams 2014-06-19 14:50:37 -07:00
parent d26a081cbc
commit 515137c8c7
1 changed files with 40 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
vvp/vpi_priv.cc
View File

@ -1131,33 +1131,54 @@ vpiHandle vpi_put_value(vpiHandle obj, s_vpi_value*vp,
vpiHandle vpi_handle(PLI_INT32 type, vpiHandle ref)
{
if (type == vpiSysTfCall) {
if (ref != 0) {
fprintf(stderr, "VPI error: vpi_handle(vpiSysTfCall, "
"ref!=0).\n");
return 0;
}
vpiHandle res = 0;
if (ref == 0) {
// A few types can apply to a nil handle. These are ways
// that the current function can get started finding things.
switch (type) {
case vpiScope:
// The IEEE1364-2005 doesn't seem to allow this,
// but some users seem to think it's handy, so
// return the scope that contains this SysTfCall.
assert(vpip_cur_task);
res = vpip_cur_task->vpi_handle(vpiScope);
break;
case vpiSysTfCall:
// This is how VPI users get a first handle into
// the system. This is the handle of the system
// task/function call currently being executed.
if (vpi_trace) {
fprintf(vpi_trace, "vpi_handle(vpiSysTfCall, 0) "
"-> %p (%s)\n", vpip_cur_task,
vpip_cur_task->defn->info.tfname);
}
return vpip_cur_task;
}
if (ref == 0) {
default:
fprintf(stderr, "VPI error: vpi_handle(type=%d, ref=0).\n",
(int)type);
res = 0;
break;
}
} else {
if (type == vpiSysTfCall) {
fprintf(stderr, "VPI error: vpi_handle(vpiSysTfCall, "
"ref!=0).\n");
return 0;
}
vpiHandle res = ref->vpi_handle(type);
res = ref->vpi_handle(type);
}
if (vpi_trace) {
fprintf(vpi_trace, "vpi_handle(%d, %p) -> %p\n",
(int)type, ref, res);
fprintf(vpi_trace, "vpi_handle(vpiScope, ref=%p) "
"-> %p\n", vpip_cur_task, ref);
}
return res;