language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-11-01 13:34:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

implement mono / lowering for tuples

Browse source
This commit is contained in:
Joshua Warner 2023-01-24 20:23:17 -08:00
parent 65f8bb3d0d
commit 5a6be05ead
No known key found for this signature in database
GPG key ID: 89AD497003F93FDD
42 changed files with 1773 additions and 290 deletions
Download patch file Download diff file Expand all files Collapse all files

29
crates/compiler/test_mono/generated/tuple_pattern_match.txt Normal file
View file

@ -0,0 +1,29 @@
procedure Test.0 ():
let Test.15 : I64 = 1i64;
let Test.16 : I64 = 2i64;
let Test.1 : {I64, I64} = Struct {Test.15, Test.16};
joinpoint Test.5:
let Test.2 : Str = "A";
ret Test.2;
in
let Test.12 : I64 = StructAtIndex 1 Test.1;
let Test.13 : I64 = 2i64;
let Test.14 : Int1 = lowlevel Eq Test.13 Test.12;
if Test.14 then
let Test.6 : I64 = StructAtIndex 0 Test.1;
let Test.7 : I64 = 1i64;
let Test.8 : Int1 = lowlevel Eq Test.7 Test.6;
if Test.8 then
jump Test.5;
else
let Test.3 : Str = "B";
ret Test.3;
else
let Test.9 : I64 = StructAtIndex 0 Test.1;
let Test.10 : I64 = 1i64;
let Test.11 : Int1 = lowlevel Eq Test.10 Test.9;
if Test.11 then
jump Test.5;
else
let Test.4 : Str = "C";
ret Test.4;

14
crates/compiler/test_mono/src/tests.rs
View file

@ -2192,6 +2192,20 @@ fn list_one_vs_one_spread_issue_4685() {
)
}
#[mono_test]
fn tuple_pattern_match() {
indoc!(
r#"
app "test" provides [main] to "./platform"
main = when (1, 2) is
(1, _) -> "A"
(_, 2) -> "B"
(_, _) -> "C"
"#
)
}
#[mono_test(mode = "test")]
fn issue_4705() {
indoc!(