aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sinfo.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/sinfo.ads')
-rw-r--r--gcc/ada/sinfo.ads15
1 files changed, 0 insertions, 15 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index c6e04e7..ae29661 100644
--- a/gcc/ada/sinfo.ads
+++ b/gcc/ada/sinfo.ads
@@ -2504,12 +2504,6 @@ package Sinfo is
-- Original_Node here because of the case of nested instantiations where
-- the substituted node can be copied.
- -- Withed_Body (Node1-Sem)
- -- Present in N_With_Clause nodes. Set if the unit in whose context
- -- the with_clause appears instantiates a generic contained in the
- -- library unit of the with_clause and as a result loads its body.
- -- Used for a more precise unit traversal for CodePeer.
-
--------------------------------------------------
-- Note on Use of End_Label and End_Span Fields --
--------------------------------------------------
@@ -6743,7 +6737,6 @@ package Sinfo is
-- N_With_Clause
-- Sloc points to first token of library unit name
- -- Withed_Body (Node1-Sem)
-- Name (Node2)
-- Private_Present (Flag15) set if with_clause has private keyword
-- Limited_Present (Flag17) set if LIMITED is present
@@ -10307,9 +10300,6 @@ package Sinfo is
function Was_Originally_Stub
(N : Node_Id) return Boolean; -- Flag13
- function Withed_Body
- (N : Node_Id) return Node_Id; -- Node1
-
-- End functions (note used by xsinfo utility program to end processing)
----------------------------
@@ -11408,9 +11398,6 @@ package Sinfo is
procedure Set_Was_Originally_Stub
(N : Node_Id; Val : Boolean := True); -- Flag13
- procedure Set_Withed_Body
- (N : Node_Id; Val : Node_Id); -- Node1
-
-------------------------
-- Iterator Procedures --
-------------------------
@@ -13613,7 +13600,6 @@ package Sinfo is
pragma Inline (Was_Attribute_Reference);
pragma Inline (Was_Expression_Function);
pragma Inline (Was_Originally_Stub);
- pragma Inline (Withed_Body);
pragma Inline (Set_Abort_Present);
pragma Inline (Set_Abortable_Part);
@@ -13975,6 +13961,5 @@ package Sinfo is
pragma Inline (Set_Was_Attribute_Reference);
pragma Inline (Set_Was_Expression_Function);
pragma Inline (Set_Was_Originally_Stub);
- pragma Inline (Set_Withed_Body);
end Sinfo;