diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2016-03-12 14:11:27 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2016-03-12 14:11:27 -0500 |
| commit | 6b85dbb54d5d9928a53f0f916cf0cb33c04ff87c (patch) | |
| tree | 0215bd5985818f74a20c8bc37867e7ee234b0570 /src/lru_cache.sml | |
| parent | d2823e60805a6cc394b149563ff500ea969b8627 (diff) | |
Sqlcache: also record script additions; do a MonoReduce afterward, to help Prepare do a better job
Diffstat (limited to 'src/lru_cache.sml')
| -rw-r--r-- | src/lru_cache.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/lru_cache.sml b/src/lru_cache.sml index 81000458..f582bf6f 100644 --- a/src/lru_cache.sml +++ b/src/lru_cache.sml @@ -116,6 +116,8 @@ fun setupQuery {index, params} = newline,*) string " uw_write(ctx, v->output);", newline, + string " uw_write_script(ctx, v->scriptOutput);", + newline, string " return v->result;", newline, string " } else {", @@ -148,6 +150,8 @@ fun setupQuery {index, params} = newline, string " v->output = uw_recordingRead(ctx);", newline, + string " v->scriptOutput = uw_recordingReadScript(ctx);", + newline, (*string (" puts(\"SQLCACHE: stored " ^ i ^ ".\");"), newline,*) string (" uw_Sqlcache_store(ctx, cache" ^ i ^ ", ks, v);"), |