diff options
| -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 |