(**************************************************************************) (* *) (* OCaml *) (* *) (* Mark Shinwell and Thomas Refis, Jane Street Europe *) (* *) (* Copyright 2013--2017 Jane Street Group LLC *) (* *) (* All rights reserved. This file is distributed under the terms of *) (* the GNU Lesser General Public License version 2.1, with the *) (* special exception on linking described in the file LICENSE. *) (* *) (**************************************************************************) (** Available registers analysis used to determine which variables may be shown in the debugger. *) val fundecl : Mach.fundecl -> Mach.fundecl