Caml1999I037N@+Local_store%s_ref@!a@&Stdlib#ref @@@@@@5utils/local_store.mliZZ@@@@@'s_table@@!a@!b@@@@ !#ref @@@@@@@@^GG^Go@@7A@@%store;@@@A@@@@@(nII)nIS@@@@AB@A@%fresh@$unitF@@@@@@@@@=pUU>pUn@@VC@@*with_store@@@@@@@@@!a@@@@@@@@Ww V VXw V @@pD@@%reset@/@@@3@@@@@@j} T Tk} T l@@E@@(is_bound@B@@@$boolE@@@@@@A  A  @@F@@@i9.+Local_store0tGwf@Vx$&Stdlib0Lku]8_٠8CamlinternalFormatBasics0%FU(Q/Tu@@@Caml1999T037(C+Local_store*ocaml.text&_none_@@A t This module provides some facilities for creating references (and hash tables) which can easily be snapshotted and restored to an arbitrary version. It is used throughout the frontend (read: typechecker), to register all (well, hopefully) the global state. Thus making it easy for tools like Merlin to go back and forth typechecking different files. 5utils/local_store.mliP77Vp@@@@@@3@@@@@@#intA;@@@A@@@@@:@A@$charB;@@A@@@@@>@A@&stringQ;@@ A@@@@@B@@@%bytesC;@@ A@@@@@F@@@%floatD;@@A@@@@@J@@@$boolE;@@%falsec@@T@$trued@@Z@@@A@@@@@[@A@$unitF;@@"()e@@e@@@A@@@@@f@A@ #exnG;@@@A@@@@@j@@@#effH;@@O@A@A@@@@@@s@@@,continuationI;@@Q@@P@B@A@nY@@@@@@@@@%arrayJ;@@R@A@A@@@@@@@@@ $listK;@@S@A"[]f@@@"::g@@@T@@@ @@A@Y@@@@@@@@&optionL;@@V@A$Noneh@@@$Somei@@@@@A@Y@@@@@@@@)nativeintM;@@A@@@@@@@@%int32N;@@A@@@@@@@@%int64O;@@A@@@@@@@@&lazy_tP;@@X@AJA@Y@@@@@@@@5extension_constructorR;@@A@@@@@@@@*floatarrayS;@@A@@@@@@@@&iarrayT;@@Y@A[A@Y@@@@@@@@*atomic_locU;@@Z@AdA@@@@@@@@@.Assert_failure`#@@@@@J@@@@@@@@[@@A=ocaml.warn_on_literal_pattern @ @0Division_by_zero]#@@@A  @+End_of_file\#$@@@A@'FailureY#,@'@@A!$$@0Invalid_argumentX#5@0@@A*$-#-@-Match_failureV#>@@=@9@;@@a@@A;5>4>@)Not_foundZ#O@@@AC=F<F@-Out_of_memoryW#W@@@AKENDN@.Stack_overflow^#_@@@ASMVLV@.Sys_blocked_io_#g@@@A[U^T^@)Sys_error[#o@j@@Ad^g]g@:Undefined_recursive_modulea#x@@w@s@u@@h@@Auoxnx@:Continuation_already_takenb#@@@A}wv@&Stdlib@Ax. {1 Creators} XX@@@@@@%s_refZZ@б@А!a@A@ZZ@@г.#refZZ@А!aZZ@@@@@@ @@@@@@@@Z@)ocaml.docː ` Similar to {!val:Stdlib.ref}, except the allocated reference is registered into the store. [\/E@@@@@@@@@@%@ܐ@@@@@@'s_table^GK^GR@б@б@А!a@A@3@c8@A^GV^GX@@А!b@A@ ^G\^G^@@@ @@@@б@А!a^Gc^Ge@@г#ref^Gl^Go@А!b (^Gi^Gk@@@&@@@/ @@@7@@2@@@%@@5#^GU@@@&^GG@m . Used to register hash tables. Those also need to be placed into refs to be easily swapped out, but one can't just "snapshot" the initial value to create fresh instances, so instead an initializer is required. Use it like this: {[ let my_table = s_table Hashtbl.create 42 ]} 3_pp4g@@@@@@@LA@@'@}G@@@@@@UUT {1 State management} Note: all the following functions are currently unused inside the compiler codebase. Merlin is their only user at the moment. QiRlG@@@@@@3POOPPPPP@gz1@AA+%storeA^nIN_nIS@@;@@@A@@@@@cnII@@@@{B@@@A@@@@%freshnpUYopU^@б@г&$unitypUazpUe@@ @@@3{zz{{{{{@,& @A@@г*%storepUipUn@@ @@@@@@@@@@@pUU @ڐ Returns a fresh instance of the store. The first time this function is called, it snapshots the value of all the registered references, later calls to [fresh] will return instances initialized to those values. qoou 1 T@@@@@@@C@@@@@@@@@1*with_storew V Zw V d@б@гd%storew V gw V l@@ @@@3@J_8@A@@б@б@г$unitw V qw V u@@ @@@@@А!a@B@w V yw V {@@@ @@!@@А!a%w V w V @@@ @@*w V p@@@1@@.4@@@w V V @? [with_store s f] resets all the registered references to the value they have in [s] for the run of [f]. If [f] updates any of the registered refs, [s] is updated to remember those changes. x  { C R@@@@@@@D@@@O@@@@@@M%reset} T X} T ]@б@гԠ$unit'} T `(} T d@@ @@@3)(()))))@f{8@A@@г㠐$unit6} T h7} T l@@ @@@@@@@@@@@A} T T @ p Resets all the references to the initial snapshot (i.e. to the same values that new instances start with). N~ m mO  @@@@@@@gE@@@b@@@@@@1(is_boundeA  fA  @б@г$unitpA  qA  @@ @@@3rqqrrrrr@J_8@A@@г=$boolA  A  @@ @@@@@@@@@@@A   @ѐ | Returns [true] when a store is active (i.e. when called from the callback passed to {!with_store}), [false] otherwise. B  C N @@@@@@@F@@@@@@@@@1@@@RLA@D@@s@S,@@3@@U.@A@ H************************************************************************A@@A@L@ H BMMBM@ H OCaml CC@ H DD3@ H Frederic Bour, Tarides E44E4@ H Thomas Refis, Tarides FF@ H GG@ H Copyright 2020 Tarides HHg@ H IhhIh@ H All rights reserved. This file is distributed under the terms of JJ@ H the GNU Lesser General Public License version 2.1, with the KKN@ H special exception on linking described in the file LICENSE. LOOLO@ H MM@ H************************************************************************N N5@ u* This module provides some facilities for creating references (and hash tables) which can easily be snapshotted and restored to an arbitrary version. It is used throughout the frontend (read: typechecker), to register all (well, hopefully) the global state. Thus making it easy for tools like Merlin to go back and forth typechecking different files. /* {1 Creators}  a* Similar to {!val:Stdlib.ref}, except the allocated reference is registered into the store. L /* Used to register hash tables. Those also need to be placed into refs to be easily swapped out, but one can't just "snapshot" the initial value to create fresh instances, so instead an initializer is required. Use it like this: {[ let my_table = s_table Hashtbl.create 42 ]} 䠠 * {1 State management} Note: all the following functions are currently unused inside the compiler codebase. Merlin is their only user at the moment. ɠ * Returns a fresh instance of the store. The first time this function is called, it snapshots the value of all the registered references, later calls to [fresh] will return instances initialized to those values. } * [with_store s f] resets all the registered references to the value they have in [s] for the run of [f]. If [f] updates any of the registered refs, [s] is updated to remember those changes.  q* Resets all the references to the initial snapshot (i.e. to the same values that new instances start with). ՠ }* Returns [true] when a store is active (i.e. when called from the callback passed to {!with_store}), [false] otherwise. @-./boot/ocamlc)-nostdlib"-I&./boot*-use-prims2runtime/primitives"-g0-strict-sequence*-principal(-absname"-w8+a-4-9-40-41-42-44-45-48+-warn-error"+a*-bin-annot/-strict-formats"-I%utils"-I%utils"-I'parsing"-I&typing"-I(bytecomp"-I,file_formats"-I&lambda"-I*middle_end"-I2middle_end/closure"-I2middle_end/flambda"-I=middle_end/flambda/base_types"-I'asmcomp"-I&driver"-I(toplevel"-I%tools"-I'runtime"-I1otherlibs/dynlink"-I-otherlibs/str"-I4otherlibs/systhreads"-I.otherlibs/unix"-I8otherlibs/runtime_events"-c`a T/home/teraram/ci/builds/workspace/parallel-build/flambda/false/label/ocaml-manycores >10/.-,+*)('&%$#"! @@0T?HV{Il\3{zz{{{{{@y@@8CamlinternalFormatBasics0%FU(Q/Tu0tGwf@Vx$&Stdlib0Lku]8_@0tGwf@Vx$AGC@@@.:@_@7@@@@H@@@@@4Ԑ@@@P@@