]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
[Ada] qnx-7.1: ACATS cxag001 failure on qnx - realpath
authorDoug Rupp <rupp@adacore.com>
Wed, 8 Jun 2022 14:39:16 +0000 (07:39 -0700)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 5 Jul 2022 08:28:20 +0000 (08:28 +0000)
The implementation of __gnat_full_name uses the CRTL realpath, however
this function returns a null string so use the default implementation
instead.

gcc/ada/

* cstreams.c (__gnat_full_name) [QNX]: Remove block.

gcc/ada/cstreams.c

index 48f996d09fa68bafe0065677e00d90e720da7c79..10cc3a6faf894b228670497cd30c939de3078ad3 100644 (file)
@@ -202,19 +202,6 @@ __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