diff options
| author | johnvg | 2002-01-16 12:06:30 +0000 |
|---|---|---|
| committer | johnvg | 2002-01-16 12:06:30 +0000 |
| commit | 8581f82022dfff91dfc4713ecd19fffea9371757 (patch) | |
| tree | 8c6aa54f120a7323af3a73ffabaa544f42a3bf8b /frontend | |
| parent | bug fix, print brackets in types (reapplication of bug fix revision 1.55 that... (diff) | |
added default alternatives for functions 'is_lazy_or_strict_array'
and 'is_lazy_or_strict_list' to prevent a compiler crash when a
list or array is used in special with an undefined variable
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@967 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/check.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/frontend/check.icl b/frontend/check.icl index b68c38b..62d760c 100644 --- a/frontend/check.icl +++ b/frontend/check.icl @@ -758,6 +758,8 @@ where | glob_module==pds_module && glob_object==pds_def = True = False + is_lazy_or_strict_array _ predef_symbols + = False is_lazy_or_strict_list [TA {type_index={glob_module,glob_object}} [],TV var] predef_symbols # {pds_def,pds_module} = predef_symbols.[PD_ListType] @@ -773,6 +775,8 @@ where | glob_module==pds_module && glob_object==pds_def = True = False + is_lazy_or_strict_list _ predef_symbols + = False initializeContextVariables :: ![TypeContext] !*VarHeap -> (![TypeContext], !*VarHeap) initializeContextVariables contexts var_heap |