From e7fceebce65739f184ad8e090d0fac712336df34 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 19 Sep 2011 10:31:55 +0200 Subject: [multiple changes] 2011-09-19 Robert Dewar * err_vars.ads, errout.ads: Minor reformatting. 2011-09-19 Robert Dewar * aspects.ads (Impl_Defined_Aspects): New array * lib-writ.adb (No_Dependences): New name for No_Dependence * restrict.adb (No_Dependences): New name for No_Dependence (Check_Restriction_No_Specification_Of_Aspect): New procedure. (Set_Restriction_No_Specification_Of_Aspect): New procedure (Restricted_Profile_Result): New variable (No_Specification_Of_Aspects): New variable (No_Specification_Of_Aspect_Warning): New variable * restrict.ads (No_Dependences): New name for No_Dependence (Check_Restriction_No_Specification_Of_Aspect): New procedure (Set_Restriction_No_Specification_Of_Aspect): New procedure * s-rident.ads: Add restriction No_Implementation_Aspect_Specifications, this is also added to the No_Implementation_Extensions profile. * sem_ch13.adb (Analyze_Aspect_Specifications): Check No_Implementation_Defined_Aspects (Analyze_Aspect_Specifications): Check No_Specification_Of_Aspect * sem_prag.adb (Analyze_Aspect_Specifications): Check No_Implementation_Aspects (Analyze_Aspect_Specifications): Check No_Specification_Of_Aspect * snames.ads-tmpl (Name_No_Specification_Of_Aspect): New name 2011-09-19 Yannick Moy * lib-xref.adb (Generate_Reference): Take into account multiple renamings for Alfa refs. 2011-09-19 Thomas Quinot * g-socthi-mingw.adb: Minor reformatting. 2011-09-19 Yannick Moy * gnat1drv.adb (Adjust_Global_Switches): Set tagged type expansion to False in mode Alfa 2011-09-19 Pascal Obry * mingw32.h: Remove obsolete code needed for old versions of MingW. From-SVN: r178959 --- gcc/ada/mingw32.h | 24 ++---------------------- 1 file changed, 2 insertions(+), 22 deletions(-) (limited to 'gcc/ada/mingw32.h') diff --git a/gcc/ada/mingw32.h b/gcc/ada/mingw32.h index bee4585..67bfd2c 100644 --- a/gcc/ada/mingw32.h +++ b/gcc/ada/mingw32.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 2002-2009, Free Software Foundation, Inc. * + * Copyright (C) 2002-2011, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -38,28 +38,8 @@ #include <_mingw.h> -/* The unicode support is activated by default starting with the 3.9 MingW - version. It is not possible to use it with previous version due to a bug - in the MingW runtime. */ - -#if (((__MINGW32_MAJOR_VERSION == 3 \ - && __MINGW32_MINOR_VERSION >= 9) \ - || (__MINGW32_MAJOR_VERSION >= 4) \ - || defined (__MINGW64)) \ - && !defined (RTX)) +#ifndef RTX #define GNAT_UNICODE_SUPPORT - -#else - -/* Older MingW versions have no definition for _tfreopen, add it here to have a - proper build without unicode support. */ -#ifndef _tfreopen -#define _tfreopen freopen -#endif - -#endif - -#ifdef GNAT_UNICODE_SUPPORT #define _UNICODE /* For C runtime */ #define UNICODE /* For Win32 API */ #endif -- cgit v1.1