URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [mingw32.h] - Rev 297
Go to most recent revision | Compare with Previous | Blame | View Log
/**************************************************************************** * * * GNAT COMPILER COMPONENTS * * * * M I N G W 3 2 * * * * C Header File * * * * Copyright (C) 2002-2009, 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- * * ware Foundation; either version 3, or (at your option) any later ver- * * sion. GNAT is distributed in the hope that it will be useful, but WITH- * * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY * * or FITNESS FOR A PARTICULAR PURPOSE. * * * * As a special exception under Section 7 of GPL version 3, you are granted * * additional permissions described in the GCC Runtime Library Exception, * * version 3.1, as published by the Free Software Foundation. * * * * You should have received a copy of the GNU General Public License and * * a copy of the GCC Runtime Library Exception along with this program; * * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see * * <http://www.gnu.org/licenses/>. * * * * GNAT was originally developed by the GNAT team at New York University. * * Extensive contributions were provided by Ada Core Technologies Inc. * * * ****************************************************************************/ /* This file provides some macros used for the MINGW32 platform. The main goal is to be able to build GNAT with a standard MINGW32 C header set. This files contains also the circuitry for the unicode support. */ #ifndef _MINGW32_H #define _MINGW32_H #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)) #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 /* We need functionality available only starting with Windows XP */ #ifndef _WIN32_WINNT #define _WIN32_WINNT 0x0501 #endif #include <tchar.h> #include <windows.h> /* After including this file it is possible to use the character t as prefix to routines. If GNAT_UNICODE_SUPPORT is defined then the unicode enabled versions will be used. */ /* Copy to/from wide-string, if GNAT_UNICODE_SUPPORT activated this will do the proper translations using the UTF-8 encoding. */ #ifdef GNAT_UNICODE_SUPPORT extern UINT CurrentCodePage; /* Macros to convert to/from the code page speficied in CurrentCodePage. */ #define S2WSC(wstr,str,len) \ MultiByteToWideChar (CurrentCodePage,0,str,-1,wstr,len) #define WS2SC(str,wstr,len) \ WideCharToMultiByte (CurrentCodePage,0,wstr,-1,str,len,NULL,NULL) /* Macros to convert to/from UTF-8 code page. */ #define S2WSU(wstr,str,len) \ MultiByteToWideChar (CP_UTF8,0,str,-1,wstr,len) #define WS2SU(str,wstr,len) \ WideCharToMultiByte (CP_UTF8,0,wstr,-1,str,len,NULL,NULL) /* Macros to convert to/from Windows default code page. */ #define S2WS(wstr,str,len) \ MultiByteToWideChar (CP_ACP,0,str,-1,wstr,len) #define WS2S(str,wstr,len) \ WideCharToMultiByte (CP_ACP,0,wstr,-1,str,len,NULL,NULL) #else #define S2WSC(wstr,str,len) strncpy(wstr,str,len) #define WS2SC(str,wstr,len) strncpy(str,wstr,len) #define S2WSU(wstr,str,len) strncpy(wstr,str,len) #define WS2SU(str,wstr,len) strncpy(str,wstr,len) #define S2WS(wstr,str,len) strncpy(wstr,str,len) #define WS2S(str,wstr,len) strncpy(str,wstr,len) #endif #include <stdlib.h> /* STD_MINGW: standard if MINGW32 version > 1.3, we have switched to this version instead of the previous enhanced version to ease building GNAT on Windows platforms. By using STD_MINGW or OLD_MINGW it is possible to build GNAT using both MingW include files (Old MingW + ACT changes and standard MingW starting with version 1.3. For w64 Mingw the define STD_MINGW is always set to value 1, because there is no old header set present. */ #ifdef _WIN64 #define STD_MINGW 1 #else #define STD_MINGW ((__MINGW32_MAJOR_VERSION == 1 \ && __MINGW32_MINOR_VERSION >= 3) \ || (__MINGW32_MAJOR_VERSION >= 2)) #endif #define OLD_MINGW (!(STD_MINGW)) #ifndef MAXPATHLEN #define MAXPATHLEN MAX_PATH #endif #endif /* _MINGW32_H */
Go to most recent revision | Compare with Previous | Blame | View Log