Ver Fonte

protect fix

Nicolas Cannasse há 18 anos atrás
pai
commit
1e0fa4232a
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      genswf8.ml

+ 1 - 1
genswf8.ml

@@ -1316,7 +1316,7 @@ let gen_type_def ctx t =
 		setvar ctx acc;
 		init_name ctx e.e_path true;
 		push ctx [VReg 0; VStr ("__constructs__",true)];
-		List.iter (fun s -> push ctx [VStr (s,true)]) (List.rev e.e_names);
+		List.iter (fun s -> push ctx [VStr (s,false)]) (List.rev e.e_names);
 		init_array ctx (List.length e.e_names);
 		write ctx AObjSet;
 		PMap.iter (fun _ f -> gen_enum_field ctx e f) e.e_constrs