118160bf07
This PR refactors match compilation, to handle “side-effect free” patterns (`.var`, `.inaccessible`, `.as`) eagerly and for each alternative separately. The idea is that there should be less interplay between different alternatives, and prepares the ground for #11105. This may cause some corner case match statements to compiler or fail compile that behaved differently before. For example, it can now use a sparse case where previously was using a full case, and pattern completeness may not be clear to lean now. On the other hand, using a sparse case can mean that match statements mixing matching in indicies with matching on the indexed datatype can work.
52 lines
1.4 KiB
Text
52 lines
1.4 KiB
Text
-- set_option trace.Meta.Match.match true
|
|
-- set_option trace.Meta.Match.debug true
|
|
|
|
/--
|
|
error: Failed to compile pattern matching: Stuck at
|
|
remaining variables: [x✝:(String)]
|
|
alternatives:
|
|
[toByteArray✝:(ByteArray), isValidUTF8✝:(toByteArray✝.IsValidUTF8)]
|
|
|- [(String.ofByteArray toByteArray✝ isValidUTF8✝)] => h_1 toByteArray✝ isValidUTF8✝
|
|
|- ["Eek"] => h_2 ()
|
|
|- [.(x✝)] => h_3 x✝
|
|
examples:_
|
|
-/
|
|
#guard_msgs in
|
|
def stringMatch : Option Nat :=
|
|
match "Bad" with
|
|
| String.ofByteArray _ _ => some 1
|
|
| "Eek" => some 2
|
|
| _ => none -- used to be: unknown free variable `_fvar.149`
|
|
|
|
/--
|
|
error: Failed to compile pattern matching: Stuck at
|
|
remaining variables: [x✝:(Char)]
|
|
alternatives:
|
|
[valid✝:(UInt32.isValidChar 5)]
|
|
|- [(Char.mk 5 valid✝)] => h_1 valid✝
|
|
|- ['A'] => h_2 ()
|
|
|- [.(x✝)] => h_3 x✝
|
|
examples:_
|
|
-/
|
|
#guard_msgs in
|
|
def charMatch :=
|
|
match 'X' with
|
|
| Char.mk 5 _ => some 1
|
|
| 'A' => some 2
|
|
| _ => none -- used to be: unknown free variable `_fvar.836`
|
|
|
|
/--
|
|
error: Failed to compile pattern matching: Stuck at
|
|
remaining variables: [x✝:(UInt8)]
|
|
alternatives:
|
|
|- [(UInt8.ofBitVec (BitVec.ofFin 3))] => h_1 ()
|
|
|- [5] => h_2 ()
|
|
|- [.(x✝)] => h_3 x✝
|
|
examples:_
|
|
-/
|
|
#guard_msgs in
|
|
def uInt8Match :=
|
|
match (5: UInt8) with
|
|
| UInt8.ofBitVec (BitVec.ofFin 3) => some 1
|
|
| 5 => some 2
|
|
| _ => none -- used to be: unknown free variable `_fvar.1026`
|