diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-18 18:05:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-18 18:05:14 +0200 |
| commit | e1ef6a6dee1c5b140022f191306931a40ff57cd6 (patch) | |
| tree | d996a001a2780a9d0ec3278415b310e7ff3f42d2 /src/synth/netlists.adb | |
| parent | 0f5343eaf219d8901375c1b92e9bdd35bb12947e (diff) | |
| download | ghdl-e1ef6a6dee1c5b140022f191306931a40ff57cd6.tar.gz ghdl-e1ef6a6dee1c5b140022f191306931a40ff57cd6.tar.bz2 ghdl-e1ef6a6dee1c5b140022f191306931a40ff57cd6.zip | |
netlists: add more flags in Module_Record.
Diffstat (limited to 'src/synth/netlists.adb')
| -rw-r--r-- | src/synth/netlists.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index 58c00804d..840849162 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -402,10 +402,12 @@ package body Netlists is Params_Table.Allocate (Natural (Nbr_Params)); begin Instances_Table.Append ((Parent => Parent, + Flag3 | Flag4 => False, Next_Instance => No_Instance, Prev_Instance => No_Instance, Klass => M, Flag_Mark => False, + Flag5 | Flag6 => False, Flag2 => False, Name => Name, First_Param => Params, @@ -1035,9 +1037,11 @@ begin pragma Assert (Modules_Table.Last = Free_Module); Instances_Table.Append ((Parent => No_Module, + Flag3 | Flag4 => False, Next_Instance => No_Instance, Prev_Instance => No_Instance, Klass => No_Module, + Flag5 | Flag6 => False, Flag_Mark => False, Flag2 => False, Name => No_Sname, |