diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-12-07 10:26:10 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-07 10:26:10 +0100 |
| commit | f6751c59467e3a25f9318a1f8b74f768924f4892 (patch) | |
| tree | 0a61880a28ac70de97833444905133391c0e9906 /plugins | |
| parent | b50b732d78e386c937b018ea10809dc0669242bf (diff) | |
| parent | 8392aa24c18a3b8aa64e2bb40470d84209f68aa3 (diff) | |
Merge PR #6322: Fix #6286 (non stability of micromega csdp cache rebuilding)
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/micromega/persistent_cache.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/micromega/persistent_cache.ml b/plugins/micromega/persistent_cache.ml index 49ccb468c..387a52514 100644 --- a/plugins/micromega/persistent_cache.ml +++ b/plugins/micromega/persistent_cache.ml @@ -149,7 +149,7 @@ let open_in f = match read_key_elem inch with | None -> () | Some (key,elem) -> - Table.add htbl key elem ; + Table.replace htbl key elem ; xload () in try (* Locking of the (whole) file while reading *) @@ -195,7 +195,7 @@ let add t k e = else let fd = descr_of_out_channel outch in begin - Table.add tbl k e ; + Table.replace tbl k e ; do_under_lock Write fd (fun _ -> Marshal.to_channel outch (k,e) [Marshal.No_sharing] ; |