From ffdb5fc8582c77eef7b3a30859eaa216872525a4 Mon Sep 17 00:00:00 2001 From: Patrick Walton Date: Tue, 7 Sep 2010 16:35:00 -0700 Subject: Initial support for a global crate metadata cache --- src/boot/fe/ast.ml | 6 ++---- src/boot/fe/item.ml | 2 +- 2 files changed, 3 insertions(+), 5 deletions(-) (limited to 'src/boot/fe') diff --git a/src/boot/fe/ast.ml b/src/boot/fe/ast.ml index 79ff2c7c..3ea89171 100644 --- a/src/boot/fe/ast.ml +++ b/src/boot/fe/ast.ml @@ -452,14 +452,12 @@ and mod_view = view_exports: (export, unit) Hashtbl.t; } -and meta = (ident * string) array - -and meta_pat = (ident * string option) array +and meta_pat = (string * string option) array and crate' = { crate_items: (mod_view * mod_items); - crate_meta: meta; + crate_meta: Session.meta; crate_auth: (name, effect) Hashtbl.t; crate_required: (node_id, (required_lib * nabi_conv)) Hashtbl.t; crate_required_syms: (node_id, string) Hashtbl.t; diff --git a/src/boot/fe/item.ml b/src/boot/fe/item.ml index a47fca5a..287fbb41 100644 --- a/src/boot/fe/item.ml +++ b/src/boot/fe/item.ml @@ -758,7 +758,7 @@ and parse_meta_pat (ps:pstate) : Ast.meta_pat = bracketed_zero_or_more LPAREN RPAREN (Some COMMA) parse_meta_input ps -and parse_meta (ps:pstate) : Ast.meta = +and parse_meta (ps:pstate) : Session.meta = Array.map begin fun (id,v) -> -- cgit v1.2.3