From 51844caf9dbb8efd6a86a12ed21ec3dc17a3b537 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 28 Nov 2019 05:58:15 +0100
Subject: netlists: use C convention to pass records.

---
 src/synth/netlists.ads | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/synth/netlists.ads b/src/synth/netlists.ads
index 8ecfc5408..f4462fbb6 100644
--- a/src/synth/netlists.ads
+++ b/src/synth/netlists.ads
@@ -198,6 +198,10 @@ package Netlists is
    procedure Set_Params_Desc (M : Module;
                               Params : Param_Desc_Array);
 
+   --  Be sure the record is passed by reference.
+   pragma Convention (C, Set_Input_Desc);
+   pragma Convention (C, Set_Output_Desc);
+
    --  Create the self instance, once ports are defined.  This is required if
    --  the internal netlist will be defined.
    function Create_Self_Instance (M : Module) return Instance;
-- 
cgit v1.2.3