File: bts334.c

package info (click to toggle)
frama-c 20140301%2Bneon%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 19,548 kB
  • ctags: 28,183
  • sloc: ml: 181,252; ansic: 13,776; makefile: 2,452; sh: 1,085; lisp: 178
file content (71 lines) | stat: -rw-r--r-- 1,166 bytes parent folder | download | duplicates (2)
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
/*run.config
 OPT: -main main_init -sparecode-analysis -sparecode-no-annot  -journal-disable
 OPT: -main main_init -slice-pragma loop_body -journal-disable -then-on 'Slicing export' -print
 OPT: -main main_init -slice-pragma loop_body -calldeps -journal-disable -then-on 'Slicing export' -print
 */
int kf ;
int k[2] ;
int f(int vi , int i ) ;
static int si[2]  = {0, 0};
static int so[2]  = {0, 0};
int f(int vi , int i )
{ int vo ;

  {vo = so[i] / kf + k[i] * (vi - si[i]);
  so[i] = vo;
  si[i] = vi;
  return (vo);}

}
int volatile   e0 ;
int volatile   e1 ;
int s0 ;
int s1 ;
void loop_body(void)
{ int acq0 ;
  int acq1 ;
  int val0 ;
  int val1 ;

  {/*@ slice pragma expr s0;

   */
   ;
  ;
  acq0 = (int )e0;

  acq1 = (int )e1;
  val0 = f(acq0, 0);
  val1 = f(acq1, 1);
  s0 = val0;
  s1 = val1;
  return;}

}
int kf ;
int k[2] ;
void process(int conf )
{

  {kf = conf;
  k[0] = 3;
  k[1] = 14;
  while (1) {loop_body();}

  return;}

}
/*@ behavior default:
      assigns *p \from \nothing;
      */
extern int init(int *p ) ;
void main_init(void)
{ int is_ok ;
  int config ;

  {config = init(& is_ok);
  if (is_ok) {process(config);}

  return;}

}