Support repeat in concatenation

2008-07-28 21:46:19 +01:00 · 2008-07-28 21:46:19 +01:00 · 506a0ba7d6
parent 1d4914c590
commit 506a0ba7d6
1 changed files with 5 additions and 1 deletions
--- a/tgt-vhdl/expr.cc
+++ b/tgt-vhdl/expr.cc
@ -455,7 +455,11 @@ static vhdl_expr *translate_concat(ivl_expr_t e)
   vhdl_type *rtype = expr_to_vhdl_type(e);
   vhdl_binop_expr *concat = new vhdl_binop_expr(VHDL_BINOP_CONCAT, rtype);

-   return translate_parms<vhdl_binop_expr>(concat, e);
+   int nrepeat = ivl_expr_repeat(e);
+   while (nrepeat--)
+      translate_parms<vhdl_binop_expr>(concat, e);
+
+   return concat;
 }

 vhdl_expr *translate_sfunc_time(ivl_expr_t e)