diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:58:15 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-28 05:58:15 +0100 |
| commit | 51844caf9dbb8efd6a86a12ed21ec3dc17a3b537 (patch) | |
| tree | 19e91ef3e579706d61fcf1dc5f24d9800e53eae3 | |
| parent | 0b6a37376975313f34efd161e60f53ef7b5763c1 (diff) | |
| download | ghdl-51844caf9dbb8efd6a86a12ed21ec3dc17a3b537.tar.gz ghdl-51844caf9dbb8efd6a86a12ed21ec3dc17a3b537.tar.bz2 ghdl-51844caf9dbb8efd6a86a12ed21ec3dc17a3b537.zip | |
netlists: use C convention to pass records.
| -rw-r--r-- | src/synth/netlists.ads | 4 |
1 files changed, 4 insertions, 0 deletions
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; |