1 (***********************************************************************)
5 (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
7 (* Copyright 1996 Institut National de Recherche en Informatique et *)
8 (* en Automatique. All rights reserved. This file is distributed *)
9 (* under the terms of the Q Public License version 1.0. *)
11 (***********************************************************************)
15 (* Auxiliary a.s.t. types used by parsetree and typedtree. *)
20 | Const_string
of string
21 | Const_float
of string
22 | Const_int32
of int32
23 | Const_int64
of int64
24 | Const_nativeint
of nativeint
26 type rec_flag
= Nonrecursive
| Recursive
| Default
28 type direction_flag
= Upto
| Downto
30 type private_flag
= Private
| Public
32 type mutable_flag
= Immutable
| Mutable
34 type virtual_flag
= Virtual
| Concrete