From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 7871) id A8519385840A; Mon, 7 Nov 2022 08:38:26 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org A8519385840A DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1667810306; bh=glA9dFrVbwVfOP49nz9scVo+8Istb+g4wKwed17wS7E=; h=From:To:Subject:Date:From; b=E0i3oTH2KxNyvbuQ1kakFEwNIhXyQf0s+UdkOgD8kpesIcW8OeCMofpVqTofidQEd ypKwY24PbdMCaxZP9ziE1SXfAH1kkdKi45TftIGR9/HpJTvFKRf/Mr+DCZi25wkqTA kWktCgzCUUSCSrBCOsGf7FarLTOWqoXdpauK/QSw= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Marc Poulhi?s To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-3723] ada: Cleanup WITH clauses after switching from obsolescent Ada 83 unit X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: c7e9b5e2d5c7b0e57b127d5c6bb57d3b5bfb6ce1 X-Git-Newrev: f8b69d43875557a42feef5f595ec9f3a31e09317 Message-Id: <20221107083826.A8519385840A@sourceware.org> Date: Mon, 7 Nov 2022 08:38:26 +0000 (GMT) List-Id: https://gcc.gnu.org/g:f8b69d43875557a42feef5f595ec9f3a31e09317 commit r13-3723-gf8b69d43875557a42feef5f595ec9f3a31e09317 Author: Piotr Trojanek Date: Fri Sep 9 17:46:22 2022 +0200 ada: Cleanup WITH clauses after switching from obsolescent Ada 83 unit Cleanup after replacing Unchecked_Conversion with Ada.Unchecked_Conversion. gcc/ada/ * libgnarl/s-interr.adb: Reorder context items and pragmas. Diff: --- gcc/ada/libgnarl/s-interr.adb | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/gcc/ada/libgnarl/s-interr.adb b/gcc/ada/libgnarl/s-interr.adb index a3d28d6055c..94e572d482b 100644 --- a/gcc/ada/libgnarl/s-interr.adb +++ b/gcc/ada/libgnarl/s-interr.adb @@ -54,27 +54,22 @@ with Ada.Exceptions; with Ada.Task_Identification; +with Ada.Unchecked_Conversion; -with System.Task_Primitives; with System.Interrupt_Management; - with System.Interrupt_Management.Operations; -pragma Elaborate_All (System.Interrupt_Management.Operations); - with System.IO; - +with System.Parameters; +with System.Task_Primitives; with System.Task_Primitives.Operations; with System.Task_Primitives.Interrupt_Operations; with System.Storage_Elements; +with System.Tasking.Initialization; with System.Tasking.Utilities; - with System.Tasking.Rendezvous; -pragma Elaborate_All (System.Tasking.Rendezvous); - -with System.Tasking.Initialization; -with System.Parameters; -with Ada.Unchecked_Conversion; +pragma Elaborate_All (System.Interrupt_Management.Operations); +pragma Elaborate_All (System.Tasking.Rendezvous); package body System.Interrupts is