diff options
| author | Enrico Tassi | 2018-04-09 15:57:58 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-04-09 15:57:58 +0200 |
| commit | f9ef634e94c667641a9da12fa2b9f8e585d6d5c6 (patch) | |
| tree | 469ec787483efde36b699fd54fb1ba225c57c76a /lib | |
| parent | 894c970093c2ac3abd5581d9df7bd424fcd577ba (diff) | |
| parent | e739f16b0792545ec210008cdd6264614fe695e4 (diff) | |
Merge PR #7103: Fix #7101: STM delegation policy broken
# Conflicts:
# CHANGES
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 7d9c528e78..0f9476605b 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 |