diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-10 18:44:13 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-10 18:44:13 +0200 |
commit | 1f333abb370b3cbf8809d2949eb33deccd97b076 (patch) | |
tree | 9e58358173b65faedc8bbfac28b5cbcadd1f6854 /src/synth/netlists-internings.ads | |
parent | 51331309cd16699ee5770e522d5e1e2b9430d1b4 (diff) | |
download | ghdl-1f333abb370b3cbf8809d2949eb33deccd97b076.tar.gz ghdl-1f333abb370b3cbf8809d2949eb33deccd97b076.tar.bz2 ghdl-1f333abb370b3cbf8809d2949eb33deccd97b076.zip |
netlists: add internings child package.
Diffstat (limited to 'src/synth/netlists-internings.ads')
-rw-r--r-- | src/synth/netlists-internings.ads | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/src/synth/netlists-internings.ads b/src/synth/netlists-internings.ads new file mode 100644 index 000000000..4fcc87d56 --- /dev/null +++ b/src/synth/netlists-internings.ads @@ -0,0 +1,32 @@ +-- Simple interning for netlist elements. +-- Copyright (C) 2019 Tristan Gingold +-- +-- This file is part of GHDL. +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program; if not, write to the Free Software +-- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, +-- MA 02110-1301, USA. + +with Dyn_Interning; + +package Netlists.Internings is + function Id_Instance (Param : Instance) return Instance; + + package Dyn_Instance_Interning is new Dyn_Interning + (Params_Type => Instance, + Object_Type => Instance, + Hash => Netlists.Hash, + Build => Id_Instance, + Equal => "="); +end Netlists.Internings; |