2009-09-16 Thomas Quinot <quinot@adacore.com>

[thirdparty/gcc.git] / gcc / ada / s-oscons-tmplt.c

diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c
index a2ae16e35c3082112ee56fd670da116be8a81782..bce8648209b53aec0cd534e4b72c281cf0bc7c5a 100644 (file)
--- 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 ";")
 /*
 
    -------------------