1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
(* SPDX-License-Identifier: AGPL-3.0-or-later *)
(* Copyright © 2021-2024 OCamlPro *)
(* Written by the Owi programmers *)
open Types
type t =
{ mutable value : Concrete_value.t
; label : string option
; mut : mut
; typ : binary val_type
}
let value g = g.value
let set_value g v = g.value <- v
let mut g = g.mut
let typ g = g.typ