Commits

camlspotter committed 52d2da1

forgot cleaning the global state EXTRACT.tbl

Comments (0)

Files changed (2)

 
   let top_structure str = 
     clear_cache (); 
+    Hashtbl.clear tbl;
     match structure str with
     | AMod_structure str -> str, tbl
     | _ -> assert false
 
   let top_signature sg =  
     clear_cache (); 
+    Hashtbl.clear tbl;
     match signature sg with
     | AMod_structure str -> str, tbl
     | _ -> assert false
           | Partial_signature_item sgitem -> EXTRACT.signature_item sgitem
           | Partial_module_type mty -> down_to_sitems & EXTRACT.module_type mty
         in
+        Hashtbl.clear EXTRACT.tbl;
         let tbl = EXTRACT.tbl in (* CR jfuruse: this is global! *)
         let amods = List.concat_map part & Array.to_list parts in
         amods,
 end
 
 class nnc = object
-  inherit let _y = 1 in (* nc => *) nc (* <= nc *)
+  inherit (* nc => *) let _y = 1 in nc (* <= nc *) (* CR jfuruse: should point to nc *)
   method n = y (* ? nc *)
 end