Sync with 5.4.2

[deliverable/titan.core.git] / compiler2 / Type_codegen.cc

diff --git a/compiler2/Type_codegen.cc b/compiler2/Type_codegen.cc
index af6de3601ad6ecb296e60db5a952624d75bc9df0..abd618d3c4f011d6537234c8184441a78af216db 100644 (file)
--- a/compiler2/Type_codegen.cc
+++ b/compiler2/Type_codegen.cc
@@ -2081,7 +2081,8 @@ void Type::generate_code_Fat(output_struct *target)
   }
   fdef.runs_on_self = u.fatref.runs_on.self ? TRUE : FALSE;
   fdef.is_startable = u.fatref.is_startable;
-  fdef.formal_par_list = u.fatref.fp_list->generate_code(memptystr());
+  fdef.formal_par_list = u.fatref.fp_list->generate_code(memptystr(),
+    u.fatref.fp_list->get_nof_fps());
   u.fatref.fp_list->generate_code_defval(target);
   fdef.actual_par_list = u.fatref.fp_list
                           ->generate_code_actual_parlist(memptystr(),"");