diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-12-13 17:10:02 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-12-13 17:10:02 +0100 |
| commit | 7b8fae820dc02d90e4739ebaf67754bcbbb4dd9c (patch) | |
| tree | 8b8cc16649fd4e96e0ff03700fccd2e7f606d9c9 /src/vhdl/iirs.adb.in | |
| parent | 0c655ec98435f5d9bdfb51cab215002d794c263f (diff) | |
| download | ghdl-7b8fae820dc02d90e4739ebaf67754bcbbb4dd9c.tar.gz ghdl-7b8fae820dc02d90e4739ebaf67754bcbbb4dd9c.tar.bz2 ghdl-7b8fae820dc02d90e4739ebaf67754bcbbb4dd9c.zip | |
iirs: move delay_mechanism to flag1; adjust xtools/pnodes.py for new sources.
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 04511bb67..b44eb4f0c 100644 --- a/src/vhdl/iirs.adb.in +++ b/src/vhdl/iirs.adb.in @@ -203,6 +203,11 @@ package body Iirs is return Iir (L); end Location_Type_To_Iir; + function Boolean_To_Iir_Delay_Mechanism is new Ada.Unchecked_Conversion + (Source => Boolean, Target => Iir_Delay_Mechanism); + function Iir_Delay_Mechanism_To_Boolean is new Ada.Unchecked_Conversion + (Source => Iir_Delay_Mechanism, 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 |