]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
ada: Fix missing warning for unused use clause with use clause for child package
authorEric Botcazou <ebotcazou@adacore.com>
Mon, 15 Dec 2025 09:48:05 +0000 (10:48 +0100)
committerMarc Poulhiès <dkm@gcc.gnu.org>
Fri, 9 Jan 2026 10:57:17 +0000 (11:57 +0100)
The -gnatwu switch does not give any warning for a unused use clause when a
use clause for a child package is present.  It turns out that there are many
occurrences in the compiler itself!

gcc/ada/ChangeLog:

PR ada/123003
* accessibility.adb: Remove unused clauses.
* aspects.adb: Likewise.
* checks.adb: Likewise.
* comperr.adb: Likewise.
* contracts.adb: Likewise.
* cstand.adb: Likewise.
* debug_a.adb: Likewise.
* errout.adb: Likewise.
* eval_fat.adb: Likewise.
* exp_aggr.adb: Likewise.
* exp_atag.adb: Likewise.
* exp_attr.adb: Likewise.
* exp_cg.adb: Likewise.
* exp_ch11.adb: Likewise.
* exp_ch12.adb: Likewise.
* exp_ch13.adb: Likewise.
* exp_ch2.adb: Likewise.
* exp_ch3.adb: Likewise.
* exp_ch4.adb: Likewise.
* exp_ch5.adb: Likewise.
* exp_ch6.adb: Likewise.
* exp_ch7.adb: Likewise.
* exp_ch8.adb: Likewise.
* exp_ch9.adb: Likewise.
* exp_code.adb: Likewise.
* exp_dbug.adb: Likewise.
* exp_disp.adb: Likewise.
* exp_dist.adb: Likewise.
* exp_fixd.adb: Likewise.
* exp_imgv.adb: Likewise.
* exp_intr.adb: Likewise.
* exp_pakd.adb: Likewise.
* exp_prag.adb: Likewise.
* exp_put_image.adb: Likewise.
* exp_sel.adb: Likewise.
* exp_smem.adb: Likewise.
* exp_spark.adb: Likewise.
* exp_strm.adb: Likewise.
* exp_tss.adb: Likewise.
* exp_unst.adb: Likewise.
* exp_util.adb: Likewise.
* exp_util.ads: Likewise.
* expander.adb: Likewise.
* freeze.adb: Likewise.
* frontend.adb: Likewise.
* ghost.adb: Likewise.
* gnat1drv.adb: Likewise.
* gnat_cuda.adb: Likewise.
* impunit.adb: Likewise.
* inline.adb: Likewise.
* itypes.adb: Likewise.
* itypes.ads: Likewise.
* layout.adb: Likewise.
* lib.adb: Likewise.
* libgnarl/s-tasuti.adb: Likewise.
* live.adb: Likewise.
* local_restrict.adb: Likewise.
* mutably_tagged.adb: Likewise.
* nlists.adb: Likewise.
* par.adb: Likewise.
* par_sco.adb: Likewise.
* pprint.adb: Likewise.
* repinfo.adb: Likewise.
* restrict.adb: Likewise.
* rtsfind.adb: Likewise.
* scil_ll.adb: Likewise.
* scn.adb: Likewise.
* sem.adb: Likewise.
* sem_aggr.adb: Likewise.
* sem_attr.adb: Likewise.
* sem_aux.adb: Likewise.
* sem_case.adb: Likewise.
* sem_cat.adb: Likewise.
* sem_ch10.adb: Likewise.
* sem_ch11.adb: Likewise.
* sem_ch12.adb: Likewise.
* sem_ch13.adb: Likewise.
* sem_ch2.adb: Likewise.
* sem_ch3.adb: Likewise.
* sem_ch4.adb: Likewise.
* sem_ch5.adb: Likewise.
* sem_ch6.adb: Likewise.
* sem_ch7.adb: Likewise.
* sem_ch9.adb: Likewise.
* sem_dim.adb: Likewise.
* sem_disp.adb: Likewise.
* sem_dist.adb: Likewise.
* sem_elab.adb: Likewise.
* sem_elim.adb: Likewise.
* sem_eval.adb: Likewise.
* sem_intr.adb: Likewise.
* sem_mech.adb: Likewise.
* sem_prag.adb: Likewise.
* sem_res.adb: Likewise.
* sem_scil.adb: Likewise.
* sem_smem.adb: Likewise.
* sem_type.adb: Likewise.
* sem_util.adb: Likewise.
* sem_util.ads: Likewise.
* sem_warn.adb: Likewise.
* sinput.adb: Likewise.
* sprint.adb: Likewise.
* strub.adb: Likewise.
* style.adb: Likewise.
* styleg.adb: Likewise.
* tbuild.adb: Likewise.
* tbuild.ads: Likewise.
* treepr.adb: Likewise.
* uname.adb: Likewise.
* sem_ch8.adb: Likewise.
(Mark_Use_Clauses.Mark_Use_Package): Do not recurse on the prefix
for a package given by an expanded name.

110 files changed:
gcc/ada/accessibility.adb
gcc/ada/aspects.adb
gcc/ada/checks.adb
gcc/ada/comperr.adb
gcc/ada/contracts.adb
gcc/ada/cstand.adb
gcc/ada/debug_a.adb
gcc/ada/errout.adb
gcc/ada/eval_fat.adb
gcc/ada/exp_aggr.adb
gcc/ada/exp_atag.adb
gcc/ada/exp_attr.adb
gcc/ada/exp_cg.adb
gcc/ada/exp_ch11.adb
gcc/ada/exp_ch12.adb
gcc/ada/exp_ch13.adb
gcc/ada/exp_ch2.adb
gcc/ada/exp_ch3.adb
gcc/ada/exp_ch4.adb
gcc/ada/exp_ch5.adb
gcc/ada/exp_ch6.adb
gcc/ada/exp_ch7.adb
gcc/ada/exp_ch8.adb
gcc/ada/exp_ch9.adb
gcc/ada/exp_code.adb
gcc/ada/exp_dbug.adb
gcc/ada/exp_disp.adb
gcc/ada/exp_dist.adb
gcc/ada/exp_fixd.adb
gcc/ada/exp_imgv.adb
gcc/ada/exp_intr.adb
gcc/ada/exp_pakd.adb
gcc/ada/exp_prag.adb
gcc/ada/exp_put_image.adb
gcc/ada/exp_sel.adb
gcc/ada/exp_smem.adb
gcc/ada/exp_spark.adb
gcc/ada/exp_strm.adb
gcc/ada/exp_tss.adb
gcc/ada/exp_unst.adb
gcc/ada/exp_util.adb
gcc/ada/exp_util.ads
gcc/ada/expander.adb
gcc/ada/freeze.adb
gcc/ada/frontend.adb
gcc/ada/ghost.adb
gcc/ada/gnat1drv.adb
gcc/ada/gnat_cuda.adb
gcc/ada/impunit.adb
gcc/ada/inline.adb
gcc/ada/itypes.adb
gcc/ada/itypes.ads
gcc/ada/layout.adb
gcc/ada/lib.adb
gcc/ada/libgnarl/s-tasuti.adb
gcc/ada/live.adb
gcc/ada/local_restrict.adb
gcc/ada/mutably_tagged.adb
gcc/ada/nlists.adb
gcc/ada/par.adb
gcc/ada/par_sco.adb
gcc/ada/pprint.adb
gcc/ada/repinfo.adb
gcc/ada/restrict.adb
gcc/ada/rtsfind.adb
gcc/ada/scil_ll.adb
gcc/ada/scn.adb
gcc/ada/sem.adb
gcc/ada/sem_aggr.adb
gcc/ada/sem_attr.adb
gcc/ada/sem_aux.adb
gcc/ada/sem_case.adb
gcc/ada/sem_cat.adb
gcc/ada/sem_ch10.adb
gcc/ada/sem_ch11.adb
gcc/ada/sem_ch12.adb
gcc/ada/sem_ch13.adb
gcc/ada/sem_ch2.adb
gcc/ada/sem_ch3.adb
gcc/ada/sem_ch4.adb
gcc/ada/sem_ch5.adb
gcc/ada/sem_ch6.adb
gcc/ada/sem_ch7.adb
gcc/ada/sem_ch8.adb
gcc/ada/sem_ch9.adb
gcc/ada/sem_dim.adb
gcc/ada/sem_disp.adb
gcc/ada/sem_dist.adb
gcc/ada/sem_elab.adb
gcc/ada/sem_elim.adb
gcc/ada/sem_eval.adb
gcc/ada/sem_intr.adb
gcc/ada/sem_mech.adb
gcc/ada/sem_prag.adb
gcc/ada/sem_res.adb
gcc/ada/sem_scil.adb
gcc/ada/sem_smem.adb
gcc/ada/sem_type.adb
gcc/ada/sem_util.adb
gcc/ada/sem_util.ads
gcc/ada/sem_warn.adb
gcc/ada/sinput.adb
gcc/ada/sprint.adb
gcc/ada/strub.adb
gcc/ada/style.adb
gcc/ada/styleg.adb
gcc/ada/tbuild.adb
gcc/ada/tbuild.ads
gcc/ada/treepr.adb
gcc/ada/uname.adb

index c7800542dccb54511a2ff37e8fd528c2a0bc479d..220427a46516e49ec4087e9729ab0138c86ca9a3 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Elists;         use Elists;
 with Errout;         use Errout;
@@ -46,7 +45,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Ch8;        use Sem_Ch8;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index aecbbe2707307be54431923f0e97ddccc9c95ff1..d0ec2d59b5b29f208261a069b15a5930ca97715e 100644 (file)
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Nlists;         use Nlists;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 
index a943d0093539c7eb698dcfccfffa1383d57b5030..a346772001f2c3aa33e74a49b4b02c768c7d730b 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -56,7 +55,6 @@ with Sem_Mech;       use Sem_Mech;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index c6285e98620811c69671cef7f20793fc95f6a095..3dd027eca0e4d50c5e3d6ac7217cee4e296cac04 100644 (file)
@@ -37,7 +37,6 @@ with Namet;          use Namet;
 with Opt;            use Opt;
 with Osint;          use Osint;
 with Output;         use Output;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Sprint;         use Sprint;
index d8719993983790e38e889d024f40b6849f2a829c..8aaf41128723003d672f15be9df0d5ea6e69af3e 100644 (file)
@@ -25,7 +25,6 @@
 
 with Aspects;        use Aspects;
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -50,7 +49,6 @@ with Sem_Disp;       use Sem_Disp;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 8dd169a0dba86ac85d6e0a2f3f55908c5f3a1ef2..8fdecf8f01e6ab7ddbf4fe999d9e26f5bf9ecf0c 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Csets;          use Csets;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -43,7 +42,6 @@ with Ttypes;         use Ttypes;
 with Sem_Mech;       use Sem_Mech;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 8d68fc8eff7d5b383fa5fcc2aa1e9011627ad211..b4f294ae9cf3cff812b5471f5df00b3e7e45281b 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Debug;          use Debug;
 with Namet;          use Namet;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Output;         use Output;
index 220523c1690a410727da19a5ac0c0be2f333b549..e6d0dbcd2ab04f9bc1291ada9f29e8acf2863df2 100644 (file)
@@ -33,7 +33,6 @@ with Atree;          use Atree;
 with Casing;         use Casing;
 with Csets;          use Csets;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Erroutc;        use Erroutc;
@@ -48,7 +47,6 @@ with Output;         use Output;
 with Scans;          use Scans;
 with Sem_Aux;        use Sem_Aux;
 with Sinput;         use Sinput;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 5a2e43ef59785da634b792dd150b9a4297a8838b..67feb20064b93982ebf67c8ba19136d05f5d7564 100644 (file)
@@ -23,7 +23,6 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with Einfo;          use Einfo;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
 with Opt;            use Opt;
index 24fd5b5f92aa5249aee0837e8170a1e10e67289b..afd741e75e51f4053394666ca5d9b54a8908313d 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -64,7 +63,6 @@ with Sem_Res;        use Sem_Res;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
                      use Sem_Util.Storage_Model_Support;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 917a17745e1ca546cad673c07b965cf29eb9cbef..532b29e2adff3a6551f8a7f14520f1eeef26dda5 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -34,7 +33,6 @@ with Nlists;         use Nlists;
 with Nmake;          use Nmake;
 with Opt;            use Opt;
 with Rtsfind;        use Rtsfind;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sem_Aux;        use Sem_Aux;
index 03cb02841fdfed0054f91000634f7c2e917c4de3..259c33859d164a6b7dd3e4791fc9cfc19a60f453 100644 (file)
@@ -27,7 +27,6 @@ with Accessibility;  use Accessibility;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -62,7 +61,6 @@ with Sem_Ch8;        use Sem_Ch8;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 8aee59695824129999fd0f6710aef288e9c924ce..7c16bc5fa5c892d30ec46c5c3c80239022a508a9 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -38,7 +37,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Disp;       use Sem_Disp;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 7192178795519453a93d3073cb82057d0a78d8d8..d9376568aeb4a24c0da69e8c50c801daeb40dabe 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -43,7 +42,6 @@ with Rtsfind;        use Rtsfind;
 with Sem;            use Sem;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 1b1f3cfa55760bb804658fcc190a03bee3c816b0..6a894b8366369c7515dc7d4190a3e7111e0d1539 100644 (file)
 
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Exp_Util;       use Exp_Util;
 with Nmake;          use Nmake;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index e884375f99d870cc8ce55e9d31903ac0babf7656..0fa3f400bfab7dcc26bb14351fe4d57d651843fc 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Ch3;        use Exp_Ch3;
@@ -47,7 +46,6 @@ with Sem_Ch7;        use Sem_Ch7;
 with Sem_Ch8;        use Sem_Ch8;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 4e4a6ecd05e9fd931c25a1611da1d4f320a2ec70..bb6ca866acbbfcb2150141613b511274917d4bb8 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -45,7 +44,6 @@ with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 54352127cfecbf6fee7838c72622ac59ab2c40d4..6a0c0eee7fb8f2584a0801f1ca96770a749b0574 100644 (file)
@@ -28,7 +28,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Contracts;      use Contracts;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -70,7 +69,6 @@ with Sem_SCIL;       use Sem_SCIL;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index d4bc4ba21edca0389bb28e507aa5219f0b22186b..92196a43305292671d34c56484d51f9d7ae219be 100644 (file)
@@ -28,7 +28,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -66,7 +65,6 @@ with Sem_Res;        use Sem_Res;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 6424f0a1d556166ebde81af0030cae645be611fa..fc9e38114a9c8eb20d524813f611d1953cddac49 100644 (file)
@@ -28,7 +28,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -49,7 +48,6 @@ with Opt;            use Opt;
 with Restrict;       use Restrict;
 with Rident;         use Rident;
 with Rtsfind;        use Rtsfind;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sem;            use Sem;
index 9501150652a7abafed9dabcdc81492497df5f692..66434ce70555343ca5233cf321629725b575ff5d 100644 (file)
@@ -28,7 +28,6 @@ with Atree;          use Atree;
 with Aspects;        use Aspects;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -72,7 +71,6 @@ with Sem_Res;        use Sem_Res;
 with Sem_SCIL;       use Sem_SCIL;
 with Sem_Util;       use Sem_Util;
                      use Sem_Util.Storage_Model_Support;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 650b4ae9f572113ffc59bf3ff542e3e3a865c0b0..e107c616d9a2a9e863a0da55bc4dc97e1af1f076 100644 (file)
@@ -29,7 +29,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -54,7 +53,6 @@ with Output;         use Output;
 with Restrict;       use Restrict;
 with Rident;         use Rident;
 with Rtsfind;        use Rtsfind;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sem;            use Sem;
index 3f9dbe8ade28334bf4f428ad814a3c222245f558..3a0f8486063c361238fc875b0802c539fcab1010 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Ch3;        use Exp_Ch3;
@@ -41,7 +40,6 @@ with Sem;            use Sem;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Ch8;        use Sem_Ch8;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 636dc6f77032bd588cb3771469867439dec316c1..b74d75fa5440f3cddb3bbd27af8e134d49dd713a 100644 (file)
@@ -28,7 +28,6 @@ with Atree;          use Atree;
 with Aspects;        use Aspects;
 with Checks;         use Checks;
 with Contracts;      use Contracts;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -62,7 +61,6 @@ with Sem_Elab;       use Sem_Elab;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 57c636283a9abd8b14f66a40bfe6d833f7dc0a96..283e17e77d3f8d4a4f44c1fcac125d6c08ad8dd1 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -38,7 +37,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stringt;        use Stringt;
index 55188a62c27143b41e5138c2301533f2fee9cdc7..2d97de0163aee805806d2ae52ae3a0af14e6ac8b 100644 (file)
@@ -26,7 +26,6 @@
 with Alloc;
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Util;       use Exp_Util;
@@ -37,7 +36,6 @@ with Output;         use Output;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index f19ccac11d0bffe71851a089d3942a5145e78fa1..96887a10a5dffee749c4973907c542cd6fdf0689 100644 (file)
@@ -27,7 +27,6 @@ with Accessibility;  use Accessibility;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -61,7 +60,6 @@ with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index a351b9b8a8fbf220945b7faad5737886063c33fd..f4376de43abf56bb9abbca0b20a128b866fdc04c 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -46,7 +45,6 @@ with Sem_Ch12;       use Sem_Ch12;
 with Sem_Dist;       use Sem_Dist;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index 1107af3e003f23efed5f43fdab335bd04713c68f..fdfe40ec93a79c6b807101651253d812170983e9 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Util;       use Exp_Util;
@@ -39,7 +38,6 @@ with Sem;            use Sem;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Stand;          use Stand;
 with Tbuild;         use Tbuild;
index ea7b18582179cf6df9ae4874afb0d477c4ee49b5..8fb5c1af4fb7c32eb9210c3017dc0ca79b6be0e5 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Casing;         use Casing;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Debug;          use Debug;
@@ -43,7 +42,6 @@ with Rtsfind;        use Rtsfind;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 2949b9cc43fb0cb5d729aa99938e6d7bd12d282e..65581118c5f4eb3e72189fe771525ce6ceb01661 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -50,7 +49,6 @@ with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index f04016fa811711f06429daf0d587e66d37cf9c78..423342fd5f9345e60e6df491c2d907a5c326300b 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -45,7 +44,6 @@ with Sem_Ch13;       use Sem_Ch13;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index f19b9f36287d18c9012f5aad5ead40cf1cfc45e3..666171578b6e085101b0a1e72f297c100c1fe47f 100644 (file)
@@ -27,7 +27,6 @@ with Atree;          use Atree;
 with Casing;         use Casing;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -48,7 +47,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Ch8;        use Sem_Ch8;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 18bcb637913650ddda9488a6d57c1228ffba7f32..8e33af275755335683e3f76069b44faa15b42581 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Csets;          use Csets;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Tss;        use Exp_Tss;
@@ -42,7 +41,6 @@ with Output;         use Output;
 with Rtsfind;        use Rtsfind;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 498e6d2cdfc9d1b20479297a22446adb47a7dda8..6c021bcd3bb7e7fa67a0481eb6c80c6b73317ecd 100644 (file)
@@ -23,7 +23,6 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Nlists;         use Nlists;
 with Nmake;          use Nmake;
index 831b7c09f9e8cdce5a1e4ea616090d399e40f306..e179060563d4a7b0636fbd1740436b9e2dd4846d 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -39,7 +38,6 @@ with Rtsfind;        use Rtsfind;
 with Sem;            use Sem;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 0f9203410f2fe391537bdab2a24785119faa0019..132be79fd7310a61f7594def9c0fd9e1d2f8b082 100644 (file)
@@ -26,7 +26,6 @@
 with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Attr;
@@ -52,7 +51,6 @@ with Sem_Ch13;       use Sem_Ch13;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index f933a2e425f735ec64263a3b8865c3a5df92fe8d..b8a0eae408c82a351955ac9ba6670fb501132864 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -35,7 +34,6 @@ with Nlists;         use Nlists;
 with Nmake;          use Nmake;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 89af166a654c747a9d64b124a15805c528210eae..27789d80427233e6bb19a4921817cefcde6e1105 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -36,7 +35,6 @@ with Rident;         use Rident;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Ch6;        use Sem_Ch6;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 
 package body Exp_Tss is
index 9a1ed7067a69a18c7e9cd839a00558d83b2c0afd..2e763c4db9d1a14ce80d4b0452fc7f3d2da0e193 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -42,7 +41,6 @@ with Sem_Ch8;        use Sem_Ch8;
 with Sem_Mech;       use Sem_Mech;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index f231dab21686be3b751c001e19d850247a848316..1fe286f6135a78202b2ad114e327cc4a9f02cece 100644 (file)
@@ -28,7 +28,6 @@ with Atree;          use Atree;
 with Casing;         use Casing;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Elists;         use Elists;
 with Errout;         use Errout;
index 318225abd69d731a36496f90a4383cb069a06128..e82acf8754ae42fd049943c11f4ce24d326cd7ae 100644 (file)
@@ -29,7 +29,6 @@ with Einfo.Utils;    use Einfo.Utils;
 with Exp_Tss;        use Exp_Tss;
 with Namet;          use Namet;
 with Rtsfind;        use Rtsfind;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Snames;         use Snames;
 with Types;          use Types;
index 25f49505399bbe3340ca693caeb4f69cbbfc5d9d..9f58c95f2fc5ca6ac660f21830abb31515e3ee25 100644 (file)
@@ -47,7 +47,6 @@ with Rtsfind;        use Rtsfind;
 with Sem;            use Sem;
 with Sem_Ch8;        use Sem_Ch8;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Stand;          use Stand;
 with Table;
index ab04d9733f1d42ae13876dad9926d68f5fc0f381..da53b8a922bc77bbad867477b359c471bcfe5e05 100644 (file)
@@ -28,7 +28,6 @@ with Atree;          use Atree;
 with Checks;         use Checks;
 with Contracts;      use Contracts;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -63,7 +62,6 @@ with Sem_Mech;       use Sem_Mech;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 3441cf5c0c8d25723d95802916af8b10e98749b8..80111e2041bc5a86c6d30c07cba3f5be32fe0c92 100644 (file)
@@ -60,7 +60,6 @@ with Sem_SCIL;
 with Sem_Elab;       use Sem_Elab;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 5231ef90e08415dde0832e6a638ed10f034ec402..4fad46d02acab75c7bf333ef13114f59c02cce7b 100644 (file)
@@ -26,7 +26,6 @@
 with Alloc;
 with Aspects;        use Aspects;
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -39,7 +38,6 @@ with Sem_Disp;       use Sem_Disp;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 4653741501a1da690c29f1fa51654e52a1b65e95..cc19e424afadbb94f87f6d211e37d95682e6d924 100644 (file)
@@ -33,7 +33,6 @@ with Elists;
 with Errout;         use Errout;
 with Exp_CG;
 with Fmap;
-with Fname;          use Fname;
 with Fname.UF;       use Fname.UF;
 with Frontend;
 with Ghost;          use Ghost;
@@ -65,7 +64,6 @@ with Sem_Eval;
 with Sem_Prag;
 with Sem_Type;
 with Set_Targ;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Sinput.L;       use Sinput.L;
index 80080e082938ae52b6dabfbc8de020a7b0233551..13d6a5d653c47c4445800e13fa1d8a631601f838 100644 (file)
@@ -36,7 +36,6 @@ with Nmake;          use Nmake;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Util;       use Sem_Util;
 with Sinfo.Nodes;    use Sinfo.Nodes;
-with Sinfo;          use Sinfo;
 
 with GNAT.HTable;
 
index 712d46c54abbdf074a7b0349ae635a200ad62b5f..b73c65e0c2a84b3d2df9c945184c9850eeff4695 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Errout;      use Errout;
-with Sinfo;       use Sinfo;
 with Sinfo.Nodes; use Sinfo.Nodes;
 with Fname.UF;    use Fname.UF;
 with Lib;         use Lib;
index 3833af8e84a6c2a2fa790827ecba7c152dd7ca12..2fb4aeba4e2ff434e0a880eec7601aad9572f813 100644 (file)
@@ -27,7 +27,6 @@ with Alloc;
 with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -35,7 +34,6 @@ with Errout;         use Errout;
 with Exp_Ch6;        use Exp_Ch6;
 with Exp_Ch7;        use Exp_Ch7;
 with Exp_Util;       use Exp_Util;
-with Fname;          use Fname;
 with Fname.UF;       use Fname.UF;
 with Lib;            use Lib;
 with Namet;          use Namet;
@@ -49,7 +47,6 @@ with Sem_Ch12;       use Sem_Ch12;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 98734d8c354b1f427ae821c76f7eb199aea4d52a..7407629ac5ffe99aef7c198413ef0040c358dbd6 100644 (file)
@@ -25,7 +25,6 @@
 
 with Einfo.Utils;    use Einfo.Utils;
 with Sem;            use Sem;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Stand;          use Stand;
 with Targparm;       use Targparm;
index 9228a7d728a5ca8ed150d2edf46c2c0f054d529c..f2e9a73771c9c13a225535946e1f130ecbadbb31 100644 (file)
@@ -25,7 +25,6 @@
 
 --  This package contains declarations for handling of implicit types
 
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Sem_Util;       use Sem_Util;
 with Types;          use Types;
index 841abf25f38d6d735af4fcf45e177c0eaceba32f..88af2ed5689386d4acbdb74e22ee24f5e2b1942f 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -34,7 +33,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Ch13;       use Sem_Ch13;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 3fd9540acb3742af9d81236a85ddabd5d939f18d..766f60938a4f97049e2309e41d92f3c475329852 100644 (file)
@@ -29,12 +29,10 @@ pragma Style_Checks (All_Checks);
 
 with Atree;          use Atree;
 with Csets;          use Csets;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Nlists;         use Nlists;
 with Opt;            use Opt;
 with Output;         use Output;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 76f63c968384cfc46212f7fe181b013390b0f361..d85fe1814f5018189f6b45db2be146cb80a0d916 100644 (file)
@@ -43,7 +43,6 @@ package body System.Tasking.Utilities is
    package STPO renames System.Task_Primitives.Operations;
 
    use Tasking.Debug;
-   use Task_Primitives;
    use Task_Primitives.Operations;
 
    --------------------
index 9cf3228fbf1944207f5dc641373166c800f2305c..6dff0ae08f09f0984850ba878662fcf86e26ac94 100644 (file)
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Lib;            use Lib;
 with Nlists;         use Nlists;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Types;          use Types;
index 3c3cfd2fa46d5bcf06cf49a246abc65d22582d97..384af4d24281fc8168e4fbebf46a7e9037549d08 100644 (file)
@@ -25,7 +25,6 @@
 
 with Aspects;        use Aspects;
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
index b04ba92e5aa8e80bddfff46291eef80323eae500..518b8f3c528e381422a8dfee92269a4d18ef4fdb 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Casing;         use Casing;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Util;       use Exp_Util;
@@ -35,7 +34,6 @@ with Nmake;          use Nmake;
 with Rtsfind;        use Rtsfind;
 with Snames;         use Snames;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stringt;        use Stringt;
index a01819902f0b7a372ae75ba75dafe2ade4dde8b9..34f74d55d8a04f2e65a3f49acf126bc54f73cabc 100644 (file)
@@ -30,7 +30,6 @@ with Alloc;
 with Atree;       use Atree;
 with Debug;       use Debug;
 with Output;      use Output;
-with Sinfo;       use Sinfo;
 with Sinfo.Nodes; use Sinfo.Nodes;
 with Table;
 
index 13f5349c8080ccd338bf1526d0c7e166df10cef5..2027514d0eef0bdd9ff89869a62a5b97044858c4 100644 (file)
@@ -29,7 +29,6 @@ with Casing;         use Casing;
 with Debug;          use Debug;
 with Elists;         use Elists;
 with Errout;         use Errout;
-with Fname;          use Fname;
 with Lib;            use Lib;
 with Namet;          use Namet;
 with Namet.Sp;       use Namet.Sp;
@@ -44,7 +43,6 @@ with Scn;            use Scn;
 with Sem_Util;       use Sem_Util;
 with Sinput;         use Sinput;
 with Sinput.L;       use Sinput.L;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 3575ad5f3dbd2ff6a0e16ed92244adb5fff69e64..584c6281a129f4434b8b969306a3ba178b7bd46e 100644 (file)
@@ -37,7 +37,6 @@ with Put_SCOs;
 with SCOs;           use SCOs;
 with Sem;            use Sem;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 225a49477aa14b3bd7c2471f8c48f7188f3353a3..3e8ebc6924db6838b26df3e8138194fafba385a2 100644 (file)
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
 with Namet;          use Namet;
 with Nlists;         use Nlists;
 with Opt;            use Opt;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 14c293056900251a111a476fb2f5fac462927e08..dd53dc3fa879d57dd8f6769c118b4cf607045fcc 100644 (file)
@@ -27,7 +27,6 @@ with Alloc;
 with Atree;          use Atree;
 with Casing;         use Casing;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with GNAT.Heap_Sort_G;
@@ -40,7 +39,6 @@ with Osint.C;        use Osint.C;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index d42efd64a11dc888db3a83996078ca8288e6e7fd..a413a7abd2519a1486305d12212d2517fa684b54 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Casing;         use Casing;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -34,7 +33,6 @@ with Fname;          use Fname;
 with Fname.UF;       use Fname.UF;
 with Lib;            use Lib;
 with Opt;            use Opt;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index e15e93f2fba40821af7082b179de64b1e0aebb88..b5018862adad8613fbc64f013f4483531447c270 100644 (file)
@@ -27,13 +27,11 @@ with Atree;          use Atree;
 with Casing;         use Casing;
 with Csets;          use Csets;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
 with Errout;         use Errout;
 with Exp_Dist;
-with Fname;          use Fname;
 with Fname.UF;       use Fname.UF;
 with Ghost;          use Ghost;
 with Lib;            use Lib;
@@ -47,10 +45,9 @@ with Restrict;       use Restrict;
 with Sem;            use Sem;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Ch7;        use Sem_Ch7;
-with Sem_Ch12;        use Sem_Ch12;
+with Sem_Ch12;       use Sem_Ch12;
 with Sem_Dist;       use Sem_Dist;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index 3722ce8e822c8aa3040589894eb5be74e71e2b72..0f01f32897f88b1d55ed24be4f523e0fcf9cf7fd 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Opt;            use Opt;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with System.HTable;  use System.HTable;
 
index 701bf34d254f53a8a5bb951a3c36d8589e401117..bf2ebba82e613736908626393ce6ac088d5c28d4 100644 (file)
@@ -29,7 +29,6 @@ with Namet;          use Namet;
 with Restrict;       use Restrict;
 with Rident;         use Rident;
 with Scans;          use Scans;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Uintp;          use Uintp;
index 71e759e74c41bd9c44f82ed795db7b4c623157a2..29ecee76c8f5559dcc16dc976e1cf9b480d07a3a 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Debug;          use Debug;
 with Debug_A;        use Debug_A;
-with Einfo;          use Einfo;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
 with Exp_SPARK;      use Exp_SPARK;
@@ -52,7 +51,6 @@ with Sem_Ch12;       use Sem_Ch12;
 with Sem_Ch13;       use Sem_Ch13;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index 928f4f7bbc4a6666ef9adcf4337eeb91b57e54f4..ae01956ab4f5fac7c3d898b58bb538133f94c158 100644 (file)
@@ -26,7 +26,6 @@
 with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
 with Errid;          use Errid;
@@ -59,7 +58,6 @@ with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
 with Sem_Type;       use Sem_Type;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
 with Stringt;        use Stringt;
index af4994419eb45809cfa26571779065b65ad80164..e7144920174a5b0f6fc2f285cc0b032f3826b4a3 100644 (file)
@@ -31,7 +31,6 @@ with Atree;          use Atree;
 with Casing;         use Casing;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -72,7 +71,6 @@ with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 107e27e2e43f161a40ed1b234e5a8c3611d53477..eb0f8f161d592da70cf35ee4e492507370caf566 100644 (file)
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Utils;    use Einfo.Utils;
 with Nlists;         use Nlists;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 050e456d49c3525215f7ba7a323b2abac11e2f20..00425087a9c90c932ce1b8ace0ff7228aabcb5a3 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -41,7 +40,6 @@ with Sem_Util;       use Sem_Util;
 with Sem_Type;       use Sem_Type;
 with Snames;         use Snames;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stringt;        use Stringt;
index a90f04f3f36568ebedcffab7d77ed122ce70b3a9..ccfd29eb56838aa8ec18aa8ff3694fd0ee64620a 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -40,7 +39,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Dist;       use Sem_Dist;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 9cd86d6bc1d29b502b5fd0ccb4b0d450d60107f1..6bf38202d5b708a72936c5d2b90cc3df6ee3bdbf 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Contracts;      use Contracts;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -35,7 +34,6 @@ with Exp_Disp;       use Exp_Disp;
 with Exp_Put_Image;
 with Exp_Util;       use Exp_Util;
 with Elists;         use Elists;
-with Fname;          use Fname;
 with Fname.UF;       use Fname.UF;
 with Freeze;         use Freeze;
 with Impunit;        use Impunit;
@@ -64,7 +62,6 @@ with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinfo.CN;       use Sinfo.CN;
index 26a3596e7b48d362586783cc69fbc227f685a049..5ce6832961eb2fef43a3e3898c365122bb9f2c82 100644 (file)
 
 with Atree;          use Atree;
 with Checks;         use Checks;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
-with Lib;            use Lib;
 with Lib.Xref;       use Lib.Xref;
 with Namet;          use Namet;
 with Nlists;         use Nlists;
@@ -46,7 +44,6 @@ with Sem_Ch13;       use Sem_Ch13;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index 729a6b145ac35e21ad26b57dc57a031d0815dd9f..e112a42e81876dda7c906101f5bedb5d65a0ed28 100644 (file)
@@ -27,14 +27,12 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Contracts;      use Contracts;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
 with Errout;         use Errout;
 with Expander;       use Expander;
 with Exp_Dbug;       use Exp_Dbug;
-with Fname;          use Fname;
 with Fname.UF;       use Fname.UF;
 with Freeze;         use Freeze;
 with Ghost;          use Ghost;
@@ -70,7 +68,6 @@ with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinfo.CN;       use Sinfo.CN;
index 0aad2f92ca00f38153d5696ad879c45029f0902c..f79e85448b7ff273c43b6bdf5cef37e1c0d2b79a 100644 (file)
@@ -29,7 +29,6 @@ with Atree;            use Atree;
 with Checks;           use Checks;
 with Contracts;        use Contracts;
 with Debug;            use Debug;
-with Einfo;            use Einfo;
 with Einfo.Entities;   use Einfo.Entities;
 with Einfo.Utils;      use Einfo.Utils;
 with Elists;           use Elists;
@@ -70,7 +69,6 @@ with Sem_Res;          use Sem_Res;
 with Sem_Type;         use Sem_Type;
 with Sem_Util;         use Sem_Util;
 with Sem_Warn;         use Sem_Warn;
-with Sinfo;            use Sinfo;
 with Sinfo.Nodes;      use Sinfo.Nodes;
 with Sinfo.Utils;      use Sinfo.Utils;
 with Sinput;           use Sinput;
index df4aa6a4b550a61f0121ff29084011b893134acb..9f67a27c7ce63a651b52c357d659576e0fd4fcd1 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -39,7 +38,6 @@ with Sem;            use Sem;
 with Sem_Ch8;        use Sem_Ch8;
 with Sem_Dim;        use Sem_Dim;
 with Sem_Res;        use Sem_Res;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index 994f60dc9a7a12a62917c85f687fbe192b7ad4f8..84c69191cb67492b62d264445654bf8270388dd8 100644 (file)
@@ -30,7 +30,6 @@ with Checks;         use Checks;
 with Contracts;      use Contracts;
 with Debug;          use Debug;
 with Elists;         use Elists;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -80,7 +79,6 @@ with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 38e013a9dc4afa6acefd2c29f7a88701df855b2b..e725c013ad78f35b29d576ba36620f43341c019e 100644 (file)
@@ -27,7 +27,6 @@ with Accessibility;  use Accessibility;
 with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -64,7 +63,6 @@ with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index e6bba80c5f1938c48e59056773b6d9009a38b330..dc1625845ea3d75d621541e695db5372dbaa6642 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -60,7 +59,6 @@ with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Snames;         use Snames;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Targparm;       use Targparm;
index 154aa96dde43b5a09beb65f697cd0e73d1212899..a689f2103c6060e138ccd5fc38122dba09d2f454 100644 (file)
@@ -29,7 +29,6 @@ with Atree;          use Atree;
 with Checks;         use Checks;
 with Contracts;      use Contracts;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -81,7 +80,6 @@ with Sem_Type;       use Sem_Type;
 with Sem_Warn;       use Sem_Warn;
 with Sinput;         use Sinput;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinfo.CN;       use Sinfo.CN;
index 6032487d59f555a24e2195c8b7ca30413086ebd7..f7afc58c546684b3381531de6fa7220f8017d993 100644 (file)
@@ -32,7 +32,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Contracts;      use Contracts;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -66,7 +65,6 @@ with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Snames;         use Snames;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 720e7f71662e5d82b0e9d54ee1a7d473475ab435..c4628e95912b9d9b53f7fe87a4b5f52cf5c60903 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
 with Errout;         use Errout;
@@ -68,7 +67,6 @@ with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
 with Sem_Type;       use Sem_Type;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinfo.CN;       use Sinfo.CN;
@@ -9579,26 +9577,17 @@ package body Sem_Ch8 is
             return;
          end if;
 
+         --  We need to mark the previous use clauses as effective, but each
+         --  use clause may in turn render other use clauses effective.
+
          Curr := Current_Use_Clause (Pak);
          while Present (Curr)
            and then not Is_Effective_Use_Clause (Curr)
          loop
-            --  We need to mark the previous use clauses as effective, but
-            --  each use clause may in turn render other use_package_clauses
-            --  effective. Additionally, it is possible to have a parent
-            --  package renamed as a child of itself so we must check the
-            --  prefix entity is not the same as the package we are marking.
-
-            if Nkind (Name (Curr)) /= N_Identifier
-              and then Present (Prefix (Name (Curr)))
-              and then Entity (Prefix (Name (Curr))) /= Pak
-            then
-               Mark_Use_Package (Entity (Prefix (Name (Curr))));
-
-            --  It is also possible to have a child package without a prefix
-            --  that relies on a previous use_package_clause.
+            --  It is possible to have a child package without a prefix that
+            --  relies on a previous use clause.
 
-            elsif Nkind (Name (Curr)) = N_Identifier
+            if Nkind (Name (Curr)) = N_Identifier
               and then Is_Child_Unit (Entity (Name (Curr)))
             then
                Mark_Use_Package (Scope (Entity (Name (Curr))));
index bf387d35a657edf0509a74f97510712a592e5e9d..9af9a954ee07ef5aa156856135a3dfbc8c0c4b3a 100644 (file)
@@ -28,7 +28,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Contracts;      use Contracts;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errid;          use Errid;
@@ -62,7 +61,6 @@ with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Snames;         use Snames;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Style;
index 822c1284d539c3fb431bf239d5bf2069dea82036..c2e1d6410e481f9f8bc35427e1bf569ef66814b9 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -40,7 +39,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 0e89af8f0a77817228fe7df1fe03466168a38ae4..57b7973d07933ed8abddeea750e0c6daf0a1eebd 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Debug;          use Debug;
 with Elists;         use Elists;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Exp_Disp;       use Exp_Disp;
@@ -52,7 +51,6 @@ with Sem_Eval;       use Sem_Eval;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Snames;         use Snames;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Tbuild;         use Tbuild;
index 5b6f74cca3040a6dce04ea7c28b06beec738d684..c9b80d112491ddc512803347fa9bee9264abf7fc 100644 (file)
@@ -25,7 +25,6 @@
 
 with Atree;          use Atree;
 with Casing;         use Casing;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -42,7 +41,6 @@ with Sem_Disp;       use Sem_Disp;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Stand;          use Stand;
index 4d57a86529a21d5228e32ea23505c0c2e2325e14..17d0261195bcab45486780a99730354cfe094e90 100644 (file)
@@ -27,7 +27,6 @@ with ALI;            use ALI;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -53,7 +52,6 @@ with Sem_Ch8;        use Sem_Ch8;
 with Sem_Disp;       use Sem_Disp;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 7d9dca824c02d4f71e97498de724ae7e90041143..596e4c6b758511ba670ed4a77cfcbffc1ed91bdb 100644 (file)
@@ -24,7 +24,6 @@
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -37,7 +36,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
 with Sinput;         use Sinput;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Snames;         use Snames;
 with Stand;          use Stand;
index be372e766784aae251dd82c693245c1331a345ca..72d8b48211de8377d6212e93eaa03a5aec68b186 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -55,7 +54,6 @@ with Sem_Res;        use Sem_Res;
 with Sem_Util;       use Sem_Util;
 with Sem_Type;       use Sem_Type;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 9c266ca5864f121828feee91ae93f3d40913cf18..20d54ee957b4de504b226012a649ad15cc7daa71 100644 (file)
@@ -26,7 +26,6 @@
 --  Processing for intrinsic subprogram declarations
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -36,7 +35,6 @@ with Opt;            use Opt;
 with Sem_Aux;        use Sem_Aux;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index 8b7d42641824312aa404e1fe1720eea353c6fb17..33f11dd29ee8de6bfd39a60fb41f5b6ee4e4d709 100644 (file)
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
 with Namet;          use Namet;
 with Sem;            use Sem;
 with Sem_Aux;        use Sem_Aux;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Snames;         use Snames;
 
index a3eeef9ae66ec26523ae984af89efaca1407f76f..10356793649de00fffd069a1b7a1ba7b2e9b43bb 100644 (file)
@@ -36,7 +36,6 @@ with Checks;         use Checks;
 with Contracts;      use Contracts;
 with Csets;          use Csets;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -79,7 +78,6 @@ with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinfo.CN;       use Sinfo.CN;
index bfbfc10994415b292cd02901d49e58d41c938ae2..108a4f9d06be9d193a68dedc8b219f5456740996 100644 (file)
@@ -29,7 +29,6 @@ with Atree;          use Atree;
 with Checks;         use Checks;
 with Debug;          use Debug;
 with Debug_A;        use Debug_A;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -80,7 +79,6 @@ with Sem_Mech;       use Sem_Mech;
 with Sem_Type;       use Sem_Type;
 with Sem_Util;       use Sem_Util;
 with Sem_Warn;       use Sem_Warn;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinfo.CN;       use Sinfo.CN;
index 791a0a2c3dd98917c116a3ef7f83fc6fc4e70811..d9582c1c39e9a70bc12eb520ae5705641e01a65e 100644 (file)
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Nlists;         use Nlists;
 with Rtsfind;        use Rtsfind;
 with Sem_Aux;        use Sem_Aux;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Stand;          use Stand;
 with SCIL_LL;        use SCIL_LL;
index b326fe215fa830e1aaa1e73ac16b0327fff855c9..7004a39c640402d9f90d10fe035b859be13bec24 100644 (file)
 ------------------------------------------------------------------------------
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
 with Namet;          use Namet;
 with Sem_Aux;        use Sem_Aux;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Snames;         use Snames;
 
index b6bfa2a80cfb41a5e8aabb7c0a387d47938a94ed..702b248839d202930c38c1f95269c7ae30e9282a 100644 (file)
@@ -27,7 +27,6 @@ with Aspects;        use Aspects;
 with Atree;          use Atree;
 with Alloc;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Elists;         use Elists;
@@ -46,7 +45,6 @@ with Sem_Disp;       use Sem_Disp;
 with Sem_Dist;       use Sem_Dist;
 with Sem_Util;       use Sem_Util;
 with Stand;          use Stand;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index ade2227ff007b660b40e5b0dcefb79a631f18117..31bcd98d468999c7d0e260cac6ddfd499005bb46 100644 (file)
@@ -63,7 +63,6 @@ with Sem_Prag;       use Sem_Prag;
 with Sem_Res;        use Sem_Res;
 with Sem_Warn;       use Sem_Warn;
 with Sem_Type;       use Sem_Type;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 15e6ee1ce70e3cd29300b71160782be4ac7f76ee..e7d4cd9f437b40530d2e99e2574387639cbcd221 100644 (file)
@@ -27,7 +27,6 @@
 
 with Aspects;        use Aspects;
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Exp_Tss;        use Exp_Tss;
 with Namet;          use Namet;
index f085149a15dd0f975c9030dc1dbb639ee925750d..d121e6985862af0aae11ece8bcd72946a9a730a5 100644 (file)
@@ -26,7 +26,6 @@
 with Accessibility;  use Accessibility;
 with Atree;          use Atree;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
@@ -43,7 +42,6 @@ with Sem_Aux;        use Sem_Aux;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Prag;       use Sem_Prag;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index f3a5033b1c7f831d52628dec6828f7b045278db2..bf63906268b18a7887fcf6d1958b30004a994030 100644 (file)
@@ -31,7 +31,6 @@ with Debug;          use Debug;
 with Opt;            use Opt;
 with Output;         use Output;
 with Scans;          use Scans;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Widechar;       use Widechar;
 
index ee9013e38ade37ee8269f7a0a339da3cf0704867..b1cc603a5eb578c6883e22e986e19ce57231a0e8 100644 (file)
@@ -28,7 +28,6 @@ with Atree;          use Atree;
 with Casing;         use Casing;
 with Csets;          use Csets;
 with Debug;          use Debug;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Lib;            use Lib;
@@ -39,7 +38,6 @@ with Output;         use Output;
 with Rtsfind;        use Rtsfind;
 with Sem_Eval;       use Sem_Eval;
 with Sem_Util;       use Sem_Util;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;
index 00123fb51a6f50b9fccdaf76b77293243145897d..3582393973b40668608a307605f0e33166eac8f9 100644 (file)
 --  Package containing utility procedures related to Stack Scrubbing
 
 with Atree;          use Atree;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Errout;         use Errout;
 with Namet;          use Namet;
 with Nlists;         use Nlists;
 with Sem_Eval;       use Sem_Eval;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Snames;         use Snames;
index e202631eab670c89f656c34c3078451a528f98b5..70b4aca0bf015fbb7ac5166d387ebcbcf8bb93fc 100644 (file)
 with Atree;          use Atree;
 with Casing;         use Casing;
 with Csets;          use Csets;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Errout;         use Errout;
 with Namet;          use Namet;
 with Nlists;         use Nlists;
 with Opt;            use Opt;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Snames;         use Snames;
index 46499fff7f1d239a0a5f15e6186482d5309710a7..8cb12bf9421ab4558706973ecf900eabd13d31c6 100644 (file)
@@ -34,7 +34,6 @@ with Err_Vars;       use Err_Vars;
 with Errout;
 with Opt;            use Opt;
 with Scans;          use Scans;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinput;         use Sinput;
 with Stylesw;        use Stylesw;
index 2840707f2e93d7f0f3cbf7e3b2e12dc5129320ad..312fdf0c851be4c16ed39510919950e2a31647b0 100644 (file)
@@ -26,7 +26,6 @@
 with Atree;          use Atree;
 with Aspects;        use Aspects;
 with Csets;          use Csets;
-with Einfo;          use Einfo;
 with Einfo.Entities; use Einfo.Entities;
 with Einfo.Utils;    use Einfo.Utils;
 with Lib;            use Lib;
index 3a0adff97c7afa02dac1acd8285c69101a3fc956..85e2fe46a24cc4bcea44171ec45c773afdb3fb54 100644 (file)
@@ -27,7 +27,6 @@
 --  specific types of tree nodes.
 
 with Namet;          use Namet;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Types;          use Types;
 with Uintp;          use Uintp;
index d1fa9c2540dde172e44e6bbf0868a1f553f6ae5d..536ceb29297e9dc9ab65be74318a4ae9a1cfa186 100644 (file)
@@ -27,7 +27,6 @@ with Ada.Unchecked_Conversion;
 with Aspects;              use Aspects;
 with Atree;                use Atree;
 with Debug;                use Debug;
-with Einfo;                use Einfo;
 with Einfo.Entities;       use Einfo.Entities;
 with Einfo.Utils;          use Einfo.Utils;
 with Elists;               use Elists;
@@ -38,7 +37,6 @@ with Nlists;               use Nlists;
 with Output;               use Output;
 with Seinfo;               use Seinfo;
 with Sem_Eval;             use Sem_Eval;
-with Sinfo;                use Sinfo;
 with Sinfo.Nodes;          use Sinfo.Nodes;
 with Sinfo.Utils;          use Sinfo.Utils;
 with Snames;               use Snames;
index 6d482cfccd6d6ce8972f10617deac4087e001ae0..93758b9dae216cafc5eec5eaf55692b0a948edd8 100644 (file)
 
 with Atree;          use Atree;
 with Casing;         use Casing;
-with Einfo;          use Einfo;
 with Einfo.Utils;    use Einfo.Utils;
 with Hostparm;
 with Lib;            use Lib;
 with Nlists;         use Nlists;
 with Output;         use Output;
-with Sinfo;          use Sinfo;
 with Sinfo.Nodes;    use Sinfo.Nodes;
 with Sinfo.Utils;    use Sinfo.Utils;
 with Sinput;         use Sinput;