waalge/aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test(aiken-lang): add a new test for list edge case in when clause patterns

Browse Source
This commit is contained in:
microproofs
2023-08-08 20:47:35 -04:00
parent 252f68de17
commit eda388fb29
7 changed files with 167 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
crates/aiken-lang/src/gen_uplc.rs
View File

@@ -1654,7 +1654,7 @@ impl<'a> CodeGenerator<'a> {
}
}
SpecificClause::ListClause {
current_index,
defined_tails_index,
defined_tails,
checked_index,
} => {
@@ -1677,7 +1677,7 @@ impl<'a> CodeGenerator<'a> {
original_subject_name: props.original_subject_name.clone(),
final_clause: false,
specific_clause: SpecificClause::ListClause {
current_index: *current_index,
defined_tails_index: *defined_tails_index,
defined_tails: defined_tails.clone(),
checked_index: *checked_index,
},
@@ -1723,19 +1723,19 @@ impl<'a> CodeGenerator<'a> {
_ => 0,
};
if (*current_index as usize) < next_elements_len {
*current_index += 1;
if (*defined_tails_index as usize) < next_elements_len {
*defined_tails_index += 1;
defined_tails.push(format!(
"tail_index_{}_span_{}_{}",
*current_index,
*defined_tails_index,
next_clause.pattern.location().start,
next_clause.pattern.location().end
));
Some(format!(
"tail_index_{}_span_{}_{}",
*current_index,
*defined_tails_index,
next_clause.pattern.location().start,
next_clause.pattern.location().end
))
@@ -1767,7 +1767,7 @@ impl<'a> CodeGenerator<'a> {
original_subject_name: props.original_subject_name.clone(),
final_clause: false,
specific_clause: SpecificClause::ListClause {
current_index: *current_index,
defined_tails_index: *defined_tails_index,
defined_tails: defined_tails.clone(),
checked_index: *checked_index,
},
@@ -2349,7 +2349,7 @@ impl<'a> CodeGenerator<'a> {
let ClauseProperties {
specific_clause:
SpecificClause::ListClause {
current_index,
defined_tails_index: current_index,
defined_tails,
checked_index: _,
},

6
crates/aiken-lang/src/gen_uplc/builder.rs
View File

@@ -100,7 +100,7 @@ pub struct ClauseProperties {
pub enum SpecificClause {
ConstrClause,
ListClause {
current_index: i64,
defined_tails_index: i64,
defined_tails: Vec<String>,
checked_index: i64,
},
@@ -119,7 +119,7 @@ impl ClauseProperties {
final_clause: false,
needs_constr_var: false,
specific_clause: SpecificClause::ListClause {
current_index: 0,
defined_tails_index: 0,
defined_tails: vec![subject_name],
checked_index: -1,
},
@@ -161,7 +161,7 @@ impl ClauseProperties {
final_clause,
needs_constr_var: false,
specific_clause: SpecificClause::ListClause {
current_index: 0,
defined_tails_index: 0,
defined_tails: vec![],
checked_index: -1,
},