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

Evaluate part selects when passed to system tasks.

This commit is contained in:
steve 2001-07-28 01:18:07 +00:00
parent c5a5a11b7f
commit 1be77d68ce
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
tgt-vvp/vvp_process.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
*/ */
#if !defined(WINNT) #if !defined(WINNT)
#ident "$Id: vvp_process.c,v 1.39 2001/07/19 04:55:06 steve Exp $" #ident "$Id: vvp_process.c,v 1.40 2001/07/28 01:18:07 steve Exp $"
#endif #endif
# include "vvp_priv.h" # include "vvp_priv.h"
@ -649,11 +649,22 @@ static int show_system_task_call(ivl_statement_t net)
switch (ivl_expr_type(expr)) { switch (ivl_expr_type(expr)) {
case IVL_EX_NONE: case IVL_EX_NONE:
case IVL_EX_NUMBER: case IVL_EX_NUMBER:
case IVL_EX_SIGNAL:
case IVL_EX_STRING: case IVL_EX_STRING:
case IVL_EX_SCOPE: case IVL_EX_SCOPE:
case IVL_EX_SFUNC: case IVL_EX_SFUNC:
continue; continue;
case IVL_EX_SIGNAL:
/* If the signal node is narrower then the signal
itself, then this is a part select so I'm going
to need to evaluate the expression. */
if (ivl_expr_width(expr) !=
ivl_signal_pins(ivl_expr_signal(expr))) {
break;
} else {
continue;
}
case IVL_EX_MEMORY: case IVL_EX_MEMORY:
if (!ivl_expr_oper1(expr)) { if (!ivl_expr_oper1(expr)) {
continue; continue;
@ -688,9 +699,17 @@ static int show_system_task_call(ivl_statement_t net)
} }
case IVL_EX_SIGNAL: case IVL_EX_SIGNAL:
fprintf(vvp_out, ", V_%s", /* If this is a part select, then the value was
vvp_mangle_id(ivl_expr_name(expr))); calculated above. Otherwise, just pass the
continue; signal. */
if (ivl_expr_width(expr) !=
ivl_signal_pins(ivl_expr_signal(expr))) {
break;
} else {
fprintf(vvp_out, ", V_%s",
vvp_mangle_id(ivl_expr_name(expr)));
continue;
}
case IVL_EX_STRING: case IVL_EX_STRING:
fprintf(vvp_out, ", \"%s\"", fprintf(vvp_out, ", \"%s\"",
@ -720,10 +739,8 @@ static int show_system_task_call(ivl_statement_t net)
default: default:
break; break;
} }
assert(veci < vecs);
fprintf(vvp_out, ", T<%u,%u>", fprintf(vvp_out, ", T<%u,%u>", vec[veci].base, vec[veci].wid);
vec[veci].base,
vec[veci].wid);
veci++; veci++;
} }
@ -914,6 +931,9 @@ int draw_func_definition(ivl_scope_t scope)
/* /*
* $Log: vvp_process.c,v $ * $Log: vvp_process.c,v $
* Revision 1.40 2001/07/28 01:18:07 steve
* Evaluate part selects when passed to system tasks.
*
* Revision 1.39 2001/07/19 04:55:06 steve * Revision 1.39 2001/07/19 04:55:06 steve
* Support calculated delays in vvp.tgt. * Support calculated delays in vvp.tgt.
* *