vhdl-parse: Add Has_Is for block_statement.

3 files changed, 7 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads
index 380a8a599..2365a7543 100644
--- a/src/vhdl/vhdl-nodes.ads
+++ b/src/vhdl/vhdl-nodes.ads
@@ -2977,6 +2977,8 @@ package Vhdl.Nodes is
    --
    --   Get/Set_Is_Within_Flag (Flag5)
    --
+   --   Get/Set_Has_Is (Flag7)
+   --
    --   Get/Set_End_Has_Reserved_Id (Flag8)
    --
    --   Get/Set_End_Has_Identifier (Flag9)
diff --git a/src/vhdl/vhdl-nodes_meta.adb b/src/vhdl/vhdl-nodes_meta.adb
index e0b3ea11e..eb4792ecd 100644
--- a/src/vhdl/vhdl-nodes_meta.adb
+++ b/src/vhdl/vhdl-nodes_meta.adb
@@ -3809,6 +3809,7 @@ package body Vhdl.Nodes_Meta is
       Field_Label,
       Field_Visible_Flag,
       Field_Is_Within_Flag,
+      Field_Has_Is,
       Field_End_Has_Reserved_Id,
       Field_End_Has_Identifier,
       Field_Parent,
@@ -10506,7 +10507,8 @@ package body Vhdl.Nodes_Meta is
       case K is
          when Iir_Kind_Component_Declaration
            | Iir_Kind_Sensitized_Process_Statement
-           | Iir_Kind_Process_Statement =>
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Block_Statement =>
             return True;
          when others =>
             return False;
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index 273d8828b..33a54a0ef 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -7875,6 +7875,8 @@ package body Vhdl.Parse is
             Error_Msg_Parse ("'is' not allowed here in vhdl87");
          end if;
 
+         Set_Has_Is (Res, True);
+
          --  Eat 'is'.
          Scan;
       end if;