From 1ab9541bf8b6a08a44f6202a80f42c14a988e4bc Mon Sep 17 00:00:00 2001
From: Ed Schonberg <schonberg@adacore.com>
Date: Wed, 12 Sep 2007 13:58:40 +0200
Subject: [PATCH] sem_aggr.adb (Resolve_Record_Aggregate): An others
association with a box need not correspond to any component.
2007-09-12 Ed Schonberg <schonberg@adacore.com>
* sem_aggr.adb (Resolve_Record_Aggregate): An others association with
a box need not correspond to any component.
From-SVN: r128427
---
gcc/ada/sem_aggr.adb | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 6c52b9f763b4..55385e4c16d3 100644
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -2665,6 +2665,13 @@ package body Sem_Aggr is
Error_Msg_N ("OTHERS must appear last in an aggregate",
Selector_Name);
return;
+
+ -- (Ada2005): If this is an association with a box,
+ -- indicate that the association need not represent
+ -- any component.
+
+ elsif Box_Present (Assoc) then
+ Others_Box := True;
end if;
else
--
GitLab