[r2005-04-04 08:40:26 by afrisch] Empty log message

Original author: afrisch
Date: 2005-04-04 08:40:26+00:00

runtime/serial.ml

@@ -137,6 +137,8 @@ module G = struct
 	  
   let remove_label chunk i v =
     Value.remove_field (LAB.get (fun x -> x) chunk.lab i) v
+  let get_field chunk i v =
+    Value.get_field v (LAB.get (fun x -> x) chunk.lab i)
 
   let typ chunk i =
     T.get (fun x -> x) chunk.typ i

runtime/serial.mli

@@ -19,6 +19,7 @@ module G : sig
   val pm: chunk -> int -> Value.t -> int * Value.t array
   val const: chunk -> int -> Value.t
   val remove_label: chunk -> int -> Value.t -> Value.t
+  val get_field: chunk -> int -> Value.t -> Value.t
   val typ: chunk -> int -> Types.t
   val check: chunk -> int -> int -> Value.t -> Value.t
   val record: chunk -> int -> Value.t array -> Value.t