diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-28 17:42:51 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-28 17:56:08 +0200 |
| commit | e739f16b0792545ec210008cdd6264614fe695e4 (patch) | |
| tree | 42954123b0745712ab1a2f2b884d863638977139 /lib | |
| parent | 01b7de3a673eb89cea61442c4db721aad9520c9f (diff) | |
Fix #7101: STM delegation policy broken
I make here a minimal fix, but a lot of cleaning should be done around
Aux_file handling, including removing some code from the kernel.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/aux_file.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/aux_file.ml b/lib/aux_file.ml index 7d9c528e7..0f9476605 100644 --- a/lib/aux_file.ml +++ b/lib/aux_file.ml @@ -55,7 +55,7 @@ let record_in_aux_at ?loc key v = match loc with | Some loc -> let i, j = Loc.unloc loc in Printf.fprintf oc "%d %d %s %S\n" i j key v - | None -> Printf.fprintf oc "--- %s %S\n" key v + | None -> Printf.fprintf oc "0 0 %s %S\n" key v ) !oc let current_loc : Loc.t option ref = ref None |