diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-29 06:55:52 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-29 06:55:52 +0200 |
commit | 698c668481e9ca77234317bca7047efd8210c24c (patch) | |
tree | 2853048fbd75630e90eb2f350ee19aa0517060ba /src/synth/types_utils.ads | |
parent | c794aaa2a7dbec514d188c28f75da181a5692992 (diff) | |
download | ghdl-698c668481e9ca77234317bca7047efd8210c24c.tar.gz ghdl-698c668481e9ca77234317bca7047efd8210c24c.tar.bz2 ghdl-698c668481e9ca77234317bca7047efd8210c24c.zip |
synth: add support for record types.
(WIP: need to fix regression of stmt01).
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 27245e7d5..d89d9e58a 100644 --- a/src/synth/types_utils.ads +++ b/src/synth/types_utils.ads @@ -26,4 +26,7 @@ package Types_Utils is function To_Uns32 is new Ada.Unchecked_Conversion (Int32, Uns32); + + function To_Uns64 is new Ada.Unchecked_Conversion + (Int64, Uns64); end Types_Utils; |