gdb/testsuite/gdb.base/foll-exec.c

   1 /* This test program is part of GDB, the GNU debugger.
   2
   3    Copyright 1997-2019 Free Software Foundation, Inc.
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  17
  18 #include <stdio.h>
  19 #include <stdlib.h>
  20 #include <unistd.h>
  21 #include <string.h>
  22
  23 #include <limits.h>
  24
  25 int global_i = 100;
  26
  27 int main (int argc, char ** argv)
  28 {
  29   int local_j = global_i + 1;
  30   int local_k = local_j + 1;
  31   char prog[PATH_MAX];
  32   int len;
  33
  34   printf ("foll-exec is about to execlp(execd-prog)...\n");
  35
  36   strcpy (prog, argv[0]);
  37   len = strlen (prog);
  38   /* Replace "foll-exec" with "execd-prog".  */
  39   memcpy (prog + len - 9, "execd-prog", 10);
  40   prog[len + 1] = 0;
  41
  42   execlp (prog, /* tbreak-execlp */
  43           prog,
  44           "execlp arg1 from foll-exec",
  45           (char *) 0);
  46
  47   printf ("foll-exec is about to execl(execd-prog)...\n");
  48
  49   execl (prog,  /* tbreak-execl */
  50          prog,
  51          "execl arg1 from foll-exec",
  52          "execl arg2 from foll-exec",
  53          (char *) 0);
  54
  55   {
  56     static char * argv[] = {
  57       (char *) "",
  58       (char *) "execv arg1 from foll-exec",
  59       (char *) 0};
  60
  61     argv[0] = prog;
  62
  63     printf ("foll-exec is about to execv(execd-prog)...\n");
  64
  65     execv (prog, argv); /* tbreak-execv */
  66   }
  67 }