diff --git a/elaborate.cc b/elaborate.cc
index 59c39d7af..86c7c12b0 100644
--- a/elaborate.cc
+++ b/elaborate.cc
@@ -2231,7 +2231,7 @@ static NetExpr*elaborate_delay_expr(PExpr*expr, Design*des, NetScope*scope)
 	    dex->set_line(*expr);
 
 	      // Cast this part of the expression to an integer.
-	    dex = new NetECast('i', dex, 64, false);
+	    dex = new NetECast('v', dex, 64, false);
 	    dex->set_line(*expr);
 
 	      // Now scale the integer value.
diff --git a/expr_synth.cc b/expr_synth.cc
index 004d35265..8a7138a39 100644
--- a/expr_synth.cc
+++ b/expr_synth.cc
@@ -976,7 +976,7 @@ NetNet* NetECast::synthesize(Design*des, NetScope*scope, NetExpr*root)
       if (isig == 0) return 0;
 
       switch (op()) {
-	  case 'i':
+	  case 'v':
 	    isig = cast_to_int4(des, scope, isig, isig->vector_width());
 	    break;
 	  case 'r':
diff --git a/netlist.cc b/netlist.cc
index d5c8fc55c..d0aad7adf 100644
--- a/netlist.cc
+++ b/netlist.cc
@@ -2431,7 +2431,7 @@ ivl_variable_type_t NetECast::expr_type() const
 {
       ivl_variable_type_t ret;
       switch (op_) {
-	  case 'i':
+	  case 'v':
 	    ret = IVL_VT_LOGIC;
 	    break;
 	  case 'r':
diff --git a/tgt-vlog95/expr.c b/tgt-vlog95/expr.c
index 0210809c9..f1c22f531 100644
--- a/tgt-vlog95/expr.c
+++ b/tgt-vlog95/expr.c
@@ -503,7 +503,7 @@ static void emit_expr_unary(ivl_scope_t scope, ivl_expr_t expr, unsigned wid)
 	    fprintf(vlog_out, ")");
 	    break;
 	case '2':
-	case 'i':
+	case 'v':
 	case 'r':
 	    /* A cast is a noop. */
 	    emit_expr(scope, ivl_expr_oper1(expr), wid);
diff --git a/tgt-vlog95/misc.c b/tgt-vlog95/misc.c
index f94dc0f0b..e23294770 100644
--- a/tgt-vlog95/misc.c
+++ b/tgt-vlog95/misc.c
@@ -240,7 +240,7 @@ void emit_scaled_delayx(ivl_scope_t scope, ivl_expr_t expr, unsigned is_stmt)
 			   * integer cast. */
 			tmp_expr = ivl_expr_oper1(expr);
 			if ((ivl_expr_type(tmp_expr) != IVL_EX_UNARY) ||
-		            (ivl_expr_opcode(tmp_expr) != 'i')) {
+		            (ivl_expr_opcode(tmp_expr) != 'v')) {
 			      fprintf(vlog_out, "<invalid>");
 			      fprintf(stderr, "%s:%u: vlog95 error: Real time "
 			                      "value does not have a cast to "
diff --git a/tgt-vvp/eval_expr.c b/tgt-vvp/eval_expr.c
index e7d17a559..2f9688ece 100644
--- a/tgt-vvp/eval_expr.c
+++ b/tgt-vvp/eval_expr.c
@@ -3151,7 +3151,7 @@ static struct vector_info draw_unary_expr(ivl_expr_t expr, unsigned wid)
 	    }
 	    break;
 
-	  case 'i': /* Cast a real value to an integer. */
+	  case 'v': /* Cast a real value to an integer. */
 	    assert(ivl_expr_value(sub) == IVL_VT_REAL);
 	    word = draw_eval_real(sub);
 	    res.base = allocate_vector(wid);
diff --git a/tgt-vvp/eval_real.c b/tgt-vvp/eval_real.c
index 3007dc5a6..f5f9dfe59 100644
--- a/tgt-vvp/eval_real.c
+++ b/tgt-vvp/eval_real.c
@@ -488,7 +488,7 @@ static int draw_unary_real(ivl_expr_t expr)
 	    return sub;
       }
 
-      if (ivl_expr_opcode(expr) == 'i') { /* Handled in eval_expr.c. */
+      if (ivl_expr_opcode(expr) == 'v') { /* Handled in eval_expr.c. */
             fprintf(stderr, "vvp.tgt error: real -> integer cast in real "
                             "context.\n");
 	    assert(0);