camlspotter avatar 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
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.