diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2011-10-21 03:37:50 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2011-10-21 03:37:50 +0000 |
| commit | 8f14aadd02b5db0cbe3007a2a912549f7826580e (patch) | |
| tree | 5d5ed881b68cc2a9ba21283519e4291176dcd7a1 | |
| parent | b1f8048f398de3b7e99fe2f97593872e8dc4e9a7 (diff) | |
Do not keep locations in .cmis!
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11229 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rwxr-xr-x | boot/ocamlc | bin | 1157891 -> 1157963 bytes | |||
| -rwxr-xr-x | boot/ocamldep | bin | 312883 -> 312883 bytes | |||
| -rwxr-xr-x | boot/ocamllex | bin | 171514 -> 171514 bytes | |||
| -rw-r--r-- | typing/subst.ml | 4 |
4 files changed, 2 insertions, 2 deletions
diff --git a/boot/ocamlc b/boot/ocamlc Binary files differindex 39ea331da..5a9a2c7c5 100755 --- a/boot/ocamlc +++ b/boot/ocamlc diff --git a/boot/ocamldep b/boot/ocamldep Binary files differindex b8a000b9c..162b50e32 100755 --- a/boot/ocamldep +++ b/boot/ocamldep diff --git a/boot/ocamllex b/boot/ocamllex Binary files differindex 1b052df45..38edbfc8d 100755 --- a/boot/ocamllex +++ b/boot/ocamllex diff --git a/typing/subst.ml b/typing/subst.ml index 03c7d4a9f..3b4e18a59 100644 --- a/typing/subst.ml +++ b/typing/subst.ml @@ -189,7 +189,7 @@ let type_declaration s decl = type_private = decl.type_private; type_variance = decl.type_variance; type_newtype_level = None; - type_loc = decl.type_loc; + type_loc = if s.for_saving then Location.none else decl.type_loc; } in cleanup_types (); @@ -249,7 +249,7 @@ let class_type s cty = let value_description s descr = { val_type = type_expr s descr.val_type; val_kind = descr.val_kind; - val_loc = descr.val_loc; + val_loc = if s.for_saving then Location.none else descr.val_loc; } let exception_declaration s tyl = |