| /picolibc-3.7.0-3.6.0/newlib/libc/tinystdio/ |
| D | stdio_private.h | 197 #define _u128_to_ld(a) ((long double) (a)) argument
198 #define _u128_is_zero(a) ((a) == 0) argument
199 #define _i128_lt_zero(a) ((_i128) (a) < 0) argument
200 #define _u128_plus_64(a,b) ((a) + (b)) argument
201 #define _u128_plus(a,b) ((a) + (b)) argument
202 #define _u128_minus(a,b) ((a) - (b)) argument
203 #define _u128_minus_64(a,b) ((a) - (b)) argument
204 #define _u128_times_10(a) ((a) * 10) argument
205 #define _u128_times_base(a,b) ((a) * (b)) argument
206 #define _u128_to_ld(a) ((long double) (a)) argument
[all …]
|
| D | conv_flt.c | 161 #define UF_TIMES_BASE(a,b) _u128_times_base(a,b) argument
162 #define UF_PLUS_DIGIT(a,b) _u128_plus_64(a,b) argument
163 #define UF_RSHIFT(a,b) _u128_rshift(a,b) argument
164 #define UF_LSHIFT(a,b) _u128_lshift(a,b) argument
165 #define UF_LSHIFT_64(a,b) _u128_lshift_64(a,b) argument
166 #define UF_LT(a,b) _u128_lt(a,b) argument
167 #define UF_GE(a,b) _u128_ge(a,b) argument
168 #define UF_OR_64(a,b) _u128_or_64(a,b) argument
169 #define UF_AND_64(a,b) _u128_and_64(a,b) argument
170 #define UF_AND(a,b) _u128_and(a,b) argument
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libc/machine/h8500/ |
| D | shifts.c | 19 int __ashrhi3(int a,int b) in __ashrhi3() argument
21 return a>>b; in __ashrhi3()
24 int __ashlhi3(int a,int b) in __ashlhi3() argument
26 return a<<b; in __ashlhi3()
29 unsigned __lshlhi3(unsigned int a,int b) in __lshlhi3() argument
31 return a<<b; in __lshlhi3()
34 unsigned __lshrhi3(unsigned int a,int b) in __lshrhi3() argument
36 return a>>b; in __lshrhi3()
42 long __ashrsi3(long a, int b) in __ashrsi3() argument
44 return a>>b; in __ashrsi3()
[all …]
|
| D | mulsi3.c | 26 long __mulsi3(u a, u b) in __mulsi3() argument
33 if (a.s.msw == 0 && in __mulsi3()
36 return (long)a.s.lsw * b.s.lsw; in __mulsi3()
40 if (a.v < 0) in __mulsi3()
43 a.v = - a.v; in __mulsi3()
51 pp1 = (long)a.s.lsw * b.s.lsw ; in __mulsi3()
52 pp2 = (long)a.s.lsw * b.s.msw + (long)a.s.msw * b.s.lsw; in __mulsi3()
62 long __mulpsi3(long a, long b) in __mulpsi3() argument
64 return a*b; in __mulpsi3()
69 __mulhi3(short a, short b) in __mulhi3() argument
[all …]
|
| D | cmpsi.c | 104 union pu a; in __cmppsi2() local
106 a.l = arga; in __cmppsi2()
109 if (a.w.msb != b.w.msb) in __cmppsi2()
111 if (a.w.msb < b.w.msb) return 0; in __cmppsi2()
114 if (a.w.lsw != b.w.lsw) in __cmppsi2()
116 if (a.w.lsw < b.w.lsw) return 0; in __cmppsi2()
126 union pun a; in __ucmppsi2() local
128 a.l = arga; in __ucmppsi2()
131 if (a.w.msb != b.w.msb) in __ucmppsi2()
133 if (a.w.msb < b.w.msb) return 0; in __ucmppsi2()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libc/search/ |
| D | db_local.h | 162 #define M_32_SWAP(a) { \ argument
163 __uint32_t _tmp = a; \
164 ((char *)&a)[0] = ((char *)&_tmp)[3]; \
165 ((char *)&a)[1] = ((char *)&_tmp)[2]; \
166 ((char *)&a)[2] = ((char *)&_tmp)[1]; \
167 ((char *)&a)[3] = ((char *)&_tmp)[0]; \
169 #define P_32_SWAP(a) { \ argument
170 __uint32_t _tmp = *(__uint32_t *)a; \
171 ((char *)a)[0] = ((char *)&_tmp)[3]; \
172 ((char *)a)[1] = ((char *)&_tmp)[2]; \
[all …]
|
| D | qsort.c | 84 #define min(a, b) (a) < (b) ? a : b argument
100 #define SWAPINIT(a, es) swaptype = ((uintptr_t)(a) % sizeof(long)) || \ argument
104 swapfunc (char *a, in swapfunc() argument
110 swapcode(long, a, b, n) in swapfunc()
112 swapcode(char, a, b, n) in swapfunc()
115 #define swap(a, b) \ argument
117 long t = *(long *)(a); \
118 *(long *)(a) = *(long *)(b); \
121 swapfunc(a, b, es, swaptype)
123 #define vecswap(a, b, n) if ((n) > 0) swapfunc(a, b, n, swaptype) argument
[all …]
|
| /picolibc-3.7.0-3.6.0/test/ |
| D | rounding-mode-sub.c | 41 div(double a, double b) in div() argument
43 return a/b; in div()
47 mul(double a, double b) in mul() argument
49 return a * b; in mul()
53 sub(double a, double b) in sub() argument
55 return a - b; in sub()
59 div_f(float a, float b) { in div_f() argument
60 return a/b; in div_f()
64 mul_f(float a, float b) { in mul_f() argument
65 return a * b; in mul_f()
[all …]
|
| D | test-put.c | 65 int a; in main() local
69 a = putc('X', stdout); in main()
70 ret += check("putc", a == 'X', 'X', a); in main()
72 a = putchar('Y'); in main()
73 ret += check("putchar", a == 'Y', 'Y', a); in main()
75 a = fputc('Z', stdout); in main()
76 ret += check("fputc", a == 'Z', 'Z', a); in main()
78 a = puts("puts"); in main()
79 ret += check ("puts", a >= 0, 0, a); in main()
81 a = fputs("fputs\n", stdout); in main()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libc/machine/w65/ |
| D | lshrhi.S | 19 lsr a
23 lsr a
26 lsr a
29 lsr a
32 lsr a
35 lsr a
38 lsr a
41 lsr a
44 lsr a
47 lsr a
[all …]
|
| /picolibc-3.7.0-3.6.0/test/libc-testsuite/ |
| D | testcase.h | 36 #define paste(a,b) a##b argument
37 #define str(a) #a argument
39 #define RUN_TEST(a) { \ argument
40 extern int paste(test_, a) (void); \
41 int e = paste(test_, a) (); \
42 if (e) printf("%s test failed, %d error(s)\n", str(a), e); \
43 else printf("%s test passed\n", str(a)); \
47 #define expand(a) a argument
|
| /picolibc-3.7.0-3.6.0/newlib/libm/complex/ |
| D | csqrtl.c | 52 long double a, b; in csqrtl() local
56 a = creall(z); in csqrtl()
64 if (isnan(a)) { in csqrtl()
66 return (cpackl(a, t)); /* return NaN + NaN i */ in csqrtl()
68 if (isinf(a)) { in csqrtl()
75 if (signbit(a)) in csqrtl()
76 return (cpackl(fabsl(b - b), copysignl(a, b))); in csqrtl()
78 return (cpackl(a, copysignl(b - b, b))); in csqrtl()
86 if (fabsl(a) >= THRESH || fabsl(b) >= THRESH) { in csqrtl()
87 a *= 0.25L; in csqrtl()
[all …]
|
| D | catanl.c | 46 long double a, t, x, x2, y; in __weak_alias() local
55 a = 1.0L - x2 - (y * y); in __weak_alias()
56 if (a == 0.0L) in __weak_alias()
59 t = 0.5L * atan2l(2.0L * x, a); in __weak_alias()
63 a = x2 + (t * t); in __weak_alias()
64 if (a == 0.0L) in __weak_alias()
68 a = (x2 + (t * t))/a; in __weak_alias()
69 w = w + (0.25L * logl(a)) * (long double complex) I; in __weak_alias()
|
| D | catanf.c | 47 float a, t, x, x2, y; in __weak_alias() local
56 a = 1.0f - x2 - (y * y); in __weak_alias()
58 t = 0.5f * atan2f(2.0f * x, a); in __weak_alias()
62 a = x2 + (t * t); in __weak_alias()
63 if (a == 0.0f) in __weak_alias()
67 a = (x2 + (t * t))/a; in __weak_alias()
68 w = w + (0.25f * logf(a)) * I; in __weak_alias()
|
| D | catan.c | 98 double a, t, x, x2, y; in __weak_alias() local
107 a = 1.0 - x2 - (y * y); in __weak_alias()
109 t = 0.5 * atan2(2.0 * x, a); in __weak_alias()
113 a = x2 + (t * t); in __weak_alias()
114 if (a == 0.0) in __weak_alias()
118 a = (x2 + (t * t))/a; in __weak_alias()
119 w = w + (0.25 * log(a)) * (double complex) I; in __weak_alias()
|
| /picolibc-3.7.0-3.6.0/newlib/libm/ld/ld128/ |
| D | e_hypotl.c | 50 long double a,b,t1,t2,yy1,y2,w; in hypotl() local
57 if(hb > ha) {a=y;b=x;j=ha; ha=hb;hb=j;} else {a=x;b=y;} in hypotl()
58 SET_LDOUBLE_MSW64(a,ha); /* a <- |a| */ in hypotl()
60 if((ha-hb)>0x78000000000000LL) {return a+b;} /* x/y > 2**120 */ in hypotl()
65 w = a+b; /* for sNaN */ in hypotl()
66 GET_LDOUBLE_LSW64(low,a); in hypotl()
68 w = a; in hypotl()
70 if(((hb^0x7fff000000000000LL)|low)==0 && !issignalingl_inline(a)) in hypotl()
77 SET_LDOUBLE_MSW64(a,ha); in hypotl()
84 if((hb|low)==0) return a; in hypotl()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libm/ld/ld80/ |
| D | e_hypotl.c | 50 long double a,b,t1,t2,yy1,y2,w; in hypotl() local
57 if(eb > ea) {a=y;b=x;j=ea; ea=eb;eb=j;} else {a=x;b=y;} in hypotl()
58 SET_LDOUBLE_EXP(a,ea); /* a <- |a| */ in hypotl()
60 if((ea-eb)>0x46) {return a+b;} /* x/y > 2**70 */ in hypotl()
65 w = a+b; /* for sNaN */ in hypotl()
66 GET_LDOUBLE_WORDS(es,high,low,a); in hypotl()
69 w = a; in hypotl()
71 if(((eb^0x7fff)|(high&0x7fffffff)|low)==0 && !issignalingl_inline(a)) in hypotl()
77 SET_LDOUBLE_EXP(a,ea); in hypotl()
85 if((high|low)==0) return a; in hypotl()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libm/math/ |
| D | s_hypot.c | 53 __float64 a = x, b = y, t1, t2, y1, y2, w; in hypot64() local
61 a = y; in hypot64()
67 a = x; in hypot64()
70 SET_HIGH_WORD(a, ha); /* a <- |a| */ in hypot64()
73 return a + b; in hypot64()
79 w = a + b; /* for sNaN */ in hypot64()
80 GET_LOW_WORD(low, a); in hypot64()
82 w = a; in hypot64()
84 if (((hb ^ 0x7ff00000) | low) == 0 && !issignaling(a)) in hypot64()
92 SET_HIGH_WORD(a, ha); in hypot64()
[all …]
|
| D | sf_hypot.c | 21 float a = x, b = y, t1, t2, y1, y2, w; in hypotf() local
33 SET_FLOAT_WORD(a, ha); /* a <- |a| */ in hypotf()
36 return a + b; in hypotf()
41 w = a + b; /* for sNaN */ in hypotf()
43 w = a; in hypotf()
44 if (FLT_UWORD_IS_INFINITE(hb) && !issignaling(a)) in hypotf()
52 SET_FLOAT_WORD(a, ha); in hypotf()
57 return a; in hypotf()
61 a *= t1; in hypotf()
67 SET_FLOAT_WORD(a, ha); in hypotf()
[all …]
|
| D | sf_jn.c | 27 float a, b, temp, di; in jnf() local
53 a = j0f(x); in jnf()
57 b = b * ((float)(i + i) / x) - a; /* avoid underflow */ in jnf()
58 a = temp; in jnf()
70 for (a = one, i = 2; i <= n; i++) { in jnf()
71 a *= (float)i; /* a = n! */ in jnf()
74 b = b / a; in jnf()
125 a = t; in jnf()
142 b = b / x - a; in jnf()
143 a = temp; in jnf()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libc/machine/riscv/ |
| D | memcpy.c | 28 #define BODY(a, b, t) { \ in memcpy() argument
30 a++, b++; \ in memcpy()
31 *(a - 1) = tt; \ in memcpy()
34 char *a = (char *)aa; in memcpy() local
36 char *end = a + n; in memcpy()
38 if (unlikely ((((uintptr_t)a & msk) != ((uintptr_t)b & msk)) in memcpy()
42 if (__builtin_expect (a < end, 1)) in memcpy()
43 while (a < end) in memcpy()
44 BODY (a, b, char); in memcpy()
48 if (unlikely (((uintptr_t)a & msk) != 0)) in memcpy()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libm/test/ |
| D | math.c | 490 struct { uint32_t a, b; }; in run_vector_1() member
499 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1()
508 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1()
516 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1()
525 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1()
767 float cosf (float a) { return cos((double)a); }
768 float sinf (float a) { return sin((double)a); }
769 float log1pf (float a) { return log1p((double)a); }
770 float tanf (float a) { return tan((double)a); }
771 float ceilf (float a) { return ceil(a); }
[all …]
|
| D | test.c | 148 bigger (__ieee_double_shape_type *a, in bigger() argument
152 if (a->parts.msw > b->parts.msw) in bigger()
157 else if (a->parts.msw == b->parts.msw) in bigger()
159 if (a->parts.lsw > b->parts.lsw) in bigger()
168 fbigger (__ieee_float_shape_type *a, in fbigger() argument
172 if (a->p1 > b->p1) in fbigger()
186 __ieee_double_shape_type a,b; in mag_of_error() local
192 a.value = is; in mag_of_error()
196 if (a.parts.msw == b.parts.msw in mag_of_error()
197 && a.parts.lsw== b.parts.lsw) return 64; in mag_of_error()
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libc/stdio/ |
| D | stdio.tex | 22 to generate or scan strings according to specifications from a format string.
25 system, but these functions provide a uniform interface.
39 @code{stderr}. The argument @var{reent} is a pointer to a reentrancy
44 * diprintf:: Print to a file descriptor (integer only)
45 * dprintf:: Print to a file descriptor
46 * fclose:: Close a file
48 * fdopen:: Turn an open file into a stream
52 * fgetc:: Get a character from a file or stream
53 * fgetpos:: Record position in a stream or file
54 * fgets:: Get character string from a file or stream
[all …]
|
| /picolibc-3.7.0-3.6.0/newlib/libc/include/machine/ |
| D | ieee.h | 10 #define EXT_TO_ARRAY32(p, a) do { \ argument
11 (a)[0] = (p)->ext_frac; \
35 #define EXT_TO_ARRAY32(p, a) do { \ argument
36 (a)[0] = (p)->ext_fracl; \
37 (a)[1] = (p)->ext_frach; \
62 #define EXT_TO_ARRAY32(p, a) do { \ argument
63 (a)[0] = (p)->ext_fracl; \
64 (a)[1] = (p)->ext_frach; \
93 #define EXT_TO_ARRAY32(p, a) do { \ argument
94 (a)[0] = (p)->ext_fracl; \
[all …]
|
