Commits

camlspotter committed a176c87

ported to ocaml rev 12699

Comments (0)

Files changed (3)

 cmt.cmi :
 command.cmi :
+dotfile.cmi :
 locident.cmi :
 name.cmi :
 pathreparse.cmi : spot.cmi
 spot.cmi : utils.cmi
 spotconfig.cmi : spotconfig_intf.cmo
 spoteval.cmi : utils.cmi spot.cmi
-spotfile.cmi : spoteval.cmi spotconfig_intf.cmo spot.cmi
+spotfile.cmi : spoteval.cmi spot.cmi
 treeset.cmi : xset.cmi
 ttfold.cmi :
 typeFix.cmi :
 cmt.cmx : utils.cmx cmt.cmi
 command.cmo : command.cmi
 command.cmx : command.cmi
-dotfile.cmo : utils.cmi
-dotfile.cmx : utils.cmx
+dotfile.cmo : utils.cmi dotfile.cmi
+dotfile.cmx : utils.cmx dotfile.cmi
 ext.cmo : xprinttyp.cmi xpath.cmi xlongident.cmi xident.cmi
 ext.cmx : xprinttyp.cmx xpath.cmx xlongident.cmx xident.cmx
 locident.cmo : locident.cmi
 spotconfig_intf.cmx : spot.cmx ext.cmx
 spoteval.cmo : utils.cmi spot.cmi ext.cmo spoteval.cmi
 spoteval.cmx : utils.cmx spot.cmx ext.cmx spoteval.cmi
-spotfile.cmo : utils.cmi spoteval.cmi spotconfig_intf.cmo spot.cmi \
-    dotfile.cmo cmt.cmi spotfile.cmi
-spotfile.cmx : utils.cmx spoteval.cmx spotconfig_intf.cmx spot.cmx \
-    dotfile.cmx cmt.cmx spotfile.cmi
+spotfile.cmo : utils.cmi spoteval.cmi spotconfig.cmi spot.cmi dotfile.cmi \
+    cmt.cmi spotfile.cmi
+spotfile.cmx : utils.cmx spoteval.cmx spotconfig.cmx spot.cmx dotfile.cmx \
+    cmt.cmx spotfile.cmi
 treeset.cmo : xset.cmi treeset.cmi
 treeset.cmx : xset.cmx treeset.cmi
 ttfold.cmo : ttfold.cmi
 ttfold.cmx : ttfold.cmi
-ttfold.out.cmo :
-ttfold.out.cmx :
 typeFix.cmo : utils.cmi name.cmi typeFix.cmi
 typeFix.cmx : utils.cmx name.cmx typeFix.cmi
-typedtreefold.cmo :
-typedtreefold.cmx :
 typeexpand.cmo : utils.cmi typeexpand.cmi
 typeexpand.cmx : utils.cmx typeexpand.cmi
 utils.cmo : utils.cmi
         begin match ee with 
         | Texp_constraint _ -> ()
         | Texp_open (path, {loc}, _) -> record_use loc K.Module path
+        | Texp_poly _ -> ()
+        | Texp_newtype _ -> ()
         end;
         super#exp_extra ee
 
               record_use loc K.Type path) lst
         | Texp_letmodule (id, {loc}, mexp, _) -> 
             record_def loc (AStr_module (id, module_expr mexp))
-        | Texp_newtype (_string, _expr) (* CR jfuruse: ? *) -> ()
         | Texp_constant _ | Texp_let _ | Texp_function _
         | Texp_apply _ | Texp_match _ | Texp_try _
         | Texp_tuple _ | Texp_variant _ | Texp_array _
         | Texp_ifthenelse _ | Texp_sequence _ | Texp_while _
         | Texp_when _ | Texp_send _ | Texp_assert _ | Texp_assertfalse
-        | Texp_lazy _ | Texp_poly _ | Texp_object _ | Texp_pack _ -> ()
+        | Texp_lazy _ | Texp_object _ | Texp_pack _ -> ()
         end;
         super#expression_desc ed
 (*          
       | Texp_assert _x -> let o = o#expression _x in o
       | Texp_assertfalse -> o
       | Texp_lazy _x -> let o = o#expression _x in o
-      | Texp_poly (_x, _x_i1) ->
-          let o = o#expression _x in
-          let o = o#option (fun o -> o#core_type) _x_i1 in o
       | Texp_object (_x, _x_i1) ->
           let o = o#class_structure _x in
           let o = o#list (fun o -> o#string) _x_i1 in o
-      | Texp_newtype (_x, _x_i1) ->
-          let o = o#string _x in let o = o#expression _x_i1 in o
       | Texp_pack _x -> let o = o#module_expr _x in o
     method expression : expression -> 'self_type =
       fun
           let o = o#unknown _x in
           let o = o#loc (fun o -> o#unknown) _x_i1 in
           let o = o#unknown _x_i2 in o
+      | Texp_poly _x_i1 ->
+          let o = o#option (fun o -> o#core_type) _x_i1 in o
+      | Texp_newtype _x ->
+          let o = o#string _x in o
     method exception_declaration : exception_declaration -> 'self_type =
       fun { exn_params = _x; exn_exn = _x_i1; exn_loc = _x_i2 } ->
         let o = o#list (fun o -> o#core_type) _x in