Mercurial > hg > CbC > CbC_gcc
diff gcc/ada/cstreams.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/cstreams.c Fri Oct 27 22:46:09 2017 +0900 +++ b/gcc/ada/cstreams.c Thu Oct 25 07:37:49 2018 +0900 @@ -6,7 +6,7 @@ * * * Auxiliary C functions for Interfaces.C.Streams * * * - * 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- * @@ -198,6 +198,19 @@ getcwd approach instead. */ realpath (nam, buffer); +#elif defined (__QNX__) + + int length; + + if (__gnat_is_absolute_path (nam, strlen (nam))) + realpath (nam, buffer); + else + { + length = __gnat_max_path_len; + __gnat_get_current_dir (buffer, &length); + strncat (buffer, nam, __gnat_max_path_len - length - 1); + } + #elif defined (__vxworks) /* On VxWorks systems, an absolute path can be represented (depending on