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

Correct handle of put to function return value.

This commit is contained in:
steve 2003-06-26 03:20:24 +00:00
parent a9595fe6ba
commit 7b933eddd4
1 changed files with 33 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
libveriuser/putp.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: putp.c,v 1.5 2003/06/17 16:55:08 steve Exp $" #ident "$Id: putp.c,v 1.6 2003/06/26 03:20:24 steve Exp $"
#endif #endif
# include <assert.h> # include <assert.h>
@ -38,26 +38,45 @@ PLI_INT32 tf_iputp(PLI_INT32 n, PLI_INT32 value, void *obj)
/* get task/func handle */ /* get task/func handle */
sys_h = (vpiHandle)obj; sys_h = (vpiHandle)obj;
sys_i = vpi_iterate(vpiArgument, sys_h);
type = vpi_get(vpiType, sys_h); type = vpi_get(vpiType, sys_h);
/* verify function */ /* Special case, we are putting the return value. */
if (n == 0 && type != vpiSysFuncCall) { rtn = 1; goto free; } if ((type == vpiSysFuncCall) && (n == 0)) {
val.format = vpiIntVal;
val.value.integer = value;
vpi_put_value(sys_h, &val, 0, vpiNoDelay);
if (pli_trace) {
fprintf(pli_trace, "tf_iputp(<return>, value=%d, func=%s) "
"--> %d\n", value, vpi_get_str(vpiName, obj), 0);
}
return 0;
}
if ((n == 0) && (type != vpiSysFuncCall)) {
if (pli_trace) {
fprintf(pli_trace, "tf_iputp(<ERROR>, value=%d, func=%s) "
"--> %d\n", value, vpi_get_str(vpiName, obj), 1);
}
return 1;
}
sys_i = vpi_iterate(vpiArgument, sys_h);
/* find nth arg */ /* find nth arg */
while (n > 0) { while (n > 0) {
if (!(arg_h = vpi_scan(sys_i))) { rtn = 1; goto out; } if (!(arg_h = vpi_scan(sys_i))) { rtn = 1; goto out; }
n--; n--;
} }
if (!arg_h) arg_h = sys_h;
/* fill in vpi_value */ /* fill in vpi_value */
val.format = vpiIntVal; val.format = vpiIntVal;
val.value.integer = value; val.value.integer = value;
(void)vpi_put_value(arg_h, &val, 0, vpiNoDelay); (void)vpi_put_value(arg_h, &val, 0, vpiNoDelay);
free: if (arg_h)
vpi_free_object(sys_i); vpi_free_object(sys_i);
out: out:
@ -126,6 +145,9 @@ PLI_INT32 tf_putrealp(PLI_INT32 n, double value)
} }
/* /*
* $Log: putp.c,v $ * $Log: putp.c,v $
* Revision 1.6 2003/06/26 03:20:24 steve
* Correct handle of put to function return value.
*
* Revision 1.5 2003/06/17 16:55:08 steve * Revision 1.5 2003/06/17 16:55:08 steve
* 1) setlinebuf() for vpi_trace * 1) setlinebuf() for vpi_trace
* 2) Addes error checks for trace file opens * 2) Addes error checks for trace file opens