From 777f73f67f0f2d18f73dc223a2d941ece31d0c9e Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Wed, 23 Jul 2014 20:13:49 +0200
Subject: Add parenthesis_Expression, --reprint and --compare-tokens commands.

---
 nodes.ads | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'nodes.ads')

diff --git a/nodes.ads b/nodes.ads
index bec29a9..00ec1a7 100644
--- a/nodes.ads
+++ b/nodes.ads
@@ -62,6 +62,9 @@ package Nodes is
    --   Flag5 : Boolean
    --   Flag6 : Boolean
    --   Flag7 : Boolean
+   --   Flag8 : Boolean
+   --   Flag9 : Boolean
+   --   Flag10 : Boolean
    --   Nkind : Kind_Type
    --   State1 : Bit2_Type
    --   State2 : Bit2_Type
@@ -211,6 +214,21 @@ package Nodes is
    procedure Set_Flag7 (N : Node_Type; V : Boolean);
    pragma Inline (Set_Flag7);
 
+   function Get_Flag8 (N : Node_Type) return Boolean;
+   pragma Inline (Get_Flag8);
+   procedure Set_Flag8 (N : Node_Type; V : Boolean);
+   pragma Inline (Set_Flag8);
+
+   function Get_Flag9 (N : Node_Type) return Boolean;
+   pragma Inline (Get_Flag9);
+   procedure Set_Flag9 (N : Node_Type; V : Boolean);
+   pragma Inline (Set_Flag9);
+
+   function Get_Flag10 (N : Node_Type) return Boolean;
+   pragma Inline (Get_Flag10);
+   procedure Set_Flag10 (N : Node_Type; V : Boolean);
+   pragma Inline (Set_Flag10);
+
 
    function Get_State1 (N : Node_Type) return Bit2_Type;
    pragma Inline (Get_State1);
-- 
cgit