浏览代码

[java/cs] Set gcurrent_class on module filters as well; Only duplicate the check of optional arguments when overriding a nativeGen class. See #3504

Cauê Waneck 11 年之前
父节点
当前提交
787ad1315d
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      gencommon.ml

+ 5 - 0
gencommon.ml

@@ -890,6 +890,11 @@ let run_filters gen =
 		let rec loop processed not_processed =
 			match not_processed with
 				| hd :: tl ->
+					(match hd with
+						| TClassDecl c ->
+							gen.gcurrent_class <- Some c
+						| _ ->
+							gen.gcurrent_class <- None);
 					let new_hd = filter#run_f hd in
 
 					let added_types_new = !added_types in