From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-wm1-x335.google.com (mail-wm1-x335.google.com [IPv6:2a00:1450:4864:20::335]) by sourceware.org (Postfix) with ESMTPS id 1A899384AB64 for ; Tue, 7 May 2024 08:00:35 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 1A899384AB64 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 1A899384AB64 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2a00:1450:4864:20::335 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1715068865; cv=none; b=txs1LFUD+0Ptt4idSwwkD5SnEBp7mToFPxtxhYjDucRzfXSrHQt9NIndKfFzS8kD0/p2tvFHKWi2wsZXj1Pt2CQNnpBckuTOIHfW/DVcwWiigxwZTu1829WXtVdvUThBdra4TXHP/FtABNvaVVHpOy5V5aomoQ4E/4lViOUJF1o= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1715068865; c=relaxed/simple; bh=nGt6Z9+ntyKtYH6A7KNTBA96QaygTTYNAD3Milwt/iA=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=UPNvPCRJA0Ye6/KRI9OHFs9P1lvH046BajhepusQChp4J8yTKqm+stEUzVueUVxL7tIy/TU1j8LxCeXal2HXHjRMOt3tgaKvRXiMDgi7SdmPRPgpL4iybgCg10SWngmFLnuoTusVezqjLOLNDotPvJXRdQfasWQkParda8abSRI= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-wm1-x335.google.com with SMTP id 5b1f17b1804b1-41b5e74fa2fso23363425e9.1 for ; Tue, 07 May 2024 01:00:35 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; t=1715068834; x=1715673634; darn=gcc.gnu.org; h=content-transfer-encoding:mime-version:message-id:date:subject:cc :to:from:from:to:cc:subject:date:message-id:reply-to; bh=2fyT+x8z6LlLL/vTVvI1Z4vpaB79FcL9yJlwft7oSG8=; b=EO1pJtWLafRjHAMQuZVOIGOZcZskpTvZTP6V6K+OMETxvLFG183EvAOl/2aYrmYuxI mrAYr1fOt/b7emvI8vIpoILv3sbN8vQAzBG5KhIDORWMS1SfgTyEuA46M5H11erexd+u Hufmeb/wKbZa8rTp/BxPwXAqFrooIMExwGSM2k2BxeYD4wZBM/IzsmBTPLS/bwdlMLJE tj6M/+XIMbnaZ2QMREtjXzMCa06A18JL4/1IUyoYCDq7sKqRnczmDJfUmDZJimEnrJBL KLty0J/2a8X6Qb+zyjW07gi8NiUB/YyaGOl5oXop77E+gpZB5j1fv1j8q6cjdJcA3UXz KpRA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1715068834; x=1715673634; h=content-transfer-encoding:mime-version:message-id:date:subject:cc :to:from:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=2fyT+x8z6LlLL/vTVvI1Z4vpaB79FcL9yJlwft7oSG8=; b=OoqluuYn9xHtebVoqsxQ3SXa56Af7u3HlucqyNKgaDdABz+8qIQCRryYnUeG5gDQkq OqrG1NJtrkVVIR3QPc0oewFhr3tbiZVV/KnOcq5cq4vifyGtsscYkV7TkUPumH4SdYAF 7ZAwYNT+QNOoLwA6J1UjhPgIYAZIBf44ZhHM2Rza8rsB6p2F2rDZq/EMoOZi1yaojOD5 7bsUqVacsKLvjIQ8668WhVS19vLbKY59ZgPoMWN7Mqvi+N6vGeGZhEvF61NRib/pynWO r+apv2/F5xdvHk1q0Y01/j6MuJho+EgoVwAyVlFZcoVgtHieCKwuwTg89nG6IwRClXgA cuZQ== X-Gm-Message-State: AOJu0YyFZ0RnvuWfcxko//teRTetG3TqOpcXCyF9QGnEkOPLFHAPAxaY g2YfnVAmpMXp5Y5sQ+YJ1jsy6Qwf/Bd9k4ALFMIbsw3QR1HVcilVr7SimB1NDOp7kNv6JMhBBu0 = X-Google-Smtp-Source: AGHT+IGVKYeZWU9m/3RbiNmD9bcaRv2hmqaZkGNHjagL3fCclWXq79mTbCyEKcgyJWNakpGTawxr/Q== X-Received: by 2002:a05:600c:5117:b0:41a:be63:afbc with SMTP id o23-20020a05600c511700b0041abe63afbcmr8900067wms.28.1715068834370; Tue, 07 May 2024 01:00:34 -0700 (PDT) Received: from localhost.localdomain ([2001:861:3382:1a90:11a6:1c9d:5099:b1e8]) by smtp.gmail.com with ESMTPSA id j12-20020a05600c190c00b0041c120dd345sm18688717wmq.21.2024.05.07.01.00.33 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 07 May 2024 01:00:34 -0700 (PDT) From: =?UTF-8?q?Marc=20Poulhi=C3=A8s?= To: gcc-patches@gcc.gnu.org Cc: Piotr Trojanek Subject: [COMMITTED] ada: Simplify detection of the enclosing scope Date: Tue, 7 May 2024 10:00:33 +0200 Message-ID: <20240507080033.37876-1-poulhies@adacore.com> X-Mailer: git-send-email 2.43.2 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-13.8 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; behaviour is unaffected. gcc/ada/ * sem_attr.adb (Analyze_Access_Attribute): Replace loop with Current_Scope_No_Loops. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/sem_attr.adb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 6140cc0c0d6..e80a144ebb2 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -988,10 +988,7 @@ package body Sem_Attr is -- expanded into a loop. Locate scope of type definition, -- if any. - Scop := Current_Scope; - while Ekind (Scop) = E_Loop loop - Scop := Scope (Scop); - end loop; + Scop := Current_Scope_No_Loops; -- OK if we are within the scope of a limited type -- let's mark the component as having per object constraint -- 2.43.2