* Correct logic for By_Reference type

For #299
OpenAADL · Mar 23, 2022 · 9873d8b · 9873d8b
1 parent c0c9e6c
commit 9873d8b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/backends/po_hi_c/ocarina-backends-po_hi_c-activity.adb b/src/backends/po_hi_c/ocarina-backends-po_hi_c-activity.adb
@@ -1231,23 +1231,23 @@ package body Ocarina.Backends.PO_HI_C.Activity is
                                      Is_Pointer => True);
 
                         if By_Reference_Type (D) then
-                           Append_Node_To_List (N, Call_Parameters);
-                        else
                            Append_Node_To_List (Make_Variable_Address (N),
                                                 Call_Parameters);
+                        else
+                           Append_Node_To_List (N, Call_Parameters);
                         end if;
 
                         N := Map_C_Data_Type_Designator (D);
 
                         if By_Reference_Type (D) then
                            N :=
                               Make_Parameter_Specification
-                                 (Map_C_Defining_Identifier (F), N);
+                                 (Map_C_Defining_Identifier (F),
+                                  CTU.Make_Pointer_Type (N));
                         else
                            N :=
                               Make_Parameter_Specification
-                                 (Map_C_Defining_Identifier (F),
-                                  CTU.Make_Pointer_Type (N));
+                                 (Map_C_Defining_Identifier (F), N);
                         end if;
                         Append_Node_To_List (N, Parameter_List);
                      end if;