diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-18 18:40:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-18 18:40:01 +0200 |
| commit | bf646039f586db4ef199d6ed466c1f173689d1a8 (patch) | |
| tree | cc7ca0c25d9fa7533a09d2cb9a518ec908665835 /src/synth/netlists-cleanup.adb | |
| parent | 7c8f4b6b20d42ba69d889f11c3da1f7aca877792 (diff) | |
| download | ghdl-bf646039f586db4ef199d6ed466c1f173689d1a8.tar.gz ghdl-bf646039f586db4ef199d6ed466c1f173689d1a8.tar.bz2 ghdl-bf646039f586db4ef199d6ed466c1f173689d1a8.zip | |
netlits: Use Remove_Instance instead of Free_Instance.
Diffstat (limited to 'src/synth/netlists-cleanup.adb')
| -rw-r--r-- | src/synth/netlists-cleanup.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/netlists-cleanup.adb b/src/synth/netlists-cleanup.adb index c24a89031..2c7045437 100644 --- a/src/synth/netlists-cleanup.adb +++ b/src/synth/netlists-cleanup.adb @@ -173,6 +173,7 @@ package body Netlists.Cleanup is procedure Mark_And_Sweep (M : Module) is use Netlists.Gates; + -- Table of new gates to be inspected. Inspect : Instance_Tables.Instance; Inst : Instance; @@ -298,7 +299,8 @@ package body Netlists.Cleanup is Inst := First_Unused; exit when Inst = No_Instance; First_Unused := Get_Next_Instance (Inst); - + Set_Next_Instance (Inst, No_Instance); + Set_Prev_Instance (Inst, No_Instance); Free_Instance (Inst); end loop; end if; |