diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-09-16 14:30:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-09-16 14:30:39 +0200 |
| commit | 75a648339844b6eeaef9553841766448e43b63fd (patch) | |
| tree | 3b8e0a0e73a769e176fefad050be04b6ff2e0cd8 /gcc/ada/s-oscons-tmplt.c | |
| parent | bac7206de028db55def3c7ec5c9b21169bb2fc20 (diff) | |
| download | gcc-75a648339844b6eeaef9553841766448e43b63fd.zip gcc-75a648339844b6eeaef9553841766448e43b63fd.tar.gz gcc-75a648339844b6eeaef9553841766448e43b63fd.tar.bz2 | |
[multiple changes]
2009-09-16 Thomas Quinot <quinot@adacore.com>
* freeze.adb, exp_intr.adb (Expand_Intrinsic_Call): Leave calls to
intrinsics untouched (to be expanded later on by gigi) if an external
name has been specified.
(Freeze_Entity): Do not generate a default external name for
imported subprograms with convention Intrinsic (so that the above code
can identify the case where an external name has been explicitly
provided).
* s-oscons-tmplt.c: Quote TARGET_OS early so that it is not erroneously
replaced by something else due to an existing #define clause.
2009-09-16 Ed Schonberg <schonberg@adacore.com>
* sinfo.ads, sinfo.adb (Is_Accessibility_Actual): New flag on
Parameter_Association node, created for the extra actual generated for
an access parameter of a function that dispatches on result, to prevent
double generation of such actuals when the call is rewritten is a
dispatching call.
* exp_ch6.adb (Expand_Call): Set Is_Accessibility_Actual when needed.
* exp_disp.adb (Expand_Dispatching_Call): Do not transfer extra actuals
that carry this flag when rewriting the original call as a dispatching
call, after propagating the controlling tag.
2009-09-16 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Add_Source): New parameter Source_Dir_Rank to be put
in the source data.
(Check_File): New parameter Source_Dir_Rank, to check if a duplicate
source is allowed.
(Find_Source_Dirs): New parameter Rank to be recorded with the source
directories.
(Search_Directories): Call Check_File with the rank of the directory
* prj.adb (Project_Empty): Add new component Source_Dir_Ranks
(Free): Free also Number_Lists
(Reset): Init also Number_Lists
* prj.ads (Number_List_Table): New dynamic table for lists of numbers
(Source_Data): New component Source_Dir_Rank. Remove component
Known_Order_Of_Source_Dirs, no longer needed.
(Project_Data): New component Source_Dir_Ranks
(Project_Tree_Data): New components Number_Lists
From-SVN: r151749
Diffstat (limited to 'gcc/ada/s-oscons-tmplt.c')
| -rw-r--r-- | gcc/ada/s-oscons-tmplt.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c index a2ae16e..bce8648 100644 --- a/gcc/ada/s-oscons-tmplt.c +++ b/gcc/ada/s-oscons-tmplt.c @@ -231,13 +231,13 @@ TXT(" Target_Name : constant String := " STR(TARGET) ";") type Target_OS_Type is (Windows, VMS, Other_OS); */ #if defined (__MINGW32__) -# define TARGET_OS Windows +# define TARGET_OS "Windows" #elif defined (__VMS) -# define TARGET_OS VMS +# define TARGET_OS "VMS" #else -# define TARGET_OS Other_OS +# define TARGET_OS "Other_OS" #endif -TXT(" Target_OS : constant Target_OS_Type := " STR(TARGET_OS) ";") +TXT(" Target_OS : constant Target_OS_Type := " TARGET_OS ";") /* ------------------- |