diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-05-10 23:25:45 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-05-10 23:25:45 +0200 |
| commit | a1b10eec36aa7aa32757fcdde3b53865d383399c (patch) | |
| tree | 36266e63c7b6f38427974a276a0f77eae829aa57 | |
| parent | 1d214ea552a4986a10819816610069041bde1821 (diff) | |
| download | gcc-a1b10eec36aa7aa32757fcdde3b53865d383399c.zip gcc-a1b10eec36aa7aa32757fcdde3b53865d383399c.tar.gz gcc-a1b10eec36aa7aa32757fcdde3b53865d383399c.tar.bz2 | |
Remove obsolete comment and add missing header
gcc/ada/
* atree.adb (Zero_Slots): Remove obsolete comment and add header.
| -rw-r--r-- | gcc/ada/atree.adb | 7 |
1 files changed, 4 insertions, 3 deletions
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 |