Parcourir la source

[gencommon] further reduce token count :-)

Dan Korostelev il y a 9 ans
Parent
commit
1b42c9c481
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  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