From a4754febc694fd9836fd73050016175c4de92860 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 15 Sep 2019 07:08:18 +0200
Subject: synth: minor refactoring about const gates.

---
 src/synth/netlists-utils.adb | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'src/synth/netlists-utils.adb')

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
-- 
cgit v1.2.3