diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-20 04:22:49 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-20 04:22:49 +0200 |
| commit | 5f93829b3dc29022590ffcff8e383f8978add90a (patch) | |
| tree | 218ede222aa4853e9886bae83d49f8364c615e17 /src/synth/synth-context.ads | |
| parent | c96cb4e7ae19054135b2ed0723d0aabdb56a945a (diff) | |
| download | ghdl-5f93829b3dc29022590ffcff8e383f8978add90a.tar.gz ghdl-5f93829b3dc29022590ffcff8e383f8978add90a.tar.bz2 ghdl-5f93829b3dc29022590ffcff8e383f8978add90a.zip | |
synth-context: make Objects_Array private.
Diffstat (limited to 'src/synth/synth-context.ads')
| -rw-r--r-- | src/synth/synth-context.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-context.ads b/src/synth/synth-context.ads index 27135011e..a03517b53 100644 --- a/src/synth/synth-context.ads +++ b/src/synth/synth-context.ads @@ -28,7 +28,6 @@ with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Context is -- Values are stored into Synth_Instance, which is parallel to simulation -- Block_Instance_Type. - type Objects_Array is array (Object_Slot_Type range <>) of Value_Acc; type Synth_Instance_Type (<>) is limited private; type Synth_Instance_Acc is access Synth_Instance_Type; @@ -93,6 +92,8 @@ package Synth.Context is function Create_Value_Instance (Inst : Synth_Instance_Acc) return Value_Acc; private + type Objects_Array is array (Object_Slot_Type range <>) of Value_Acc; + type Synth_Instance_Type (Max_Objs : Object_Slot_Type) is limited record -- Module which owns gates created for this instance. M : Module; |