diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-12-26 07:14:25 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-12-26 07:14:25 +0100 |
| commit | 8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d (patch) | |
| tree | cf14414d9b18d8bb8ec59ac6b89ef8ebc3e28933 /src/vhdl/vhdl-nodes.ads | |
| parent | a24642ace5f43509c40b5a94927a1cff865f2ece (diff) | |
| download | ghdl-8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d.tar.gz ghdl-8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d.tar.bz2 ghdl-8a5fe99b279b1ce1ea7fe4313a24d0f3a399149d.zip | |
vhdl: add Has_Delay_Machanism for optional 'inertial' printing.
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 688c30555..3c3ef8241 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -2848,6 +2848,8 @@ package Vhdl.Nodes is -- -- Get/Set_Delay_Mechanism (Flag1) -- + -- Get/Set_Has_Delay_Mechanism (Flag2) + -- -- Get/Set_Postponed_Flag (Flag3) -- -- Get/Set_Visible_Flag (Flag4) @@ -3388,6 +3390,8 @@ package Vhdl.Nodes is -- -- Get/Set_Delay_Mechanism (Flag1) -- + -- Get/Set_Has_Delay_Mechanism (Flag2) + -- -- Get/Set_Visible_Flag (Flag4) -- -- True if the target of the assignment is guarded @@ -7870,6 +7874,13 @@ package Vhdl.Nodes is function Get_Has_Class (Decl : Iir) return Boolean; procedure Set_Has_Class (Decl : Iir; Flag : Boolean); + -- Layout flag for signal assignment. If True, the delay mechanism is + -- present. This is obviously true for transport or inertial with reject, + -- but the simple 'inertial' is optional. + -- Field: Flag2 + function Get_Has_Delay_Mechanism (Stmt : Iir) return Boolean; + procedure Set_Has_Delay_Mechanism (Stmt : Iir; Flag : Boolean); + -- Set on wait, procedure call and composite statements when there is a -- sub-statement that can suspend a procedure or a process. Also set -- on procedure declaration. Note that the flag is conservative: it must |