coregrind/link_tool_exe_linux.in

   1 #! @PERL@
   2
   3 # This script handles linking the tool executables on Linux,
   4 # statically and at an alternative load address.
   5 #
   6 # Linking statically sidesteps all sorts of complications to do with
   7 # having two copies of the dynamic linker (valgrind's and the
   8 # client's) coexisting in the same process.  The alternative load
   9 # address is needed because Valgrind itself will load the client at
  10 # whatever address it specifies, which is almost invariably the
  11 # default load address.  Hence we can't allow Valgrind itself (viz,
  12 # the tool executable) to be loaded at that address.
  13 #
  14 # Unfortunately there's no standard way to do 'static link at
  15 # alternative address', so these link_tool_exe_*.in scripts handle
  16 # the per-platform hoop-jumping.
  17 #
  18 # What we get passed here is:
  19 #   first arg
  20 #      the alternative load address
  21 #   all the rest of the args
  22 #      the gcc invokation to do the final link, that
  23 #      the build system would have done, left to itself
  24 #
  25 # We just let the script 'die' if something is wrong, rather than do
  26 # proper error reporting.  We don't expect the users to run this
  27 # directly.  It is only run as part of the build process, with
  28 # carefully constrained inputs.
  29 #
  30 # Linux specific complications:
  31 #
  32 # - need to support both old GNU ld and gold: use -Ttext= to
  33 #   set the text segment address if that is all we have. We really
  34 #   need -Ttext-segment. Otherwise with GNU ld sections or notes
  35 #   (like the build-id) don't get at the desired address. But older
  36 #   linkers only know about -Ttext, not -Ttext-segment. So configure
  37 #   checks for us and sets FLAG_T_TEXT.
  38 #
  39 # - If all we have is -Ttext, then we need to pass --build-id=none
  40 #   (that is, -Wl,--build-id=none to gcc) if it accepts it, to ensure
  41 #   the linker doesn't add a notes section which ends up at the default
  42 #   load address and so defeats our attempts to keep that address clear
  43 #   for the client.  However, older linkers don't support this flag,
  44 #   so it is tested for by configure.in and is shipped to us as part of
  45 #   argv[2 ..].
  46 #
  47 # So: what we actually do:
  48 #
  49 #   pass the specified command to the linker as-is, except, add
  50 #   "-static" and "-Ttext[-segment]=<argv[1]>" to it.
  51 #   Previously we did this by adding these options after the first
  52 #   word of the rest of the arguments, which works in the common case
  53 #   when it's something like "gcc". But the linker invocation itself
  54 #   might be multiple words, say if it's "ccache gcc". So we now put
  55 #   the new options at the end instead.
  56 #
  57
  58 use warnings;
  59 use strict;
  60
  61 # expect at least: alt-load-address gcc -o foo bar.o
  62 die "Not enough arguments"
  63     if (($#ARGV + 1) < 5);
  64
  65 my $ala = $ARGV[0];
  66 shift; # Remove $ala from @ARGV
  67
  68 # check for plausible-ish alt load address
  69 die "Bogus alt-load address"
  70     if (length($ala) < 3 || index($ala, "0x") != 0);
  71
  72 # For mips32 or mips64 we need to use "--section-start=.reginfo=$ala" or
  73 # "--section-start=.MIPS.options=$ala" respectively, because "-Ttext=$ala" will
  74 # not put all the sections to the specificed address ($ala).
  75 my $x = `cat ../config.log 2>&1 | grep host_cpu= | sed "s/host_cpu='//g"`;
  76 my $arch = substr($x, 0, index($x, "'"));
  77
  78 my $extra_args;
  79 if (($arch eq 'mips') || ($arch eq 'mipsel')
  80     || ($arch eq 'mipsisa32r2el')) {
  81    $extra_args = "-static -Wl,--section-start=.reginfo=$ala";
  82 } elsif (($arch eq 'mips64') || ($arch eq 'mips64el') ||
  83          ($arch eq 'mipsisa64el')) {
  84    $extra_args = "-static -Wl,--section-start=.MIPS.options=$ala";
  85 } else {
  86    $extra_args = "-static -Wl,@FLAG_T_TEXT@=$ala";
  87 }
  88
  89 my $cmd = join(" ", @ARGV, $extra_args);
  90
  91 #print "link_tool_exe_linux: $cmd\n";
  92
  93
  94 # Execute the command:
  95 my $r = system($cmd);
  96
  97 if ($r == 0) {
  98     exit 0;
  99 } else {
 100     exit 1;
 101 }