diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2005-03-29 18:15:45 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-29 18:15:45 +0200 |
| commit | d239991ff65181a5e81cd9e103f5543f1904c042 (patch) | |
| tree | e6b0e275d222d8952cb61f29f30b8e056a79aee2 /gcc/ada/Makefile.rtl | |
| parent | c857f5ed55dd4f8f02892da3c79a595b39e376e5 (diff) | |
| download | gcc-d239991ff65181a5e81cd9e103f5543f1904c042.tar.gz | |
re PR ada/20300 (ICE on undefined value of type derived from Character)
2005-03-29 Gary Dismukes <dismukes@adacore.com>
Robert Dewar <dewar@adacore.com>
* exp_intr.adb (Expand_Dispatching_Constructor_Call): New procedure to
expand a call to an instance of
Ada.Tags.Generic_Dispatching_Constructor into a dispatching call to the
Constructor actual of the instance. A class-wide membership
check is also generated, to ensure that the tag passed to the instance
denotes a type in the class.
(Expand_Intrinsic_Call): Call Expand_Dispatching_Constructor in the case
of Name_Generic_Dispatching_Constructor.
* Makefile.rtl: Add a-tgdico.ads to the list of library units (new Ada
05 unit for AI-260-02).
* a-tgdico.ads: New file.
* impunit.adb (Non_Imp_File_Names_05): Add entry "a-tgdico" for new
predefined Ada 05 generic unit Ada.Tags.Generic_Dispatching_Constructor.
* snames.ads, snames.adb (Preset_Names): Add entry for
Generic_Dispatching_Constructor.
PR ada/20300
* sem_ch8.adb (Find_Direct_Name): Go to root type for check of
character type cases.
(Analyze_Subprogram_Renaming): Add special handling for
the case of renaming of stream attributes when the renaming denotes a
generic formal subprogram association for an abstract formal subprogram.
Check that the attribute is a primitive stream attribute (and not
a class-wide stream attribute) and then rewrite the attribute name
as the name of the appropriate compiler-generated stream primitive.
From-SVN: r97172
Diffstat (limited to 'gcc/ada/Makefile.rtl')
| -rw-r--r-- | gcc/ada/Makefile.rtl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/Makefile.rtl b/gcc/ada/Makefile.rtl index 282cbff9569..7687c33e6bc 100644 --- a/gcc/ada/Makefile.rtl +++ b/gcc/ada/Makefile.rtl @@ -212,6 +212,7 @@ GNATRTL_NONTASKING_OBJS= \ a-szunha$(objext) \ a-szuzti$(objext) \ a-tags$(objext) \ + a-tgdico$(objext) \ a-teioed$(objext) \ a-textio$(objext) \ a-ticoau$(objext) \ |