瀏覽代碼

[jvm] actually we need the dynamic access generation for anons

Simon Krajewski 5 年之前
父節點
當前提交
6dbc50c928
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      src/generators/genjvm.ml

+ 2 - 1
src/generators/genjvm.ml

@@ -2743,7 +2743,8 @@ let generate_anons gctx =
 			load();
 			jm_fields#return
 		end;
-		if gctx.dynamic_level > 0 then generate_dynamic_access gctx jc (List.map (fun (name,jsig) -> name,jsig,Var {v_write = AccNormal;v_read = AccNormal}) fields) true;
+		(* This has to run even with dynamic_level = 0 because the entire DynamicObject logic depends on it. *)
+		generate_dynamic_access gctx jc (List.map (fun (name,jsig) -> name,jsig,Var {v_write = AccNormal;v_read = AccNormal}) fields) true;
 		begin match gctx.typedef_interfaces#get_interface_class path with
 		| None ->
 			()