gdb/testsuite/gdb.trace/actions.c

   1 /* This testcase is part of GDB, the GNU debugger.
   2
   3    Copyright 1998-2016 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 /*
  19  * Test program for trace action commands
  20  */
  21
  22 #include <string.h>
  23
  24 #include "trace-common.h"
  25
  26 static char   gdb_char_test;
  27 static short  gdb_short_test;
  28 static long   gdb_long_test;
  29 static char   gdb_arr_test[25];
  30 static struct GDB_STRUCT_TEST
  31 {
  32   char   c;
  33   short  s;
  34   long   l;
  35   int    bfield : 11;   /* collect bitfield */
  36   char   arr[25];
  37   struct GDB_STRUCT_TEST *next;
  38 } gdb_struct1_test, gdb_struct2_test, *gdb_structp_test, **gdb_structpp_test;
  39
  40 static union GDB_UNION_TEST
  41 {
  42   char   c;
  43   short  s;
  44   long   l;
  45   int    bfield : 11;   /* collect bitfield */
  46   char   arr[4];
  47   union GDB_UNION_TEST *next;
  48 } gdb_union1_test;
  49
  50 void gdb_recursion_test (int, int, int, int,  int,  int,  int);
  51
  52 void gdb_recursion_test (int depth,
  53                          int q1,
  54                          int q2,
  55                          int q3,
  56                          int q4,
  57                          int q5,
  58                          int q6)
  59 {       /* gdb_recursion_test line 0 */
  60   int q = q1;                                           /* gdbtestline 1 */
  61
  62   q1 = q2;                                              /* gdbtestline 2 */
  63   q2 = q3;                                              /* gdbtestline 3 */
  64   q3 = q4;                                              /* gdbtestline 4 */
  65   q4 = q5;                                              /* gdbtestline 5 */
  66   q5 = q6;                                              /* gdbtestline 6 */
  67   q6 = q;                                               /* gdbtestline 7 */
  68   if (depth--)                                          /* gdbtestline 8 */
  69     gdb_recursion_test (depth, q1, q2, q3, q4, q5, q6); /* gdbtestline 9 */
  70 }
  71
  72
  73 unsigned long   gdb_c_test( unsigned long *parm )
  74
  75 {
  76    char *p = "gdb_c_test";
  77    char *ridiculously_long_variable_name_with_equally_long_string_assignment;
  78    register long local_reg = 7;
  79    static unsigned long local_static, local_static_sizeof;
  80    long local_long;
  81    unsigned long *stack_ptr;
  82    unsigned long end_of_stack;
  83
  84    ridiculously_long_variable_name_with_equally_long_string_assignment =
  85      "ridiculously long variable name with equally long string assignment";
  86    local_static = 9;
  87    local_static_sizeof = sizeof (struct GDB_STRUCT_TEST);
  88    local_long = local_reg + 1;
  89    stack_ptr  = (unsigned long *) &local_long;
  90    end_of_stack =
  91      (unsigned long) &stack_ptr + sizeof(stack_ptr) + sizeof(end_of_stack) - 1;
  92
  93    gdb_char_test   = gdb_struct1_test.c = (char)   ((long) parm[1] & 0xff);
  94    gdb_short_test  = gdb_struct1_test.s = (short)  ((long) parm[2] & 0xffff);
  95    gdb_long_test   = gdb_struct1_test.l = (long)   ((long) parm[3] & 0xffffffff);
  96    gdb_union1_test.l = (long) parm[4];
  97    gdb_arr_test[0] = gdb_struct1_test.arr[0] = (char) ((long) parm[1] & 0xff);
  98    gdb_arr_test[1] = gdb_struct1_test.arr[1] = (char) ((long) parm[2] & 0xff);
  99    gdb_arr_test[2] = gdb_struct1_test.arr[2] = (char) ((long) parm[3] & 0xff);
 100    gdb_arr_test[3] = gdb_struct1_test.arr[3] = (char) ((long) parm[4] & 0xff);
 101    gdb_arr_test[4] = gdb_struct1_test.arr[4] = (char) ((long) parm[5] & 0xff);
 102    gdb_arr_test[5] = gdb_struct1_test.arr[5] = (char) ((long) parm[6] & 0xff);
 103    gdb_struct1_test.bfield = 144;
 104    gdb_struct1_test.next = &gdb_struct2_test;
 105    gdb_structp_test      = &gdb_struct1_test;
 106    gdb_structpp_test     = &gdb_structp_test;
 107
 108    gdb_recursion_test (3, (long) parm[1], (long) parm[2], (long) parm[3],
 109                        (long) parm[4], (long) parm[5], (long) parm[6]);
 110
 111    gdb_char_test = gdb_short_test = gdb_long_test = 0;
 112    gdb_structp_test  = (void *) 0;
 113    gdb_structpp_test = (void *) 0;
 114    memset ((char *) &gdb_struct1_test, 0, sizeof (gdb_struct1_test));
 115    memset ((char *) &gdb_struct2_test, 0, sizeof (gdb_struct2_test));
 116    local_static_sizeof = 0;
 117    local_static = 0;
 118    return ( (unsigned long) 0 );
 119 }
 120
 121 void gdb_asm_test (void)
 122 {
 123 }
 124
 125 static void begin ()    /* called before anything else */
 126 {
 127 }
 128
 129 static void end ()      /* called after everything else */
 130 {
 131 }
 132
 133 int
 134 main (argc, argv, envp)
 135      int argc;
 136      char *argv[], **envp;
 137 {
 138   int i;
 139   unsigned long myparms[10];
 140
 141   FAST_TRACEPOINT_LABEL (fast_tracepoint_loc);
 142
 143   begin ();
 144   for (i = 0; i < sizeof (myparms) / sizeof (myparms[0]); i++)
 145     myparms[i] = i;
 146
 147   gdb_c_test (&myparms[0]);
 148
 149   end ();
 150   return 0;
 151 }
 152