File: ag_ob_spe.ml

package info (click to toggle)
atdgen 1.3.1-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 592 kB
  • ctags: 784
  • sloc: ml: 7,629; makefile: 314; sh: 18
file content (13 lines) | stat: -rw-r--r-- 235 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13

(*
  Optimization of the biniou representation
*)

open Ag_mapping
open Ag_ob_mapping

let get_table_info deref x =
  match deref x with
      `Record y -> y
    | _ ->
	Ag_error.error (Atd_ast.loc_of_type_expr x) "Not a record type"