[Bug ada/30560] New: gnatchop behaves differently dependend on argv[0] -- make check-ada fails

[Bug ada/30560] New: gnatchop behaves differently dependend on argv[0] -- make check-ada fails

[rguenth at gcc dot gnu dot org]

I have

lrwxrwxrwx 1 root root     12 Jan 22 14:54 /usr/bin/gnatchop -> gnatchop-4.1
-rwxr-xr-x 1 root root 285224 Nov 25 12:24 /usr/bin/gnatchop-4.1

calling

> gnatchop x.adb

works as expected, calling

> gnatchop-4.1 x.adb

does not (PR29127), and

> /usr/bin/gnatchop x.adb

doesn't work either!  (which breaks the acats host_gnatchop script)

It looks like gnatchop follows symlinks on each path component if
argv[0] is not gnatchop.  From strace of the last case:

execve("/usr/bin/gnatchop", ["/usr/bin/gnatchop", "support/checkfil.ada"], [/*
80 vars */]) = 0
...
getcwd("/abuild/rguenther/obj/gcc/testsuite/ada/acats", 4096) = 46
readlink("/usr", 0x7fff76f33480, 4098)  = -1 EINVAL (Invalid argument)
readlink("/usr/bin", 0x7fff76f33480, 4098) = -1 EINVAL (Invalid argument)
stat("support/checkfil.ada", {st_mode=S_IFREG|0644, st_size=7893, ...}) = 0
stat("support/checkfil.ada", {st_mode=S_IFREG|0644, st_size=7893, ...}) = 0
getcwd("/abuild/rguenther/obj/gcc/testsuite/ada/acats", 4096) = 46
readlink("/usr", 0x7fff76f332c0, 4098)  = -1 EINVAL (Invalid argument)
readlink("/usr/bin", 0x7fff76f332c0, 4098) = -1 EINVAL (Invalid argument)
readlink("/usr/bin/gnatchop", "gnatchop-4.1", 4098) = 12
readlink("/usr/bin/gnatchop-4.1", 0x7fff76f332c0, 4098) = -1 EINVAL (Invalid
argument)
stat("/usr/bin/gnatchop-gcc", 0x7fff76f362c0) = -1 ENOENT (No such file or
directory)
stat("/usr/local/bin/gnatchop-gcc", 0x7fff76f362c0) = -1 ENOENT (No such file
or directory)
stat("/usr/bin/gnatchop-gcc", 0x7fff76f362c0) = -1 ENOENT (No such file or
direc
...

This causes make check-ada to fail like

                === acats support ===
Generating support files...gnatmake --GCC="/abuild/rguenther/obj/gcc/xgcc
-B/abuild/rguenther/obj/gcc/" -gnatws -O2
/space/rguenther/src/svn/trunk/gcc/testsuite/ada/acats/support/impbit.adb
-largs --GCC="/abuild/rguenther/obj/gcc/xgcc -B/abuild/rguenther/obj/gcc/"
/abuild/rguenther/obj/gcc/xgcc -c
-I/space/rguenther/src/svn/trunk/gcc/testsuite/ada/acats/support/
-B/abuild/rguenther/obj/gcc/ -gnatws -O2 -I-
/space/rguenther/src/svn/trunk/gcc/testsuite/ada/acats/support/impbit.adb
gnatbind -x impbit.ali
gnatlink impbit.ali --GCC=/abuild/rguenther/obj/gcc/xgcc
-B/abuild/rguenther/obj/gcc/
target_bit= 64
target_insn=nop
gnatchop-gcc: installation problem, executable not found
no source files written
gnatchop-gcc: installation problem, executable not found
no source files written
...


-- 
           Summary: gnatchop behaves differently dependend on argv[0] --
                    make check-ada fails
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: rguenth at gcc dot gnu dot org
OtherBugsDependingO 29127
             nThis:


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30560

[Bug ada/30560] gnatchop behaves differently dependend on argv[0] -- make check-ada fails

[rguenth at gcc dot gnu dot org]

------- Comment #1 from rguenth at gcc dot gnu dot org  2007-01-23 17:09 -------
The testsuite is fixed by the following which should be safe because we're
adding the path of $host_gnat* to PATH first.

Index: run_acats
===================================================================
--- run_acats   (revision 121081)
+++ run_acats   (working copy)
@@ -40,7 +40,7 @@ echo '#!/bin/sh' > host_gnatchop
 echo PATH=`dirname $host_gnatchop`:'$PATH' >> host_gnatchop
 echo unset ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC_EXEC_PREFIX >> host_gnatchop
 echo export PATH >> host_gnatchop
-echo exec $host_gnatchop '"$@"' >> host_gnatchop
+echo exec gnatchop '"$@"' >> host_gnatchop

 chmod +x host_gnatchop

@@ -48,7 +48,7 @@ echo '#!/bin/sh' > host_gnatmake
 echo PATH=`dirname $host_gnatmake`:'$PATH' >> host_gnatmake
 echo unset ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC_EXEC_PREFIX >> host_gnatmake
 echo export PATH >> host_gnatmake
-echo exec $host_gnatmake '"$@"' >> host_gnatmake
+echo exec gnatmake '"$@"' >> host_gnatmake

 chmod +x host_gnatmake



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30560

[Bug ada/30560] gnatchop behaves differently dependend on argv[0] -- make check-ada fails

[rguenth at gcc dot gnu dot org]

------- Comment #2 from rguenth at gcc dot gnu dot org  2007-01-23 17:27 -------
Subject: Bug 30560

Author: rguenth
Date: Tue Jan 23 17:27:22 2007
New Revision: 121083

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=121083
Log:
2007-01-23  Richard Guenther  <rguenther@suse.de>

        PR testsuite/30560
        * ada/acats/run_acats: Do not call gnatmake or gnatchop
        with full path.

Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/ada/acats/run_acats


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30560

[Bug ada/30560] gnatchop behaves differently dependend on argv[0] -- make check-ada fails

[sam at gcc dot gnu dot org]

------- Comment #3 from sam at gcc dot gnu dot org  2008-04-12 19:27 -------
Bug fixed but not closed. Closing it.


-- 

sam at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30560