This is the mail archive of the
mailing list for the GCC project.
r128335 - /trunk/gcc/ada/exp_ch3.adb
- From: charlet at gcc dot gnu dot org
- To: gcc-cvs at gcc dot gnu dot org
- Date: Mon, 10 Sep 2007 12:48:35 -0000
- Subject: r128335 - /trunk/gcc/ada/exp_ch3.adb
Date: Mon Sep 10 12:48:35 2007
New Revision: 128335
2007-09-10 Gary Dismukes <email@example.com>
Thomas Quinot <firstname.lastname@example.org>
* exp_ch3.adb (Predef_Spec_Or_Body): When the type is abstract, only
create an abstract subprogram in the case of 'Input. For 'Output we now
create a real spec/body when the type is abstract, since it can
potentially be called.
(Predefined_Primitive_Bodies): Now allow the creation of a predefined
body for 'Output when the type is abstract (only the creation of the
body for 'Input is excluded when the type is abstract).
(Stream_Operation_OK): Add an additional condition in the return
statement, so that False will be returned for TTS_Stream_Input if the
associated tagged type is an abstract extension. Add comments for
(Expand_N_Object_Declaration): For the case of a shared passive
variable, insert init proc call only after the shared variable
procedures have been processed, because the IP call needs to undergo
shared passive variable reference expansion, which requires these
procedures to be available (and elaborated).