Commit ff8c5a90 authored by John van Groningen's avatar John van Groningen
Browse files

another modification that should have been committed already

parent 4788ca81
......@@ -1514,7 +1514,7 @@ generateFunction app_symb fd=:{fun_body = TransformedBody {tb_args,tb_rhs},fun_i
# (tb_rhs, {cs_var_heap,cs_symbol_heap,cs_opt_type_heaps=Yes ti_type_heaps, cs_cleanup_info})
= copy tb_rhs {ci_handle_aci_free_vars = RemoveAciFreeVars} cs
// | False ---> ("unfolded:", tb_rhs) = undef
# var_heap = fold2St store_arg_type_info new_fun_args fresh_arg_types cs_var_heap
# var_heap = fold2St store_arg_type_info new_fun_args fresh_arg_types var_heap
with
store_arg_type_info {fv_info_ptr} a_type ti_var_heap
= setExtendedVarInfo fv_info_ptr (EVI_VarType a_type) ti_var_heap
......
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