From: Bob Duff <duff@adacore.com>
Date: Fri, 10 Dec 2021 18:21:38 +0000 (-0500)
Subject: [Ada] Small cleanup of osint-m.adb
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9ceb18d4a28e416cd5d85cbc66427258fcfa9180;p=test_jj.git

[Ada] Small cleanup of osint-m.adb

gcc/ada/

	* osint-m.adb: Remove with_clause and pragma.
---

diff --git a/gcc/ada/osint-m.adb b/gcc/ada/osint-m.adb
index 35f67f9..8eeaddd 100644
--- a/gcc/ada/osint-m.adb
+++ b/gcc/ada/osint-m.adb
@@ -23,17 +23,6 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with Osint;
-
-pragma Elaborate_All (Osint);
---  This pragma is needed because of the call to Set_Program in the
---  elaboration of the package. We cannot rely on the static model
---  of elaboration since the compiler is routinely compiled with
---  checks off (-gnatp), and with older versions of the compiler
---  (up to and including most 5.04 wavefronts), -gnatp suppresses
---  the static elaboration check mechanisms. It could be removed
---  one day, but there really is no need to do so.
-
 package body Osint.M is
 
    -----------------------