Преглед на файлове

[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