diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-11-15 14:18:35 -0500 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-11-15 14:18:35 -0500 |
| commit | ed7b5e6f956c5b13735cc3e5c4de01fbfc437e12 (patch) | |
| tree | ccf3099b7f3b6b8c83eccc0c4c0be884720e4124 /src/lru_cache.sml | |
| parent | bad52a2868ff0551ac0199fd8124f81f9623391e (diff) | |
Fix bugs for lock calculation and SQL parsing and add support for tasks.
Diffstat (limited to 'src/lru_cache.sml')
| -rw-r--r-- | src/lru_cache.sml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/lru_cache.sml b/src/lru_cache.sml index 0276de91..e9ed5f73 100644 --- a/src/lru_cache.sml +++ b/src/lru_cache.sml @@ -111,16 +111,16 @@ fun setupQuery {index, params} = (* If the output is null, it means we had too much recursion, so it's a miss. *) string " if (v && v->output != NULL) {", newline, - string (" puts(\"SQLCACHE: hit " ^ i ^ ".\");"), - newline, + (* string (" puts(\"SQLCACHE: hit " ^ i ^ ".\");"), *) + (* newline, *) string " uw_write(ctx, v->output);", newline, string " return v->result;", newline, string " } else {", newline, - string (" puts(\"SQLCACHE: miss " ^ i ^ ".\");"), - newline, + (* string (" puts(\"SQLCACHE: miss " ^ i ^ ".\");"), *) + (* newline, *) string " uw_recordingStart(ctx);", newline, string " return NULL;", @@ -142,8 +142,8 @@ fun setupQuery {index, params} = newline, string " v->output = uw_recordingRead(ctx);", newline, - string (" puts(\"SQLCACHE: stored " ^ i ^ ".\");"), - newline, + (* string (" puts(\"SQLCACHE: stored " ^ i ^ ".\");"), *) + (* newline, *) string (" uw_Sqlcache_store(ctx, cache" ^ i ^ ", ks, v);"), newline, string " return uw_unit_v;", |