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

Escaped identifiers in behavioral expressions. (Stephan Boettcher)

This commit is contained in:
steve 2001-06-21 04:53:59 +00:00
parent 3961c68928
commit 68a7ddefd3
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tgt-vvp/eval_expr.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: eval_expr.c,v 1.31 2001/06/18 01:09:32 steve Exp $" #ident "$Id: eval_expr.c,v 1.32 2001/06/21 04:53:59 steve Exp $"
#endif #endif
# include "vvp_priv.h" # include "vvp_priv.h"
@ -743,7 +743,7 @@ static struct vector_info draw_signal_expr(ivl_expr_t exp, unsigned wid)
for (idx = 0 ; idx < swid ; idx += 1) for (idx = 0 ; idx < swid ; idx += 1)
fprintf(vvp_out, " %%load %u, V_%s[%u];\n", fprintf(vvp_out, " %%load %u, V_%s[%u];\n",
res.base+idx, name, idx); res.base+idx, vvp_mangle_id(name), idx);
/* Pad the signal value with zeros. */ /* Pad the signal value with zeros. */
if (swid < wid) if (swid < wid)
@ -817,7 +817,7 @@ static struct vector_info draw_memory_expr(ivl_expr_t exp, unsigned wid)
if (idx) if (idx)
fprintf(vvp_out, " %%ix/add 3, 1;\n"); fprintf(vvp_out, " %%ix/add 3, 1;\n");
fprintf(vvp_out, " %%load/m %u, M_%s;\n", fprintf(vvp_out, " %%load/m %u, M_%s;\n",
res.base+idx, name); res.base+idx, vvp_mangle_id(name));
} }
/* Pad the signal value with zeros. */ /* Pad the signal value with zeros. */
@ -913,7 +913,7 @@ static struct vector_info draw_ufunc_expr(ivl_expr_t exp, unsigned wid)
bit = res.base; bit = res.base;
for (pin = 0 ; pin < res.wid ; pin += 1) { for (pin = 0 ; pin < res.wid ; pin += 1) {
fprintf(vvp_out, " %%set V_%s[%u], %u;\n", fprintf(vvp_out, " %%set V_%s[%u], %u;\n",
port, pin, bit); vvp_mangle_id(port), pin, bit);
if (bit >= 4) if (bit >= 4)
bit += 1; bit += 1;
} }
@ -923,8 +923,8 @@ static struct vector_info draw_ufunc_expr(ivl_expr_t exp, unsigned wid)
/* Call the function */ /* Call the function */
fprintf(vvp_out, " %%fork TD_%s, S_%s;\n", ivl_scope_name(def), fprintf(vvp_out, " %%fork TD_%s", vvp_mangle_id(ivl_scope_name(def)));
ivl_scope_name(def)); fprintf(vvp_out, ", S_%s;\n", vvp_mangle_id(ivl_scope_name(def)));
fprintf(vvp_out, " %%join;\n"); fprintf(vvp_out, " %%join;\n");
/* The return value is in a signal that has the name of the /* The return value is in a signal that has the name of the
@ -936,7 +936,7 @@ static struct vector_info draw_ufunc_expr(ivl_expr_t exp, unsigned wid)
for (idx = 0 ; idx < swid ; idx += 1) for (idx = 0 ; idx < swid ; idx += 1)
fprintf(vvp_out, " %%load %u, V_%s[%u];\n", fprintf(vvp_out, " %%load %u, V_%s[%u];\n",
res.base+idx, name, idx); res.base+idx, vvp_mangle_id(name), idx);
/* Pad the signal value with zeros. */ /* Pad the signal value with zeros. */
if (swid < wid) if (swid < wid)
@ -1067,6 +1067,9 @@ struct vector_info draw_eval_expr(ivl_expr_t exp)
/* /*
* $Log: eval_expr.c,v $ * $Log: eval_expr.c,v $
* Revision 1.32 2001/06/21 04:53:59 steve
* Escaped identifiers in behavioral expressions. (Stephan Boettcher)
*
* Revision 1.31 2001/06/18 01:09:32 steve * Revision 1.31 2001/06/18 01:09:32 steve
* More behavioral unary reduction operators. * More behavioral unary reduction operators.
* (Stephan Boettcher) * (Stephan Boettcher)