blob: 3a5914b2a28efbeba94f9e37f033ba79369108bc [file] [log] [blame] [edit]
open Types
open Value
type global
type t = global
exception Type
exception NotMutable
val alloc : globaltype -> value -> global (* raises Type *)
val type_of : global -> globaltype
val load : global -> value
val store : global -> value -> unit (* raises Type, NotMutable *)