diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-02-15 08:42:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-02-15 08:44:02 +0100 |
| commit | c0bf4d10a71599b8d35ca13fd5a062fae6863c2b (patch) | |
| tree | a67a797d4692da95d186be0f38c769fd0f0c5dc3 /src/synth/netlists-utils.ads | |
| parent | 59b6bb2d77a9ecf08fbb4dee1a670388c3ccd32f (diff) | |
| download | ghdl-c0bf4d10a71599b8d35ca13fd5a062fae6863c2b.tar.gz ghdl-c0bf4d10a71599b8d35ca13fd5a062fae6863c2b.tar.bz2 ghdl-c0bf4d10a71599b8d35ca13fd5a062fae6863c2b.zip | |
synth: defer gates removal after at end of entity synthesis.
Diffstat (limited to 'src/synth/netlists-utils.ads')
| -rw-r--r-- | src/synth/netlists-utils.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/netlists-utils.ads b/src/synth/netlists-utils.ads index 60b8b7a7a..cdf474da2 100644 --- a/src/synth/netlists-utils.ads +++ b/src/synth/netlists-utils.ads @@ -41,4 +41,10 @@ package Netlists.Utils is -- Disconnect input I. If the driver of I has no output(s) connected, -- disconnect and free it. procedure Disconnect_And_Free (I : Input); + + -- Unlink all free instances of M. + procedure Remove_Free_Instances (M : Module); + + -- Unlink all unused instances of M. + procedure Remove_Unused_Instances (M : Module); end Netlists.Utils; |