[Ada] Variable-sized node types

[gcc.git] / gcc / ada / exp_ch13.adb

diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb
index 90316a8c732730663e9a0472bd6890268876b266..efb43f0eb11d2ecdc9016162a137c3c453a262ba 100644 (file)
--- a/gcc/ada/exp_ch13.adb
+++ b/gcc/ada/exp_ch13.adb
@@ -25,7 +25,9 @@
 
 with Atree;    use Atree;
 with Checks;   use Checks;
-with Einfo;    use Einfo;
+with Einfo; use Einfo;
+with Einfo.Entities; use Einfo.Entities;
+with Einfo.Utils; use Einfo.Utils;
 with Exp_Ch3;  use Exp_Ch3;
 with Exp_Ch6;
 with Exp_Imgv; use Exp_Imgv;
@@ -45,7 +47,9 @@ 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; use Sinfo;
+with Sinfo.Nodes; use Sinfo.Nodes;
+with Sinfo.Utils; use Sinfo.Utils;
 with Snames;   use Snames;
 with Tbuild;   use Tbuild;
 with Uintp;    use Uintp;