diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-11-05 13:52:50 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-11-05 13:52:50 +0000 |
| commit | 131b2a637e5ae991094ab06b078a38cc061e1b55 (patch) | |
| tree | 96d7d992badc772e429df68555e38534da479f12 /camlp4/ocaml_src/meta | |
| parent | 91b46117b65a8b61272cc1d00b60d9f6ca9dfd6b (diff) | |
changement des locations, suite
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5243 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/ocaml_src/meta')
| -rw-r--r-- | camlp4/ocaml_src/meta/q_MLast.ml | 10 |
1 files changed, 5 insertions, 5 deletions
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))]]; |