浏览代码

don't declare "sub" field since it's @:optional and not declared in reification (fixed issue #1124)

Nicolas Cannasse 13 年之前
父节点
当前提交
016b340d56
共有 1 个文件被更改,包括 5 次插入3 次删除
  1. 5 3
      interp.ml

+ 5 - 3
interp.ml

@@ -3374,12 +3374,14 @@ let encode_unop op =
 	enc_enum IUnop tag []
 
 let rec encode_path t =
-	enc_obj [
+	let fields = [
 		"pack", enc_array (List.map enc_string t.tpackage);
 		"name", enc_string t.tname;
 		"params", enc_array (List.map encode_tparam t.tparams);
-		"sub", null enc_string t.tsub;
-	]
+	] in
+	enc_obj (match t.tsub with
+		| None ->  fields
+		| Some s -> ("sub", enc_string s) :: fields)
 
 and encode_tparam = function
 	| TPType t -> enc_enum ITParam 0 [encode_ctype t]