Commit 3c7f7399 authored by John van Groningen's avatar John van Groningen
Browse files

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
parent 145fbbd8
......@@ -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
......
Markdown is supported
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