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

update ft_arity of generated dcl functions, if this field is not updated, fusion

can crash because arguments can be incorrectly analyzed as unused
parent b39563ce
...@@ -1909,11 +1909,9 @@ where ...@@ -1909,11 +1909,9 @@ where
| fun_index < size dcl_functions | fun_index < size dcl_functions
#! (symbol_type, heaps) = fresh_symbol_type symbol_type heaps #! (symbol_type, heaps) = fresh_symbol_type symbol_type heaps
#! (fun, dcl_functions) = dcl_functions ! [fun_index] #! (fun, dcl_functions) = dcl_functions ! [fun_index]
#! fun = #! fun = { fun & ft_ident = genericIdentToFunIdent gc_ident gc_type_cons
{ fun , ft_type = symbol_type
& ft_ident = genericIdentToFunIdent gc_ident gc_type_cons , ft_arity = symbol_type.st_arity }
, ft_type = symbol_type
}
#! dcl_functions = { dcl_functions & [fun_index] = fun} #! dcl_functions = { dcl_functions & [fun_index] = fun}
= (dcl_functions, heaps) = (dcl_functions, heaps)
//---> ("update dcl function", fun.ft_ident, fun_index, symbol_type) //---> ("update dcl function", fun.ft_ident, fun_index, symbol_type)
......
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