File: 20101216-1.c

package info (click to toggle)
gcc-arm-none-eabi 15%3A7-2018-q2-6
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 539,240 kB
  • sloc: ansic: 2,739,935; cpp: 848,238; ada: 602,637; makefile: 62,919; asm: 55,632; xml: 46,238; exp: 23,020; sh: 19,616; python: 6,371; pascal: 3,889; awk: 3,278; perl: 2,691; yacc: 316; ml: 285; f90: 234; lex: 198; objc: 194; haskell: 119
file content (32 lines) | stat: -rw-r--r-- 565 bytes parent folder | download | duplicates (9) 
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
 
typedef signed int __int32_t;
typedef unsigned int __uint32_t;
typedef union
{
  double value;
  struct
  {
    __uint32_t msw;
    __uint32_t lsw;
  } parts;
} ieee_double_shape_type;
two52= 4.50359962737049600000e+15,
w6 = -1.63092934096575273989e-03;
double sin_pi(double x)
{
 double y,z;
 __int32_t n,ix;
ieee_double_shape_type gh_u;
 gh_u.value = (x); 
(ix) = gh_u.parts.msw;
                if(ix<0x43300000)
 z = y+two52;
 ieee_double_shape_type gl_u;
 gl_u.value = (z);
 (n) = gl_u.parts.lsw;
  n &= 1;
 switch (n)
 {
     case 0:
__kernel_sin();
     }
}