diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-16 21:04:34 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-16 21:04:34 +0000 |
| commit | f723ccc84f515615a75a030d304c89f6c5f06af9 (patch) | |
| tree | bcf811178e74a1d6a4a2297862f5f6108a196d24 /lib/util.mli | |
| 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.mli')
| -rw-r--r-- | lib/util.mli | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lib/util.mli b/lib/util.mli index 79133a930..45e953a64 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -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 *) +(***********************************************************************) (*i $Id$ i*) @@ -32,9 +32,12 @@ val errorlabstrm : string -> std_ppcmds -> 'a val todo : string -> unit -type loc = int * int +type loc = Compat.loc + type 'a located = loc * 'a +val unloc : loc -> int * int +val make_loc : int * int -> loc val dummy_loc : loc val anomaly_loc : loc * string * std_ppcmds -> 'a val user_err_loc : loc * string * std_ppcmds -> 'a |