diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-28 15:43:40 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-28 15:43:40 +0000 |
commit | 13cab8364beb03586e0e6972f00c20664d83a4b7 (patch) | |
tree | a2760dfd863d18f29ddae4b59d79495f12de8ac6 /checker/safe_typing.ml | |
parent | 568fe8d4f87b5deffe781fe81185c678f8d2684e (diff) |
Safe_typing+Libary: use some arrays instead of lists in vo structures
Very little space saved this way, but it would hurt either...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16375 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/safe_typing.ml')
-rw-r--r-- | checker/safe_typing.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/checker/safe_typing.ml b/checker/safe_typing.ml index 5a190de7f..5cbcc00f5 100644 --- a/checker/safe_typing.ml +++ b/checker/safe_typing.ml @@ -57,13 +57,13 @@ let check_imports f caller env needed = with Not_found -> error ("Reference to unknown module " ^ (DirPath.to_string dp)) in - List.iter check needed + Array.iter check needed type compiled_library = DirPath.t * module_body * - (DirPath.t * Digest.t) list * + (DirPath.t * Digest.t) array * engagement option (* Store the body of modules' opaque constants inside a table. @@ -168,7 +168,7 @@ end = struct end open Validate -let val_deps = val_list (val_tuple ~name:"dep"[|val_dp;no_val|]) +let val_deps = val_array (val_tuple ~name:"dep"[|val_dp;no_val|]) let val_vo = val_tuple ~name:"vo" [|val_dp;val_module;val_deps;val_opt val_eng|] (* This function should append a certificate to the .vo file. |