diff options
| author | Maxime Dénès | 2017-04-15 12:15:13 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-15 12:15:13 +0200 |
| commit | 0147ae6ba6db24d4f9b29ff477d374a6abb103dd (patch) | |
| tree | b07f2d41760b7c138fc7b7b6a652320e5169e4f3 /interp | |
| parent | ed09fccb6405fb832cab867919cc4b0be32dea36 (diff) | |
| parent | 727ef1bd345f9ad9e08d9e4f136e2db7d034a93d (diff) | |
Merge branch 'v8.6' into trunk
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/topconstr.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 89e04b69d2..d3142e7f0c 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -58,7 +58,9 @@ let rec cases_pattern_fold_names f a = function | CPatDelimiters (_,_,pat) -> cases_pattern_fold_names f a pat | CPatAtom (_,Some (Ident (_,id))) when not (is_constructor id) -> f id a | CPatPrim _ | CPatAtom _ -> a - | CPatCast _ -> assert false + | CPatCast (loc,_,_) -> + CErrors.user_err ~loc ~hdr:"cases_pattern_fold_names" + (Pp.strbrk "Casts are not supported here.") let ids_of_pattern = cases_pattern_fold_names Id.Set.add Id.Set.empty |