From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-wm1-x331.google.com (mail-wm1-x331.google.com [IPv6:2a00:1450:4864:20::331]) by sourceware.org (Postfix) with ESMTPS id 3D4CD3858C32 for ; Mon, 20 May 2024 07:49:25 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 3D4CD3858C32 Authentication-Results: sourceware.org; dmarc=pass (p=quarantine dis=none) header.from=adacore.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=adacore.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 3D4CD3858C32 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2a00:1450:4864:20::331 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1716191368; cv=none; b=Wr3AL0c/tZP0AdCNlwq58JbeTeCTrHrkIjYLjx7k0nxywiYOE1ZvDTTkNIHC3fS6zm6L28lXr960nw0hGQ4uMdwvHSqckwur9h6yUGwfbX2WhRpr++C4WnE48/Wpw0rpF/FjvTRYwQRxQVOHJikifdPy+hReCqRheq/h6DeEOt8= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1716191368; c=relaxed/simple; bh=Jm9wyELwx88/su3YTcj8RSpbUCZzMn7m2jNe6i8hkhE=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=C7gpsgD0TV38cuPb1NPLYIxt97ECiyiWqBGuqpPAzKu5s8OeZbPTld6sFWnM1QmUzYzOmMsW3h1A9kcD2FYgdMdzDlLReXW/5IwRCToixE31bktEfZHbe2Ux41LPdo4tJ4N3p6ZutlOCAtZFAfmAZfh2F86xLrsIPU8XEnGvF3E= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-wm1-x331.google.com with SMTP id 5b1f17b1804b1-420180b58c5so15839435e9.3 for ; Mon, 20 May 2024 00:49:25 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1716191364; x=1716796164; darn=gcc.gnu.org; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:from:to:cc:subject:date :message-id:reply-to; bh=x4A5VsY6FJ1T4QGYP8DpMnAViz4OLdhG7Ve0nVZMxeQ=; b=HfCv62fzjZ0fo/D/va6RoiNSZIdy3PaEi6o3gwuhSc9f+urWNijzjze1hyhJThmbpS qHMDEJEU19D24JJCjiD57uw7ytTNJcLXRsLQPFxsLVYy2fvOg41GpnhNSf/Z1A8DH15W SNkEmTd/AX7c5dQHZbT92SC2lN0+eFPUfdFBq76E8tfLPF03N/dAiyL81KOwnnIdru8/ Qr88QCl8sMbbigkvntD9OmKBejdPeUyhZSmcS7fIFhY+P7oR3aBx6hq4eK+LFKkPFTbA I1UOPq/IO7gQjjmnx7BEdkNWIySmWftqefIvv5G6X9d9MmxvrvuygBU0K0L2Iahd6z52 7jEg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1716191364; x=1716796164; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=x4A5VsY6FJ1T4QGYP8DpMnAViz4OLdhG7Ve0nVZMxeQ=; b=UIUZJY823gSY+9Zl27a6WhagDUtcVn4NAkDdqc47Xm+4ftKBKvjydRMNyDFUpCehHx ue14wOoW3EErKXg6D6G8Q31/q2uA5He0fydagCgDmO/db1g/+BZmncvpuuC6DmwjrCjs Uj1toKQ/eiOXWol9U22EArDfL6iON0nwV1pR/eTSfn3UJgktbAjlhOlDgWAFC62QAB5s +iHfdOB1vB8C/eZsGhVJ6DnD1OpCcWqKOGfxaM4hqU5/ho08lb/AgJ6bwQQa/89sRIZJ JrO4np2Q2tLvus3vI1qdhRCZiAFXEuG6dvfxkpvYOgunNjEOwKjkDW4db03f6SdlOYBi GTFw== X-Gm-Message-State: AOJu0YzxAFhu1ukJTgvQO+vVG8GRbBDlRCr7jQq+daj8SIgnQCIKyWzh /5nxIs6hD7BpjjikCdHrCKG1S0nGhYJBhkcayPIN1JCneQKz9MRvwH7XCic2aeREbK9Y/ZdTzuc = X-Google-Smtp-Source: AGHT+IFfxDJ2jfsezo5JOktZbdo2gOHIZ7lsWYtFwvl7gShYcrr3y8q5AfFjUUCIA8hbIRcIAuv9OQ== X-Received: by 2002:a05:600c:1f83:b0:41c:190:2ba9 with SMTP id 5b1f17b1804b1-41feac55162mr260981605e9.31.1716191364008; Mon, 20 May 2024 00:49:24 -0700 (PDT) Received: from poulhies-Precision-5550.lan ([2001:861:3382:1a90:de37:8b1c:1f33:2610]) by smtp.gmail.com with ESMTPSA id 5b1f17b1804b1-41f88111033sm446892175e9.34.2024.05.20.00.49.23 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Mon, 20 May 2024 00:49:23 -0700 (PDT) From: =?UTF-8?q?Marc=20Poulhi=C3=A8s?= To: gcc-patches@gcc.gnu.org Cc: Piotr Trojanek Subject: [COMMITTED 16/30] ada: Use discrete choice list in declaration of universal type attributes Date: Mon, 20 May 2024 09:48:42 +0200 Message-ID: <20240520074858.222435-16-poulhies@adacore.com> X-Mailer: git-send-email 2.43.2 In-Reply-To: <20240520074858.222435-1-poulhies@adacore.com> References: <20240520074858.222435-1-poulhies@adacore.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-13.9 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,GIT_PATCH_0,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: From: Piotr Trojanek Code cleanup. gcc/ada/ * sem_attr.ads (Universal_Type_Attribute): Simplify using array aggregate syntax with discrete choice list. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_attr.ads | 62 ++++++++++++++++++++++---------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/gcc/ada/sem_attr.ads b/gcc/ada/sem_attr.ads index d18bd5b0667..40ec423c4c7 100644 --- a/gcc/ada/sem_attr.ads +++ b/gcc/ada/sem_attr.ads @@ -615,37 +615,37 @@ package Sem_Attr is -- universal type. Universal_Type_Attribute : constant array (Attribute_Id) of Boolean := - (Attribute_Aft => True, - Attribute_Alignment => True, - Attribute_Component_Size => True, - Attribute_Count => True, - Attribute_Delta => True, - Attribute_Digits => True, - Attribute_Exponent => True, - Attribute_First_Bit => True, - Attribute_Fore => True, - Attribute_Last_Bit => True, - Attribute_Length => True, - Attribute_Machine_Emax => True, - Attribute_Machine_Emin => True, - Attribute_Machine_Mantissa => True, - Attribute_Machine_Radix => True, - Attribute_Max_Alignment_For_Allocation => True, - Attribute_Max_Size_In_Storage_Elements => True, - Attribute_Model_Emin => True, - Attribute_Model_Epsilon => True, - Attribute_Model_Mantissa => True, - Attribute_Model_Small => True, - Attribute_Modulus => True, - Attribute_Pos => True, - Attribute_Position => True, - Attribute_Safe_First => True, - Attribute_Safe_Last => True, - Attribute_Scale => True, - Attribute_Size => True, - Attribute_Small => True, - Attribute_Wide_Wide_Width => True, - Attribute_Wide_Width => True, + (Attribute_Aft | + Attribute_Alignment | + Attribute_Component_Size | + Attribute_Count | + Attribute_Delta | + Attribute_Digits | + Attribute_Exponent | + Attribute_First_Bit | + Attribute_Fore | + Attribute_Last_Bit | + Attribute_Length | + Attribute_Machine_Emax | + Attribute_Machine_Emin | + Attribute_Machine_Mantissa | + Attribute_Machine_Radix | + Attribute_Max_Alignment_For_Allocation | + Attribute_Max_Size_In_Storage_Elements | + Attribute_Model_Emin | + Attribute_Model_Epsilon | + Attribute_Model_Mantissa | + Attribute_Model_Small | + Attribute_Modulus | + Attribute_Pos | + Attribute_Position | + Attribute_Safe_First | + Attribute_Safe_Last | + Attribute_Scale | + Attribute_Size | + Attribute_Small | + Attribute_Wide_Wide_Width | + Attribute_Wide_Width | Attribute_Width => True, others => False); -- 2.43.2