2007-05-16 01:21:41 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* OCaml *)
|
2007-05-16 01:21:41 -07:00
|
|
|
(* *)
|
|
|
|
|
(* Damien Doligez, projet Gallium, INRIA Rocquencourt *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 2007 Institut National de Recherche en Informatique et *)
|
|
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
|
|
(* Data types for annotations (Stypes.ml) *)
|
|
|
|
|
|
|
|
|
|
type call = Tail | Stack | Inline;;
|
|
|
|
|
|
|
|
|
|
type ident =
|
|
|
|
|
| Iref_internal of Location.t (* defining occurrence *)
|
2008-07-29 08:42:44 -07:00
|
|
|
| Iref_external
|
2007-05-16 01:21:41 -07:00
|
|
|
| Idef of Location.t (* scope *)
|
|
|
|
|
;;
|
