File: scope1.c

package info (click to toggle)
gnat-gdb 5.3.gnat.0.0.20030225-8
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 75,144 kB
  • ctags: 101,348
  • sloc: ansic: 873,511; exp: 46,950; sh: 16,123; makefile: 11,757; yacc: 6,092; asm: 5,027; cpp: 4,044; perl: 2,624; lex: 877; sed: 550; lisp: 394; awk: 170; pascal: 57; java: 7; fortran: 5
file content (54 lines) | stat: -rw-r--r-- 1,012 bytes parent folder | download | duplicates (12)
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
53
54
static int filelocal = 2;	/* In Data section */
static int filelocal_bss;	/* In BSS section */
#ifndef __STDC__
#define	const	/**/
#endif
static const int filelocal_ro = 202;	/* In Read-Only Data section */

void foo ()
{

  void bar ();
  
  static int funclocal = 3;	/* In Data section */
  static int funclocal_bss;	/* In BSS section */
  static const int funclocal_ro = 203;	/* RO Data */
  static const int funclocal_ro_bss;	/* RO Data */

  funclocal_bss = 103;
  bar ();
}

void bar ()
{
  static int funclocal = 4;	/* In data section */
  static int funclocal_bss;	/* In BSS section */
  funclocal_bss = 104;
}

void init1 ()
{
  filelocal_bss = 102;
}

/* On some systems, such as AIX, unreferenced variables are deleted
   from the executable.  */
void usestatics1 ()
{
  void useit1 (int val);
  
  useit1 (filelocal);
  useit1 (filelocal_bss);
  useit1 (filelocal_ro);
}

#ifdef PROTOTYPES
void useit1 (int val)
#else
void useit1 (val) int val;
#endif
{
    static int usedval;

    usedval = val;
}