浏览代码

[gencommon] further reduce token count :-)

Dan Korostelev 9 年之前
父节点
当前提交
1b42c9c481
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/generators/gencommon.ml

+ 2 - 2
src/generators/gencommon.ml

@@ -3395,8 +3395,8 @@ struct
 				invoke_field.cf_expr <- Some invoke_fun;
 
 				invoke_field, [
-					{ eexpr = TConst(TInt( Int32.of_int arity )); etype = gen.gcon.basic.tint; epos = pos };
-					{ eexpr = TConst(TInt( Int32.of_int type_number )); etype = gen.gcon.basic.tint; epos = pos };
+					ExprBuilder.make_int gen.gcon arity pos;
+					ExprBuilder.make_int gen.gcon type_number pos;
 				]
 			in