File: shmain.c

package info (click to toggle)
gnat-gdb 6.4%2B2006-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 107,516 kB
  • ctags: 157,025
  • sloc: ansic: 1,298,186; exp: 70,590; asm: 48,893; makefile: 42,774; sh: 18,949; yacc: 9,525; cpp: 5,228; perl: 5,022; lisp: 1,036; lex: 638; pascal: 617; sed: 194; awk: 142; objc: 134; ada: 108; java: 47; fortran: 30
file content (56 lines) | stat: -rw-r--r-- 684 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
55
56
 
/* A test */

#include "ss.h"
#include <stdio.h>

extern int structarg(struct s);
extern int pstructarg(struct s*);
extern int shr1(int);
extern int shr2(int);
extern float sg;

int eglob;

struct {
 int a;  
 int b;
} s;

int g;

#ifdef PROTOTYPES
int local_structarg(struct s x)
#else
int local_structarg(x)
struct s x;
#endif
{
  return x.b;
}

#ifdef PROTOTYPES
int mainshr1(int g)
#else
int mainshr1(g)
int g;
#endif
{
  return 2*g;
}

int main()
{
  struct s y;
  g = 1;
  g = shr1(g);
  g = shr2(g);
  g = mainshr1(g);
  sg = 1.1;
  printf("address of sg is 0x%x\n", &sg);
  y.a = 3;
  y.b = 4;
  g = local_structarg(y);
  g = structarg(y);
  g = pstructarg(&y);
  return 0;
}