Mercurial > urweb

diff src/lru_cache.sml @ 2285:ad3ce1528f71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix committing multiple stores/flushes. Locking is WIP.
author Ziv Scully <ziv@mit.edu>
date Thu, 12 Nov 2015 16:36:35 -0500
parents 472b4504aef2
children 0bdfec16a01d
line wrap: on
line diff
--- a/src/lru_cache.sml	Thu Nov 12 11:44:21 2015 -0500
+++ b/src/lru_cache.sml	Thu Nov 12 16:36:35 2015 -0500
@@ -65,8 +65,8 @@
     in
         Print.box
             [string ("static uw_Sqlcache_Cache cacheStruct" ^ i ^ " = {"),
-             (* newline, *)
-             (* string "  .lock = PTHREAD_RWLOCK_INITIALIZER,", *)
+             newline,
+             string "  .lock = PTHREAD_RWLOCK_INITIALIZER,",
              newline,
              string "  .table = NULL,",
              newline,
@@ -85,7 +85,7 @@
              newline,
              string ("  char *ks[] = {" ^ revArgs ^ "};"),
              newline,
-             string ("  uw_Sqlcache_Value *v = uw_Sqlcache_check(cache" ^ i ^ ", ks);"),
+             string ("  uw_Sqlcache_Value *v = uw_Sqlcache_check(ctx, cache" ^ i ^ ", ks);"),
              newline,
              (* If the output is null, it means we had too much recursion, so it's a miss. *)
              string "  if (v && v->output != NULL) {",
@@ -123,7 +123,7 @@
              newline,
              string ("  puts(\"SQLCACHE: stored " ^ i ^ ".\");"),
              newline,
-             string ("  uw_Sqlcache_store(cache" ^ i ^ ", ks, v);"),
+             string ("  uw_Sqlcache_store(ctx, cache" ^ i ^ ", ks, v);"),
              newline,
              string "  return uw_unit_v;",
              newline,