summaryrefslogtreecommitdiff
path: root/gcc/ada/lib-load.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/lib-load.adb')
-rw-r--r--gcc/ada/lib-load.adb20
1 files changed, 19 insertions, 1 deletions
diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb
index b1f18d5f41e..a8d4250cc22 100644
--- a/gcc/ada/lib-load.adb
+++ b/gcc/ada/lib-load.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.86 $
+-- $Revision$
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
@@ -36,12 +36,14 @@ with Nlists; use Nlists;
with Nmake; use Nmake;
with Opt; use Opt;
with Osint; use Osint;
+with Osint.C; use Osint.C;
with Output; use Output;
with Par;
with Scn; use Scn;
with Sinfo; use Sinfo;
with Sinput; use Sinput;
with Sinput.L; use Sinput.L;
+with Targparm; use Targparm;
with Tbuild; use Tbuild;
with Uname; use Uname;
@@ -241,9 +243,25 @@ package body Lib.Load is
-- to inline stuff from it. If this is not the case, an error
-- message will be issued in Rtsfind in any case.
+ ------------------------------
+ -- Set_Load_Unit_Dependency --
+ ------------------------------
+
procedure Set_Load_Unit_Dependency (U : Unit_Number_Type) is
begin
+ -- Differentiate between pragma No_Run_Time (that can be used
+ -- with a standard installation), and HI-E mode which comes
+ -- with a special installation.
+ --
+ -- For No_Run_Time mode, we do not want to create a dependency
+ -- since the binder would generate references to these units.
+ -- In the case of HI-E, a special run time is provided that do
+ -- not have any elaboration, so it is safe (and useful) to add
+ -- the dependency. In particular, this allows the user to
+ -- recompile run time units, e.g GNAT.IO.
+
if No_Run_Time
+ and then not High_Integrity_Mode_On_Target
and then Is_Internal_File_Name (Unit_File_Name (U))
then
null;