source: Deliverables/D2.3/8051/cparser/Builtins.ml @ 453

Last change on this file since 453 was 453, checked in by ayache, 9 years ago

Import of the Paris's sources.

File size: 1.9 KB
Line 
1(* *********************************************************************)
2(*                                                                     *)
3(*              The Compcert verified compiler                         *)
4(*                                                                     *)
5(*          Xavier Leroy, INRIA Paris-Rocquencourt                     *)
6(*                                                                     *)
7(*  Copyright Institut National de Recherche en Informatique et en     *)
8(*  Automatique.  All rights reserved.  This file is distributed       *)
9(*  under the terms of the GNU General Public License as published by  *)
10(*  the Free Software Foundation, either version 2 of the License, or  *)
11(*  (at your option) any later version.  This file is also distributed *)
12(*  under the terms of the INRIA Non-Commercial License Agreement.     *)
13(*                                                                     *)
14(* *********************************************************************)
15
16(* Compiler built-ins *)
17
18open C
19open Cutil
20
21let env = ref Env.empty
22let idents = ref []
23let decls = ref []
24
25let environment () = !env
26let identifiers () = !idents
27let declarations () = List.rev !decls
28
29let add_typedef (s, ty) =
30  let (id, env') = Env.enter_typedef !env s ty in
31  env := env';
32  idents := id :: !idents;
33  decls := {gdesc = Gtypedef(id, ty); gloc = no_loc} :: !decls
34
35let add_function (s, (res, args, va)) =
36  let ty =
37    TFun(res,
38         Some (List.map (fun ty -> (Env.fresh_ident "", ty)) args),
39         va, []) in
40  let (id, env') = Env.enter_ident !env s Storage_extern ty in
41  env := env';
42  idents := id :: !idents;
43  decls := {gdesc = Gdecl(Storage_extern, id, ty, None); gloc = no_loc} :: !decls
44
45type t = {
46  typedefs: (string * C.typ) list;
47  functions: (string * (C.typ * C.typ list * bool)) list
48}
49
50let set blt =
51  env := Env.empty;
52  idents := [];
53  List.iter add_typedef blt.typedefs;
54  List.iter add_function blt.functions
Note: See TracBrowser for help on using the repository browser.