testsuite/systemtap.base/externalvar.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

/* externalvar test case
 * Copyright (C) 2009, Red Hat Inc.
 *
 * This file is part of systemtap, and is free software.  You can
 * redistribute it and/or modify it under the terms of the GNU General
 * Public License (GPL); either version 2, or (at your option) any
 * later version.
 *
 * Tests that an external exported variable can be accessed.
 */

#include <stdlib.h>

// function from our library
int lib_main (void);

struct exestruct
{
  char c;
  int i;
  long l;
  struct exestruct *s1;
  struct exestruct *s2;
};

char exevar_c;
int exevar_i;
long exevar_l;
struct exestruct *exe_s;

static void
main_call ()
{
  asm (""); // dummy method, just to probe and extract and jump into lib.
  lib_main ();
}

int
main ()
{
  exevar_c = 42;
  exevar_i = 2;
  exevar_l = 21;
  exe_s = (struct exestruct *) malloc(sizeof(struct exestruct));
  exe_s->i =1;
  exe_s->l =2;
  exe_s->c =3;
  exe_s->s1 = NULL;
  exe_s->s2 = exe_s;
  main_call ();
  return 0;
}