diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-01 18:19:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-01 18:20:50 +0200 |
| commit | 5e0504706780c0a803382b2722f30ef790d106b3 (patch) | |
| tree | cb1157461fe659081f417234124b1780fc05f653 /src/synth/synth-expr.adb | |
| parent | fa2d17a019c850e7d8d29783a0303850f5f0fee5 (diff) | |
| download | ghdl-5e0504706780c0a803382b2722f30ef790d106b3.tar.gz ghdl-5e0504706780c0a803382b2722f30ef790d106b3.tar.bz2 ghdl-5e0504706780c0a803382b2722f30ef790d106b3.zip | |
synth: add types_utils package.
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index f48d881e8..0c7b636b4 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -20,6 +20,7 @@ with Ada.Unchecked_Conversion; with Ada.Unchecked_Deallocation; +with Types_Utils; use Types_Utils; with Std_Names; with Str_Table; with Vhdl.Ieee.Std_Logic_1164; @@ -943,9 +944,6 @@ package body Synth.Expr is end case; end Is_Const; - function To_Int32 is new Ada.Unchecked_Conversion - (Uns32, Int32); - function Get_Const (N : Net) return Int32 is Inst : constant Instance := Get_Parent (N); |