camlspotter avatar camlspotter committed 077cb36

inheritance location fix

Comments (0)

Files changed (1)

 
   and class_field 
       { cf_desc; (*  : class_field_desc; *)
-        cf_loc=loc0 } = match cf_desc with
+        cf_loc=_ } = match cf_desc with
       | Tcf_inher (_override_flag, clexpr, _nameopt (* ? *), inh_vars, inh_meths) -> 
+          let loc = clexpr.cl_loc in
           (* CR jfuruse: We should to have a way to seek the inherited var 
              into the super class... *)
-          List.iter (fun (_, id) -> record_def loc0 & AStr_value id) inh_vars;
+          List.iter (fun (_, id) -> record_def loc & AStr_value id) inh_vars;
           (* CR jfuruse: meths should be spotted ... *)
-          List.iter (fun (_, id) -> record_def loc0 & AStr_value id) inh_meths;
+          List.iter (fun (_, id) -> record_def loc & AStr_value id) inh_meths;
           class_expr clexpr
       | Tcf_val (_name (* ? *), {loc}, _mutable_flag, id, clfieldk, _bool) -> 
           record_def loc & AStr_value id;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.