Browse Source

[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 years ago
parent
commit
787ad1315d
1 changed files with 5 additions and 0 deletions
  1. 5 0
      gencommon.ml

+ 5 - 0
gencommon.ml

@@ -890,6 +890,11 @@ let run_filters gen =
 		let rec loop processed not_processed =
 		let rec loop processed not_processed =
 			match not_processed with
 			match not_processed with
 				| hd :: tl ->
 				| 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 new_hd = filter#run_f hd in
 
 
 					let added_types_new = !added_types in
 					let added_types_new = !added_types in