Commit 8ef8fe7b authored by John van Groningen's avatar John van Groningen
Browse files

remove differences in layout between the compiler and the iTask compiler,

modified case_explicit of generated cases
parent 7955c5b6
......@@ -333,7 +333,7 @@ instance convertDynamics Case where
-> convertDynamicCase cinp kees ci
_
# (case_guards, ci) = convertDynamics cinp case_guards ci
# kees = {kees & case_guards=case_guards}
# kees = {kees & case_explicit=False, case_guards=case_guards}
-> (kees, ci)
instance convertDynamics CasePatterns where
......@@ -374,7 +374,8 @@ convertDynamicCase cinp=:{cinp_dynamic_representation={dr_dynamic_symbol, dr_dyn
, ap_position = position alts
}
# (case_info_ptr, ci) = dummy_case_ptr result_type ci
# kees = {kees & case_guards=AlgebraicPatterns dr_dynamic_type [match], case_default=No, case_info_ptr = case_info_ptr}
# kees = {kees & case_explicit=False, case_guards=AlgebraicPatterns dr_dynamic_type [match],
case_default=No, case_info_ptr=case_info_ptr}
= (kees, ci)
convertDynamicAlts _ _ _ _ _ defoult [] ci
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment