From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 10 May 2021 21:25:45 +0000 (+0200)
Subject: Remove obsolete comment and add missing header
X-Git-Tag: upstream/12.2.0~8001
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a1b10eec36aa7aa32757fcdde3b53865d383399c;p=platform%2Fupstream%2Fgcc.git

Remove obsolete comment and add missing header

gcc/ada/
	* atree.adb (Zero_Slots): Remove obsolete comment and add header.
---

diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb
index 1e6aa93..f1969d2 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