package hack_parallel
Parallel and shared memory library
Install
Dune Dependency
Authors
Maintainers
Sources
1.0.1.tar.gz
md5=ba7c72bc207e326b72e294fc76f6ad2c
sha512=5020d47f97bea2f88e2a40411894d03232a7f2282606926c93c7d4c96d72e94a966be852897a9b16f7e0893ba376512045abb9d93020a7c03c3def4f3d918f8e
doc/src/hack_parallel.utils/stats.ml.html
Source file stats.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
(** * Copyright (c) 2015, Facebook, Inc. * All rights reserved. * * This source code is licensed under the BSD-style license found in the * LICENSE file in the root directory of this source tree. An additional grant * of patent rights can be found in the PATENTS file in the same directory. * *) (* Not all stats are worth logging for every user. Things like the initial heap * size are pretty deterministic if you know the input (i.e. the files being * checked). In fact, it's *only* useful information if you know the input. * This file is for storing these types of stats: Things that would be useful * for a benchmark script to know, so it can say "for these inputs, under these * conditions, here's how hh_server behaves". *) type t = { mutable init_parsing_heap_size : int; mutable init_heap_size : int; mutable max_heap_size : int; gc_stat : Gc.stat; } let stats : t = { init_parsing_heap_size = 0; init_heap_size = 0; max_heap_size = 0; gc_stat = Gc.quick_stat (); } let get_stats () = {stats with gc_stat = Gc.quick_stat ()} let update_max_heap_size x = stats.max_heap_size <- max stats.max_heap_size x let to_json stats = Hh_json.JSON_Object [ ("init_parsing_heap_size", Hh_json.int_ stats.init_parsing_heap_size); ("init_shared_heap_size", Hh_json.int_ stats.init_heap_size); ("max_shared_heap_size", Hh_json.int_ stats.max_heap_size); ("master_heap_words", Hh_json.int_ stats.gc_stat.Gc.heap_words); ("master_top_heap_words", Hh_json.int_ stats.gc_stat.Gc.top_heap_words); ]
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>