diff options
| author | johnvg | 2011-11-04 16:15:17 +0000 |
|---|---|---|
| committer | johnvg | 2011-11-04 16:15:17 +0000 |
| commit | cda8c58053a3c3e57b6aa95028a4241ec4e00f8c (patch) | |
| tree | cb6bfe50fc14bdd2042d9224915e33023f3b8e3a /frontend/classify.icl | |
| parent | remove differences in layout between the compiler and the iTask compiler (diff) | |
remove differences in layout between the compiler and the iTask compiler
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1989 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/classify.icl')
| -rw-r--r-- | frontend/classify.icl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/frontend/classify.icl b/frontend/classify.icl index 25b8837..e14086a 100644 --- a/frontend/classify.icl +++ b/frontend/classify.icl @@ -647,6 +647,8 @@ instance consumerRequirements Case where = True is_sorted [h1:t=:[h2:_]] = h1 < h2 && is_sorted t + is_sorted [] + = True sort constr_indices unsafe_bits = sortBy smaller (zip3 constr_indices [0..] unsafe_bits) @@ -714,7 +716,7 @@ where -> True _ -> False //---> ("not ok_pattern_type",patterns) pattern_constructors = case patterns of - (AlgebraicPatterns {glob_object, glob_module} algebraic_patterns) + (AlgebraicPatterns _ algebraic_patterns) -> [ glob_object.ds_index \\ {ap_symbol={glob_object}}<-algebraic_patterns] //---> ("AlgebraicPatterns") (BasicPatterns BT_Bool basic_patterns) -> [ if bool 1 0 \\ {bp_value=BVB bool}<-basic_patterns ] //---> ("BasicPatterns Bool") @@ -1367,7 +1369,7 @@ where UStrict -> CUnusedStrict ULazy -> CUnusedLazy UMixed -> CUnusedStrict - + collect_deps :: !UnusedStatus ![!RefCount!] -> UnusedStatus collect_deps s [|] = s |