Mercurial > hg > CbC > CbC_gcc
diff gcc/ada/sysdep.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line diff
--- a/gcc/ada/sysdep.c Fri Oct 27 22:46:09 2017 +0900 +++ b/gcc/ada/sysdep.c Thu Oct 25 07:37:49 2018 +0900 @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2017, Free Software Foundation, Inc. * + * Copyright (C) 1992-2018, 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- * @@ -317,7 +317,8 @@ || defined (__MACHTEN__) || defined (__hpux__) || defined (_AIX) \ || (defined (__svr4__) && defined (__i386__)) || defined (__Lynx__) \ || defined (__CYGWIN__) || defined (__FreeBSD__) || defined (__OpenBSD__) \ - || defined (__GLIBC__) || defined (__APPLE__) || defined (__DragonFly__) + || defined (__GLIBC__) || defined (__APPLE__) || defined (__DragonFly__) \ + || defined (__QNX__) # ifdef __MINGW32__ # if OLD_MINGW @@ -369,7 +370,8 @@ || defined (__CYGWIN32__) || defined (__MACHTEN__) || defined (__hpux__) \ || defined (_AIX) || (defined (__svr4__) && defined (__i386__)) \ || defined (__Lynx__) || defined (__FreeBSD__) || defined (__OpenBSD__) \ - || defined (__GLIBC__) || defined (__APPLE__) || defined (__DragonFly__) + || defined (__GLIBC__) || defined (__APPLE__) || defined (__DragonFly__) \ + || defined (__QNX__) char c; int nread; int good_one = 0; @@ -389,7 +391,8 @@ || defined (__MACHTEN__) || defined (__hpux__) \ || defined (_AIX) || (defined (__svr4__) && defined (__i386__)) \ || defined (__Lynx__) || defined (__FreeBSD__) || defined (__OpenBSD__) \ - || defined (__GLIBC__) || defined (__APPLE__) || defined (__DragonFly__) + || defined (__GLIBC__) || defined (__APPLE__) || defined (__DragonFly__) \ + || defined (__QNX__) eof_ch = termios_rec.c_cc[VEOF]; /* If waiting (i.e. Get_Immediate (Char)), set MIN = 1 and wait for @@ -826,7 +829,7 @@ #elif defined (__APPLE__) || defined (__FreeBSD__) || defined (__linux__) \ || defined (__GLIBC__) || defined (__DragonFly__) || defined (__OpenBSD__) \ - || defined (__DJGPP__) + || defined (__DJGPP__) || defined (__QNX__) { localtime_r (timer, &tp); *off = tp.tm_gmtoff; @@ -1046,3 +1049,21 @@ return getpagesize (); } #endif + +int +__gnat_name_case_equivalence () +{ + /* the values here must be synchronized with Ada.Directories.Name_Case_Kind: + + Unknown = 0 + Case_Sensitive = 1 + Case_Insensitive = 2 + Case_Preserving = 3 */ + +#if defined (__APPLE__) || defined (WIN32) + return 3; +#else + return 1; +#endif +} +