From 131b2a637e5ae991094ab06b078a38cc061e1b55 Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Tue, 5 Nov 2002 13:52:50 +0000
Subject: changement des locations, suite
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5243 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
camlp4/ocaml_src/meta/q_MLast.ml | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
(limited to 'camlp4/ocaml_src/meta')
diff --git a/camlp4/ocaml_src/meta/q_MLast.ml b/camlp4/ocaml_src/meta/q_MLast.ml
index 82f1966f1..590235609 100644
--- a/camlp4/ocaml_src/meta/q_MLast.ml
+++ b/camlp4/ocaml_src/meta/q_MLast.ml
@@ -590,7 +590,7 @@ Grammar.extend
Qast.Tuple [xx1; xx2; xx3] -> xx1, xx2, xx3
| _ ->
match () with
- _ -> raise (Match_failure ("q_MLast.ml", 10073, 10089))
+ _ -> raise (Match_failure ("q_MLast.ml", 288, 19))
in
Qast.Node ("StExc", [Qast.Loc; c; tl; b]) :
'str_item));
@@ -826,7 +826,7 @@ Grammar.extend
Qast.Tuple [xx1; xx2; xx3] -> xx1, xx2, xx3
| _ ->
match () with
- _ -> raise (Match_failure ("q_MLast.ml", 12344, 12360))
+ _ -> raise (Match_failure ("q_MLast.ml", 340, 19))
in
Qast.Node ("SgExc", [Qast.Loc; c; tl]) :
'sig_item));
@@ -2663,7 +2663,7 @@ Grammar.extend
Qast.Tuple [xx1; xx2; xx3] -> xx1, xx2, xx3
| _ ->
match () with
- _ -> raise (Match_failure ("q_MLast.ml", 33221, 33237))
+ _ -> raise (Match_failure ("q_MLast.ml", 882, 19))
in
Qast.Node ("CrVal", [Qast.Loc; lab; mf; e]) :
'class_str_item));
@@ -3058,7 +3058,7 @@ Grammar.extend
Qast.Tuple [xx1; xx2] -> xx1, xx2
| _ ->
match () with
- _ -> raise (Match_failure ("q_MLast.ml", 38172, 38188))
+ _ -> raise (Match_failure ("q_MLast.ml", 996, 19))
in
Qast.Node ("TyObj", [Qast.Loc; ml; v]) :
'ctyp));
@@ -3093,7 +3093,7 @@ Grammar.extend
Qast.Tuple [xx1; xx2] -> xx1, xx2
| _ ->
match () with
- _ -> raise (Match_failure ("q_MLast.ml", 38519, 38535))
+ _ -> raise (Match_failure ("q_MLast.ml", 1007, 19))
in
Qast.Tuple [Qast.Cons (f, ml); v] :
'meth_list))]];
--
cgit v1.2.3-70-g09d2