diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-12-03 07:53:54 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-12-03 07:53:54 +0100 |
commit | d6b2b4441e2db58cba4a104b4e7873c70ffdfda6 (patch) | |
tree | 8cba8dc22506b1398f496138c4692f0bc992e76c /src/synth/types_utils.ads | |
parent | d3f43030f21cc5a983bf23697d7c5c311e45f9b1 (diff) | |
download | ghdl-d6b2b4441e2db58cba4a104b4e7873c70ffdfda6.tar.gz ghdl-d6b2b4441e2db58cba4a104b4e7873c70ffdfda6.tar.bz2 ghdl-d6b2b4441e2db58cba4a104b4e7873c70ffdfda6.zip |
synth: create unique instance name. Fix #1007
Diffstat (limited to 'src/synth/types_utils.ads')
-rw-r--r-- | src/synth/types_utils.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/types_utils.ads b/src/synth/types_utils.ads index 4e01d89fc..71bdf5399 100644 --- a/src/synth/types_utils.ads +++ b/src/synth/types_utils.ads @@ -32,4 +32,7 @@ package Types_Utils is function To_Int64 is new Ada.Unchecked_Conversion (Uns64, Int64); + + function To_Uns64 is new Ada.Unchecked_Conversion + (Fp64, Uns64); end Types_Utils; |