Message ID | 20240516092606.41242-23-poulhies@adacore.com |
---|---|
State | New |
Headers | show
Return-Path: <gcc-patches-bounces+incoming=patchwork.ozlabs.org@gcc.gnu.org> X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@legolas.ozlabs.org Authentication-Results: legolas.ozlabs.org; dkim=pass (2048-bit key; secure) header.d=adacore.com header.i=@adacore.com header.a=rsa-sha256 header.s=google header.b=NXGip/R5; dkim-atps=neutral Authentication-Results: legolas.ozlabs.org; spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org (client-ip=8.43.85.97; helo=server2.sourceware.org; envelope-from=gcc-patches-bounces+incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=patchwork.ozlabs.org) Received: from server2.sourceware.org (server2.sourceware.org [8.43.85.97]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (secp384r1) server-digest SHA384) (No client certificate requested) by legolas.ozlabs.org (Postfix) with ESMTPS id 4Vg4ZF0wBnz20KF for <incoming@patchwork.ozlabs.org>; Thu, 16 May 2024 19:30:13 +1000 (AEST) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 62C4D3844764 for <incoming@patchwork.ozlabs.org>; Thu, 16 May 2024 09:30:11 +0000 (GMT) X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org 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 7A3803846078 for <gcc-patches@gcc.gnu.org>; Thu, 16 May 2024 09:26:27 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 7A3803846078 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 7A3803846078 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=1715851595; cv=none; b=XeR2a0Wtk8+NUbEsFULsl37o59JxX+JwnkhbDjui3wU0rvn54fztLkHL19sN2EpPrQgZtaSwKUo5erysFW9jyrITIfYcsomUldNlm17drT1Nkh+XZP9FKXYPn/exYqAaDnb6zZ2t02OGb2iqtePdGvclismYke5NjxQr2HacTFQ= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1715851595; c=relaxed/simple; bh=qrPVD/0AFpAQYz5BsnY8sRqiB/GXDqVmA3FQWEiNvQs=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=ZnzdXPG3aDnaiFkrMJFSH0aFiHX82qxUIOptUDvGvZd0DUXCvlNnSyPQSeTuEx24f8u/29tnVP2wNLqFdnX0X0akcwZzjfyOHkj1ym+Bp5likjCxDOtCVvGPTpoYH9LpcwVPK6kjJQJschvFWlxqEYELpp1KFclsKsCd5VFZ8lk= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-wm1-x331.google.com with SMTP id 5b1f17b1804b1-4200ee78f34so38029935e9.3 for <gcc-patches@gcc.gnu.org>; Thu, 16 May 2024 02:26:27 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1715851586; x=1716456386; 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=TFVp5F1i3O5k7mt0PMUcoVfAN9X++KsIW7K7xTdkA68=; b=NXGip/R5XirAs5jXfpQVsdV6f6xOym3wdwFMU3jsLCDsIx4kg6DiLMCvaisl6ArlPo A9gQy+A8wsDppI3Lz8Toz+QRyryDRAXvymq3vCozjZ/fYdUVJ4fkVr6BwsbJWIbhiWNy 5fkAB334dWfj+FIwlFBSn4lQJnGRqXD+Fjk9uvcWZ9SnDauuN1M6sgnSSjh6Q4XBBTxX Gsn/cUEhDTst/Te3vs6TFBU70A1bHPHZqDjFUY4F37FsWZqN+CU2O9rqgtHxNQqgF2Lv tovlAv53O/7qP3ICIxmx6UAuYP7BPqg3y/n6S7mo6E0r2QZidUIjM/1MoPXFwbACuGAs ZbyA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1715851586; x=1716456386; 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=TFVp5F1i3O5k7mt0PMUcoVfAN9X++KsIW7K7xTdkA68=; b=pYUNXB9rnhfkfVkg1Yc2gLX48EG5D/6IdOSN3VLYjB0aedioU4cEUhqnMOMSSILT+n Cs/kOs3prRBLllQZjiG3j/V48MpiXxqjV2LnG5tau5F5jLasH9C5NMEq15yxMthXbkJK f4L1Y/WzpqLGXt2JH0Cr2BNaprevjlby4sEegQEuQNLvJmxV4eQM6mnDuwF3qo4qZg3Q O6EPLmMv9HQORjwRT5VgGj+crzr1gfwVVv+0fWV410WxU9OPY8Fvv8tmIyThJbXO5vPJ vYlvkCh9+eiawW/KQLkSPhT8Gn4QKE8kSxzDnNNgJWnxboEmwXIyv1DV6YJzBwDuWzHk pbzg== X-Gm-Message-State: AOJu0YyADgq/wUPCt7WbLNIC7cCTa6WDx/AvmklIb5IyVKHbhQyxIDct gPwbcbIPGPQUOce2b1+4rOH4WPXj1AGKw/Jlaw0oawyx/7qza/aHTvWsGWdEK41mmA2o19DkanU = X-Google-Smtp-Source: AGHT+IG5N+0II+JXxsG1FVRY3lMRJVlask1veXQgHK6H8Iw8OVCGpnFlitqku+QHFiVJcF+ejfiq4w== X-Received: by 2002:a05:600c:3ca0:b0:41e:ae29:c807 with SMTP id 5b1f17b1804b1-41feac59cbfmr119940515e9.29.1715851586242; Thu, 16 May 2024 02:26:26 -0700 (PDT) Received: from poulhies-Precision-5550.telnowedge.local (lmontsouris-659-1-24-67.w81-250.abo.wanadoo.fr. [81.250.175.67]) by smtp.gmail.com with ESMTPSA id 5b1f17b1804b1-41fd10cf8besm135802635e9.1.2024.05.16.02.26.25 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 16 May 2024 02:26:25 -0700 (PDT) From: =?utf-8?q?Marc_Poulhi=C3=A8s?= <poulhies@adacore.com> To: gcc-patches@gcc.gnu.org Cc: Piotr Trojanek <trojanek@adacore.com> Subject: [COMMITTED 23/35] ada: Improve recovery from illegal occurrence of 'Old in if_expression Date: Thu, 16 May 2024 11:25:52 +0200 Message-ID: <20240516092606.41242-23-poulhies@adacore.com> X-Mailer: git-send-email 2.43.2 In-Reply-To: <20240516092606.41242-1-poulhies@adacore.com> References: <20240516092606.41242-1-poulhies@adacore.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-13.7 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 X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gcc-patches mailing list <gcc-patches.gcc.gnu.org> List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-patches>, <mailto:gcc-patches-request@gcc.gnu.org?subject=unsubscribe> List-Archive: <https://gcc.gnu.org/pipermail/gcc-patches/> List-Post: <mailto:gcc-patches@gcc.gnu.org> List-Help: <mailto:gcc-patches-request@gcc.gnu.org?subject=help> List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-patches>, <mailto:gcc-patches-request@gcc.gnu.org?subject=subscribe> Errors-To: gcc-patches-bounces+incoming=patchwork.ozlabs.org@gcc.gnu.org |
Series |
[COMMITTED,01/35] ada: Fix docs and comments about pragmas for Boolean-valued aspects
|
expand
|
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index b4414a3f7ff..03364dade9f 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -2645,7 +2645,7 @@ package body Sem_Ch4 is ("\ELSE expression has}!", Else_Expr, Etype (Else_Expr)); end if; - else + elsif Present (Else_Expr) then if Is_Overloaded (Else_Expr) then Error_Msg_N ("no interpretation compatible with type of THEN expression",
From: Piotr Trojanek <trojanek@adacore.com> Fix assertion failure in developer builds which happened when the THEN expression contains an illegal occurrence of 'Old and the type of the THEN expression is left as Any_Type, but there is no ELSE expression. gcc/ada/ * sem_ch4.adb (Analyze_If_Expression): Add guard for if_expression without an ELSE part. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_ch4.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)