diff options
author | 2004-07-16 21:16:56 +0000 | |
---|---|---|
committer | 2004-07-16 21:16:56 +0000 | |
commit | 4cfc8344bae87d5749ce6b553e2d5e2f98ca883b (patch) | |
tree | 39e1e9c5a91d1e50c64e186637787020862f25d0 /translate/ppconstrnew.ml | |
parent | 5a947f0317aa627b129332d2f38167ebd1bb9c31 (diff) |
Abstraction vis à vis du type loc pour compatibilité ocaml 3.08
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5932 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate/ppconstrnew.ml')
-rw-r--r-- | translate/ppconstrnew.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 6bac9b1f1..47a92f7ca 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -96,6 +96,7 @@ let surround p = hov 1 (str"(" ++ p ++ str")") let pr_located pr ((b,e),x) = if Options.do_translate() && (b,e)<>dummy_loc then + let (b,e) = unloc (b,e) in comment b ++ pr x ++ comment e else pr x @@ -146,7 +147,8 @@ let pr_name = function let pr_lident (b,_ as loc,id) = if loc <> dummy_loc then - pr_located pr_id ((b,b+String.length(string_of_id id)),id) + let (b,_) = unloc loc in + pr_located pr_id (make_loc (b,b+String.length(string_of_id id)),id) else pr_id id let pr_lname = function @@ -189,8 +191,8 @@ let pr_eqn pr (loc,pl,rhs) = pr_sep_com spc (pr ltop) rhs)) let begin_of_binder = function - LocalRawDef(((b,_),_),_) -> b - | LocalRawAssum(((b,_),_)::_,_) -> b + LocalRawDef((loc,_),_) -> fst (unloc loc) + | LocalRawAssum((loc,_)::_,_) -> fst (unloc loc) | _ -> assert false let begin_of_binders = function |