[r2003-01-12 20:40:54 by cvscast] Empty log message

Original author: cvscast
Date: 2003-01-12 20:40:54+00:00

misc/pool.ml

@@ -20,21 +20,21 @@ struct
   type t = int
   type value = H.t
 
-  let cache    = Hashtbl.create 63
+  let cache    = State.ref "Pool.cache" (Hashtbl.create 63)
   let values   = State.ref "Pool.values" (Array.create 63 None)
   let counter  = State.ref "Pool.counter" 0
 
   let clear () =
-    Hashtbl.clear cache;
+    Hashtbl.clear !cache;
     values := Array.create 63 None;
     counter := 0
 
   let mk x =
-    try Hashtbl.find cache x
+    try Hashtbl.find !cache x
     with Not_found ->
       let n = !counter in
       incr counter;
-      Hashtbl.add cache x n;
+      Hashtbl.add !cache x n;
       if (n = Array.length !values) then
 	( 
 	  let new_values = Array.create (2 * Array.length !values) None in