diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-15 07:08:18 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-15 07:08:18 +0200 |
| commit | a4754febc694fd9836fd73050016175c4de92860 (patch) | |
| tree | 3eaf42bd66ad600fe774200e7c650d5edf9d42af /src/synth/netlists-utils.adb | |
| parent | 251587405f6f760f069f1a3624296b7cb933b38e (diff) | |
| download | ghdl-a4754febc694fd9836fd73050016175c4de92860.tar.gz ghdl-a4754febc694fd9836fd73050016175c4de92860.tar.bz2 ghdl-a4754febc694fd9836fd73050016175c4de92860.zip | |
synth: minor refactoring about const gates.
Diffstat (limited to 'src/synth/netlists-utils.adb')
| -rw-r--r-- | src/synth/netlists-utils.adb | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/synth/netlists-utils.adb b/src/synth/netlists-utils.adb index 43da83719..20aca706a 100644 --- a/src/synth/netlists-utils.adb +++ b/src/synth/netlists-utils.adb @@ -96,16 +96,22 @@ package body Netlists.Utils is return Get_Driver (Get_Input (Inst, Idx)); end Get_Input_Net; - function Is_Const (Id : Module_Id) return Boolean is + function Is_Const_Module (Id : Module_Id) return Boolean is begin case Id is when Id_Const_UB32 - | Id_Const_UL32 => + | Id_Const_SB32 + | Id_Const_UL32 + | Id_Const_X + | Id_Const_Z + | Id_Const_0 + | Id_Const_Bit + | Id_Const_Log => return True; when others => return False; end case; - end Is_Const; + end Is_Const_Module; function Is_Connected (O : Net) return Boolean is begin |