Subversion Repositories scarts

/* Copyright 1999, 2004, 2005, 2007, 2008 Free Software Foundation, Inc.

   This file is part of GDB.

   This program is free software; you can redistribute it and/or modify

   it under the terms of the GNU General Public License as published by

   the Free Software Foundation; either version 3 of the License, or

   (at your option) any later version.

   This program is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License

   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

#include <stdlib.h>

#include <string.h>

struct _simple_struct {

  int integer;

  unsigned int unsigned_integer;

  char character;

  signed char signed_character;

  char *char_ptr;

  int array_of_10[10];

};

typedef struct _simple_struct simpleton;

simpleton global_simple;

enum foo {

  bar = 1,

  baz

};

typedef enum foo efoo;

union named_union

{

  int integer;

  char *char_ptr;

};

typedef struct _struct_decl {

  int   integer;

  char  character;

  char *char_ptr;

  long  long_int;

  int  **int_ptr_ptr;

  long  long_array[12];

  void (*func_ptr) (void);

  struct _struct_decl (*func_ptr_struct) (int, char *, long);

  struct _struct_decl *(*func_ptr_ptr) (int, char *, long);

  union {

    int   a;

    char *b;

    long  c;

    enum foo d;

  } u1;

  struct {

    union {

      struct {

        int d;

        char e[10];

        int *(*func) (void);

        efoo foo;

      } u1s1;

      long f;

      struct {

        char array_ptr[2];

        int (*func) (int, char *);

      } u1s2;

    } u2;

    int g;

    char h;

    long i[10];

  } s2;

} weird_struct;

struct _struct_n_pointer {

  char ****char_ptr;

  long ****long_ptr;

  struct _struct_n_pointer *ptrs[3];

  struct _struct_n_pointer *next;

};

void do_locals_tests (void);

void do_block_tests (void);

void subroutine1 (int, long *);

void nothing (void);

void do_children_tests (void);

void do_special_tests (void);

void incr_a (char);

void incr_a (char a)

{

  int b;

  b = a;

}

void

do_locals_tests ()

{

  int linteger;

  int *lpinteger;

  char lcharacter;

  char *lpcharacter;

  long llong;

  long *lplong;

  float lfloat;

  float *lpfloat;

  double ldouble;

  double *lpdouble;

  struct _simple_struct lsimple;

  struct _simple_struct *lpsimple;

  void (*func) (void);

  /* Simple assignments */

  linteger = 1234;

  lpinteger = &linteger;

  lcharacter = 'a';

  lpcharacter = &lcharacter;

  llong = 2121L;

  lplong = &llong;

  lfloat = 2.1;

  lpfloat = &lfloat;

  ldouble = 2.718281828459045;

  lpdouble = &ldouble;

  lsimple.integer = 1234;

  lsimple.unsigned_integer = 255;

  lsimple.character = 'a';

  lsimple.signed_character = 21;

  lsimple.char_ptr = &lcharacter;

  lpsimple = &lsimple;

  func = nothing;

  /* Check pointers */

  linteger = 4321;

  lcharacter = 'b';

  llong = 1212L;

  lfloat = 1.2;

  ldouble = 5.498548281828172;

  lsimple.integer = 255;

  lsimple.unsigned_integer = 4321;

  lsimple.character = 'b';

  lsimple.signed_character = 0;

  subroutine1 (linteger, &llong);

}

void

nothing ()

{

}

void

subroutine1 (int i, long *l)

{

  global_simple.integer = i + 3;

  i = 212;

  *l = 12;

}

void

do_block_tests ()

{

  int cb = 12;

  {

    int foo;

    foo = 123;

    {

      int foo2;

      foo2 = 123;

      {

        int foo;

        foo = 321;

      }

      foo2 = 0;

    }

    foo = 0;

  }

  cb = 21;

}

void

do_children_tests (void)

{

  weird_struct *weird;

  struct _struct_n_pointer *psnp;

  struct _struct_n_pointer snp0, snp1, snp2;

  char a0[2] = {}, *a1, **a2, ***a3;

  char b0[2] = {}, *b1, **b2, ***b3;

  char c0[2] = {}, *c1, **c2, ***c3;

  long z0, *z1, **z2, ***z3;

  long y0, *y1, **y2, ***y3;

  long x0, *x1, **x2, ***x3;

  int *foo;

  int bar;

  /* Avoid pointing into NULL, as that is editable on some

     systems.  */

  int dummy;

  int *dummy_ptr = &dummy;

  struct _struct_decl struct_declarations = { 0, 0, NULL, 0, &dummy_ptr };

  weird = &struct_declarations;

  struct_declarations.integer = 123;

  weird->char_ptr = "hello";

  bar = 2121;

  foo = &bar;

  struct_declarations.int_ptr_ptr = &foo;

  weird->long_array[0] = 1234;

  struct_declarations.long_array[1] = 2345;

  weird->long_array[2] = 3456;

  struct_declarations.long_array[3] = 4567;

  weird->long_array[4] = 5678;

  struct_declarations.long_array[5] = 6789;

  weird->long_array[6] = 7890;

  struct_declarations.long_array[7] = 8901;

  weird->long_array[8] = 9012;

  struct_declarations.long_array[9] = 1234;

  weird->func_ptr = nothing;

  struct_declarations.long_array[10] = 3456;

  struct_declarations.long_array[11] = 5678;

  /* Struct/pointer/array tests */

  a0[0] = '0';

  a1 = a0;

  a2 = &a1;

  a3 = &a2;

  b0[0] = '1';

  b1 = b0;

  b2 = &b1;

  b3 = &b2;

  c0[1] = '2';

  c1 = c0;

  c2 = &c1;

  c3 = &c2;

  z0 = 0xdead + 0;

  z1 = &z0;

  z2 = &z1;

  z3 = &z2;

  y0 = 0xdead + 1;

  y1 = &y0;

  y2 = &y1;

  y3 = &y2;

  x0 = 0xdead + 2;

  x1 = &x0;

  x2 = &x1;

  x3 = &x2;

  snp0.char_ptr = &a3;

  snp0.long_ptr = &z3;

  snp0.ptrs[0] = &snp0;

  snp0.ptrs[1] = &snp1;

  snp0.ptrs[2] = &snp2;

  snp0.next = &snp1;

  snp1.char_ptr = &b3;

  snp1.long_ptr = &y3;

  snp1.ptrs[0] = &snp0;

  snp1.ptrs[1] = &snp1;

  snp1.ptrs[2] = &snp2;

  snp1.next = &snp2;

  snp2.char_ptr = &c3;

  snp2.long_ptr = &x3;

  snp2.ptrs[0] = &snp0;

  snp2.ptrs[1] = &snp1;

  snp2.ptrs[2] = &snp2;

  snp2.next = 0x0;

  psnp = &snp0;

  snp0.char_ptr = &b3;

  snp1.char_ptr = &c3;

  snp2.char_ptr = &a3;

  snp0.long_ptr = &y3;

  snp1.long_ptr = &x3;

  snp2.long_ptr = &z3;

}

void

do_special_tests (void)

{

  union named_union u;

  union {

    int a;

    char b;

    long c;

  } anonu;

  struct _simple_struct s;

  struct {

    int a;

    char b;

    long c;

  } anons;

  enum foo e;

  enum { A, B, C } anone;

  int array[21];

  int a;

  a = 1;

  incr_a(2);

}

struct very_simple_struct

{

  int a;

  int b;

};

int

do_child_deletion (void)

{

  /*: BEGIN: child_deletion :*/

  struct very_simple_struct s = {1, 2};

  /*:

    mi_create_varobj S s "create varobj for s"

    mi_list_varobj_children S {{S.a a 0 int} {S.b b 0 int}}     \

       "list children of S"

    mi_delete_varobj S.a "delete S.a"

    mi_delete_varobj S.b "delete S.b"

    mi_delete_varobj S "delete S"

    :*/

  return 99;

  /*: END: child_deletion :*/

}

int

main (int argc, char *argv [])

{

  do_locals_tests ();

  do_block_tests ();

  do_children_tests ();

  do_special_tests ();

  do_child_deletion ();

  exit (0);

}