Commit 9f5e1dff authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl
Browse files

prevent compiler crash when fusing inside a DictionariesFunction, store type...

prevent compiler crash when fusing inside a DictionariesFunction, store type information for type variabeles of a DictionariesFunction before transforming the expression
parent a354e9c6
......@@ -288,8 +288,12 @@ where
# (dynamic_expr, ti) = transform dynamic_expr ro ti
= (DynamicExpr dynamic_expr, ti)
transform (DictionariesFunction dictionaries expr expr_type) ro ti
# ti & ti_var_heap = foldSt store_dictionary_type_info dictionaries ti.ti_var_heap
# (expr,ti) = transform expr ro ti
= (DictionariesFunction dictionaries expr expr_type,ti)
where
store_dictionary_type_info ({fv_info_ptr},a_type) ti_var_heap
= setExtendedVarInfo fv_info_ptr (EVI_VarType a_type) ti_var_heap
transform expr ro ti
= (expr, ti)
......
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