diff options
author | Javier Miranda <miranda@adacore.com> | 2009-07-29 08:43:58 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-29 10:43:58 +0200 |
commit | d06b3b1df80df172c0887e97ca5ad53e808a99e1 (patch) | |
tree | fa0421e7d4dace9225998210eef8f448dfa1dbf2 /gcc/ada/sem_aux.adb | |
parent | bc4eac6d04aefed6523a145fc7803c7fd4a23609 (diff) | |
download | gcc-d06b3b1df80df172c0887e97ca5ad53e808a99e1.zip gcc-d06b3b1df80df172c0887e97ca5ad53e808a99e1.tar.gz gcc-d06b3b1df80df172c0887e97ca5ad53e808a99e1.tar.bz2 |
frontend.adb (Frontend): Code cleanup.
2009-07-29 Javier Miranda <miranda@adacore.com>
* frontend.adb (Frontend): Code cleanup.
* exp_atag.ads, exp_atag.adb (Build_Get_Predefined_Prim_Op_Address):
Rewriten as a procedure because it a new out-mode parameters to
keep up-to-date the controlling tag node in the caller.
(Build_Get_Prim_Op_Address): Rewriten as a procedure because it has a
new out-mode parameter to keep up-to-date the controlling tag node in
the caller.
* exp_ch7.adb, sem_ch5.adb, exp_util.adb, sem_util.adb, exp_ch4.adb,
exp_ch6.adb, sem_ch4.adb, exp_ch3.adb: Add new dependency on new
package Sem_SCIL.
* sem_aux.ads, sem_aux.adb (First_Non_SCIL_Node): Removed. Routine
available in new package Sem_SCIL.
(Next_Non_SCIL_Node): Ditto.
* exp_disp.adb (Adjust_SCIL_Node): Removed. Routine available in new
package Sem_SCIL.
(Expand_Dispatching_Call): Update call to modified Exp_Atags routines
plus complete decoration of SCIL dispatching node.
(Find_SCIL_Node): Removed. Routine available in new package Sem_SCIL.
* exp_disp.ads (Adjust_SCIL_Node): Removed. Routine available in new
package Sem_SCIL.
(Find_SCIL_Node): Removed. Routine available in new package Sem_SCIL.
* exp_ch3.adb (Build_Init_Procedure): Fix comment.
* sem_scil.ads, sem_scil.adb: New files.
* gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Addition of sem_scil.o.
Update dependencies.
From-SVN: r150199
Diffstat (limited to 'gcc/ada/sem_aux.adb')
-rwxr-xr-x | gcc/ada/sem_aux.adb | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 20e254e..c1b3a33 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -33,7 +33,6 @@ with Atree; use Atree; with Einfo; use Einfo; with Namet; use Namet; -with Nlists; use Nlists; with Sinfo; use Sinfo; with Snames; use Snames; with Stand; use Stand; @@ -236,22 +235,6 @@ package body Sem_Aux is return Ent; end First_Discriminant; - ------------------------- - -- First_Non_SCIL_Node -- - ------------------------- - - function First_Non_SCIL_Node (L : List_Id) return Node_Id is - N : Node_Id; - - begin - N := First (L); - while Nkind (N) in N_SCIL_Node loop - Next (N); - end loop; - - return N; - end First_Non_SCIL_Node; - ------------------------------- -- First_Stored_Discriminant -- ------------------------------- @@ -754,22 +737,6 @@ package body Sem_Aux is end Nearest_Dynamic_Scope; ------------------------ - -- Next_Non_SCIL_Node -- - ------------------------ - - function Next_Non_SCIL_Node (N : Node_Id) return Node_Id is - Aux_N : Node_Id; - - begin - Aux_N := Next (N); - while Nkind (Aux_N) in N_SCIL_Node loop - Next (Aux_N); - end loop; - - return Aux_N; - end Next_Non_SCIL_Node; - - ------------------------ -- Next_Tag_Component -- ------------------------ |