From a1b10eec36aa7aa32757fcdde3b53865d383399c Mon Sep 17 00:00:00 2001
From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 10 May 2021 23:25:45 +0200
Subject: [PATCH] Remove obsolete comment and add missing header
gcc/ada/
* atree.adb (Zero_Slots): Remove obsolete comment and add header.
---
gcc/ada/atree.adb | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 1e6aa93091ae..f1969d2ab9ad 100644
--- a/gcc/ada/atree.adb
+++ b/gcc/ada/atree.adb
@@ -2293,14 +2293,15 @@ package body Atree is
Locked := False;
end Unlock_Nodes;
+ ----------------
+ -- Zero_Slots --
+ ----------------
+
Zero : constant Slot := 0;
procedure Zero_Slots (F, L : Node_Offset) is
begin
Slots.Table (F .. L) := (others => Zero);
- -- Note that Zero.Field_Size is not stored, because Slot is an
- -- Unchecked_Union. Hopefully, the compiler can generate efficient code
- -- for this.
end Zero_Slots;
procedure Zero_Slots (N : Node_Or_Entity_Id) is
--
GitLab