roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-11-11 05:34:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

Make sure to update path of matched list

Browse Source
This commit is contained in:
Ayaz Hafiz 2022-11-01 14:16:50 -05:00
parent ae71c7efe2
commit 45f7cd5ad7
No known key found for this signature in database
GPG Key ID: 0E2A37416A25EF58
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
crates/compiler/mono/src/decision_tree.rs
View File

@ -1454,6 +1454,7 @@ fn path_to_expr_help<'a>(
stores.push((load_sym, *elem_layout, load_expr));
layout = *elem_layout;
symbol = load_sym;
}
_ => internal_error!("not a list"),
}

14
crates/compiler/test_mono/generated/match_list.txt
View File

@ -24,9 +24,9 @@ procedure Test.0 ():
if Test.38 then
let Test.17 : U64 = 0i64;
let Test.18 : Int1 = lowlevel ListGetUnsafe Test.1 Test.17;
let Test.19 : Int1 = false;
let Test.20 : Int1 = lowlevel Eq Test.19 Test.1;
dec Test.1;
let Test.19 : Int1 = false;
let Test.20 : Int1 = lowlevel Eq Test.19 Test.18;
if Test.20 then
jump Test.10;
else
@ -39,13 +39,13 @@ procedure Test.0 ():
let Test.25 : U64 = 0i64;
let Test.26 : Int1 = lowlevel ListGetUnsafe Test.1 Test.25;
let Test.27 : Int1 = false;
let Test.28 : Int1 = lowlevel Eq Test.27 Test.1;
let Test.28 : Int1 = lowlevel Eq Test.27 Test.26;
if Test.28 then
let Test.21 : U64 = 1i64;
let Test.22 : Int1 = lowlevel ListGetUnsafe Test.1 Test.21;
let Test.23 : Int1 = false;
let Test.24 : Int1 = lowlevel Eq Test.23 Test.1;
dec Test.1;
let Test.23 : Int1 = false;
let Test.24 : Int1 = lowlevel Eq Test.23 Test.22;
if Test.24 then
let Test.6 : Str = "C";
ret Test.6;
@ -58,9 +58,9 @@ procedure Test.0 ():
else
let Test.29 : U64 = 0i64;
let Test.30 : Int1 = lowlevel ListGetUnsafe Test.1 Test.29;
let Test.31 : Int1 = false;
let Test.32 : Int1 = lowlevel Eq Test.31 Test.1;
dec Test.1;
let Test.31 : Int1 = false;
let Test.32 : Int1 = lowlevel Eq Test.31 Test.30;
if Test.32 then
jump Test.10;
else