fix mapping of spg param that is a struct data subcomponent

4333b46a · bouazizrahma · Jerome Hugues · 1e2e45e3 · 4333b46a
Commit 4333b46a authored Nov 13, 2019 by bouazizrahma Committed by Jerome Hugues Nov 13, 2019
--- a/src/backends/ocarina-backends-c_common-ba.adb
+++ b/src/backends/ocarina-backends-c_common-ba.adb
@@ -4244,7 +4244,8 @@ package body Ocarina.Backends.C_Common.BA is
                           Is_Out_Parameter => BATN.Is_Out (N),
                           Subprogram_Root  => S,
                           Declarations     => Declarations,
-                           Statements       => Statements);
+                           Statements       => Statements,
+                           Is_Put_Value_On_Port => True);

                        Append_Node_To_List
                          (K,