Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/cstreams.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 * * 4 * *
5 * C S T R E A M S * 5 * C S T R E A M S *
6 * * 6 * *
7 * Auxiliary C functions for Interfaces.C.Streams * 7 * Auxiliary C functions for Interfaces.C.Streams *
8 * * 8 * *
9 * Copyright (C) 1992-2017, Free Software Foundation, Inc. * 9 * Copyright (C) 1992-2018, Free Software Foundation, Inc. *
10 * * 10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under * 11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- * 12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- * 13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- * 14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
196 on those Unix systems that support it. Note that GNU/Linux provides it but 196 on those Unix systems that support it. Note that GNU/Linux provides it but
197 cannot handle more than 5 symbolic links in a full name, so we use the 197 cannot handle more than 5 symbolic links in a full name, so we use the
198 getcwd approach instead. */ 198 getcwd approach instead. */
199 realpath (nam, buffer); 199 realpath (nam, buffer);
200 200
201 #elif defined (__QNX__)
202
203 int length;
204
205 if (__gnat_is_absolute_path (nam, strlen (nam)))
206 realpath (nam, buffer);
207 else
208 {
209 length = __gnat_max_path_len;
210 __gnat_get_current_dir (buffer, &length);
211 strncat (buffer, nam, __gnat_max_path_len - length - 1);
212 }
213
201 #elif defined (__vxworks) 214 #elif defined (__vxworks)
202 215
203 /* On VxWorks systems, an absolute path can be represented (depending on 216 /* On VxWorks systems, an absolute path can be represented (depending on
204 the host platform) as either /dir/file, or device:/dir/file, or 217 the host platform) as either /dir/file, or device:/dir/file, or
205 device:drive_letter:/dir/file. Use the __gnat_is_absolute_path 218 device:drive_letter:/dir/file. Use the __gnat_is_absolute_path