aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch6.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-04-15 14:09:35 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-15 14:09:35 +0200
commit991395ab4fdc4f912b37616c6ed3e51efa4a831e (patch)
treef283f72c27bacac58c6a01f656294c7d8e83a5d6 /gcc/ada/exp_ch6.adb
parent55cc1a0524a460e8b224878114842463100b0e0e (diff)
downloadgcc-991395ab4fdc4f912b37616c6ed3e51efa4a831e.zip
gcc-991395ab4fdc4f912b37616c6ed3e51efa4a831e.tar.gz
gcc-991395ab4fdc4f912b37616c6ed3e51efa4a831e.tar.bz2
[multiple changes]
2009-04-15 Pascal Obry <obry@adacore.com> * adaint.h (__gnat_unlink): Add spec. (__gnat_rename): Likewise. 2009-04-15 Vincent Celier <celier@adacore.com> * prj-nmsc.adb: Minor spelling error corrections in error messages 2009-04-15 Robert Dewar <dewar@adacore.com> * sinfo.ads: Minor comment update * opt.ads: Minor comment updates * checks.adb (Enable_Overflow_Check): Do not set Do_Overflow_Check for modular type. 2009-04-15 Ed Schonberg <schonberg@adacore.com> * exp_disp.ads, exp_disp.adb (Register_Primitive): Is now a function that generates the code needed to update a dispatch table when a primitive operation is declared with a subprogram body without previous spec. Insertion of the generated code is responsibility of the caller. (Make_DT): When building static tables, append the code created by Register_Primitive to update a secondary table after it has been constructed. * exp_ch3.adb, exp_ch6.adb: use new version of Register_Primitive. * sem_disp.adb (Check_Dispatching_Operation): Call Register_Primitive on an overriding operation that implements an interface operation only if not building static dispatch tables. 2009-04-15 Hristian Kirtchev <kirtchev@adacore.com> * a-caldel-vms.adb (To_Duration): Declare a "safe" end of time which does not cause overflow when converted to Duration. Use the safe value as the maximum allowable time delay.. 2009-04-15 Jerome Lambourg <lambourg@adacore.com> * g-comlin.adb (Set_Command_Line): When adding a switch with attached parameter, specify that the delimiter is NUL, otherwise "-j2" will be translated to "-j 2". 2009-04-15 Bob Duff <duff@adacore.com> * rtsfind.adb (Maybe_Add_With): Split out procedure to add implicit with_clauses, to avoid code duplication. Change this processing so we always add a with_clause on the main unit if needed. From-SVN: r146102
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
-rw-r--r--gcc/ada/exp_ch6.adb5
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 2cd2f10..4bab3d2 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -4911,9 +4911,8 @@ package body Exp_Ch6 is
Register_Predefined_DT_Entry (Subp);
end if;
- Register_Primitive (Loc,
- Prim => Subp,
- Ins_Nod => N);
+ Insert_Actions_After (N,
+ Register_Primitive (Loc, Prim => Subp));
end if;
end if;
end;