diff options
| author | Tristan Gingold | 2014-12-14 12:36:43 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-12-14 12:36:43 +0100 |
| commit | 51f657fde8d771ca5c4002ca70ad5175c6ef3cdf (patch) | |
| tree | f5487dafd4682425ec2af9947fcac279153fc3ac /src/vhdl/iirs.adb.in | |
| parent | df03d4120b0689b30dc4f629407d96b45b0db5a4 (diff) | |
| download | ghdl-51f657fde8d771ca5c4002ca70ad5175c6ef3cdf.tar.gz ghdl-51f657fde8d771ca5c4002ca70ad5175c6ef3cdf.tar.bz2 ghdl-51f657fde8d771ca5c4002ca70ad5175c6ef3cdf.zip | |
iirs: reduce size of signal_declaration.
Diffstat (limited to 'src/vhdl/iirs.adb.in')
| -rw-r--r-- | src/vhdl/iirs.adb.in | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/iirs.adb.in b/src/vhdl/iirs.adb.in index b44eb4f..d8e8bc0 100644 --- a/src/vhdl/iirs.adb.in +++ b/src/vhdl/iirs.adb.in @@ -208,6 +208,11 @@ package body Iirs is function Iir_Delay_Mechanism_To_Boolean is new Ada.Unchecked_Conversion (Source => Iir_Delay_Mechanism, Target => Boolean); + function Boolean_To_Iir_Signal_Kind is new Ada.Unchecked_Conversion + (Source => Boolean, Target => Iir_Signal_Kind); + function Iir_Signal_Kind_To_Boolean is new Ada.Unchecked_Conversion + (Source => Iir_Signal_Kind, Target => Boolean); + function Iir_To_String_Id is new Ada.Unchecked_Conversion (Source => Iir, Target => String_Id); function String_Id_To_Iir is new Ada.Unchecked_Conversion |