瀏覽代碼

[cs] minor

Caue Waneck 13 年之前
父節點
當前提交
08b79df5a8
共有 2 個文件被更改,包括 2 次插入2 次删除
  1. 1 1
      gencommon.ml
  2. 1 1
      gencs.ml

+ 1 - 1
gencommon.ml

@@ -4364,7 +4364,7 @@ struct
       | TMono _, _
       | TMono _, _
       | TDynamic _, _
       | TDynamic _, _
       | TAnon _, _ when gen.gneeds_box real_from_t -> 
       | TAnon _, _ when gen.gneeds_box real_from_t -> 
-        mk_cast to_t (mk_paren e)
+        mk_cast to_t e
       | TMono _, _
       | TMono _, _
       | TDynamic _, _ -> e
       | TDynamic _, _ -> e
       | _, TMono _
       | _, TMono _

+ 1 - 1
gencs.ml

@@ -1248,7 +1248,7 @@ let configure gen =
       trace (debug_expr e);
       trace (debug_expr e);
       {
       {
         eexpr = TCall({
         eexpr = TCall({
-            eexpr = TField(e, "toDynamic");
+            eexpr = TField(mk_paren e, "toDynamic");
             etype = TFun([], t_dynamic);
             etype = TFun([], t_dynamic);
             epos = e.epos
             epos = e.epos
           }, []);
           }, []);