diff options
| author | herbelin | 2004-07-16 21:04:34 +0000 |
|---|---|---|
| committer | herbelin | 2004-07-16 21:04:34 +0000 |
| commit | f723ccc84f515615a75a030d304c89f6c5f06af9 (patch) | |
| tree | bcf811178e74a1d6a4a2297862f5f6108a196d24 /lib/util.ml | |
| parent | 56ba53113c03907a3d4e0528b14ff5c5ffcc9b61 (diff) | |
Mise en place mécanisme de compatibilité ocaml 3.08
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5930 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/lib/util.ml b/lib/util.ml index 9c51f3968f..1aa3786f2c 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -1,10 +1,10 @@ -(************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) -(* \VV/ **************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(************************************************************************) +(***********************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *) +(* \VV/ *************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(***********************************************************************) (* $Id$ *) @@ -22,10 +22,13 @@ let errorlabstrm l pps = raise (UserError(l,pps)) let todo s = prerr_string ("TODO: "^s^"\n") +type loc = Compat.loc +let dummy_loc = Compat.dummy_loc +let unloc = Compat.unloc +let make_loc = Compat.make_loc + (* raising located exceptions *) -type loc = int * int type 'a located = loc * 'a -let dummy_loc = (0,0) let anomaly_loc (loc,s,strm) = Stdpp.raise_with_loc loc (Anomaly (s,strm)) let user_err_loc (loc,s,strm) = Stdpp.raise_with_loc loc (UserError (s,strm)) let invalid_arg_loc (loc,s) = Stdpp.raise_with_loc loc (Invalid_argument s) |