diff options
Diffstat (limited to 'gcc/ada/cstreams.c')
| -rw-r--r-- | gcc/ada/cstreams.c | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/ada/cstreams.c b/gcc/ada/cstreams.c index e4e6147..cdcb531 100644 --- a/gcc/ada/cstreams.c +++ b/gcc/ada/cstreams.c @@ -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 @@ __gnat_full_name (char *nam, char *buffer) 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 |