/picolibc-latest/newlib/libc/tinystdio/ |
D | stdio_private.h | 279 #define _u128_to_ld(a) ((long double) (a)) argument 280 #define _u128_is_zero(a) ((a) == 0) argument 281 #define _i128_lt_zero(a) ((_i128) (a) < 0) argument 282 #define _u128_plus_64(a,b) ((a) + (b)) argument 283 #define _u128_plus(a,b) ((a) + (b)) argument 284 #define _u128_minus(a,b) ((a) - (b)) argument 285 #define _u128_minus_64(a,b) ((a) - (b)) argument 286 #define _u128_times_10(a) ((a) * 10) argument 287 #define _u128_times_base(a,b) ((a) * (b)) argument 288 #define _u128_to_ld(a) ((long double) (a)) argument [all …]
|
D | conv_flt.c | 166 #define UF_TIMES_BASE(a,b) _u128_times_base(a,b) argument 167 #define UF_PLUS_DIGIT(a,b) _u128_plus_64(a,b) argument 168 #define UF_RSHIFT(a,b) _u128_rshift(a,b) argument 169 #define UF_LSHIFT(a,b) _u128_lshift(a,b) argument 170 #define UF_LSHIFT_64(a,b) _u128_lshift_64(a,b) argument 171 #define UF_LT(a,b) _u128_lt(a,b) argument 172 #define UF_GE(a,b) _u128_ge(a,b) argument 173 #define UF_OR_64(a,b) _u128_or_64(a,b) argument 174 #define UF_AND_64(a,b) _u128_and_64(a,b) argument 175 #define UF_AND(a,b) _u128_and(a,b) argument [all …]
|
/picolibc-latest/newlib/libc/machine/h8500/ |
D | shifts.c | 21 int __ashrhi3(int a,int b) in __ashrhi3() argument 23 return a>>b; in __ashrhi3() 26 int __ashlhi3(int a,int b) in __ashlhi3() argument 28 return a<<b; in __ashlhi3() 31 unsigned __lshlhi3(unsigned int a,int b) in __lshlhi3() argument 33 return a<<b; in __lshlhi3() 36 unsigned __lshrhi3(unsigned int a,int b) in __lshrhi3() argument 38 return a>>b; in __lshrhi3() 44 long __ashrsi3(long a, int b) in __ashrsi3() argument 46 return a>>b; in __ashrsi3() [all …]
|
D | mulsi3.c | 28 long __mulsi3(u a, u b) in __mulsi3() argument 35 if (a.s.msw == 0 && in __mulsi3() 38 return (long)a.s.lsw * b.s.lsw; in __mulsi3() 42 if (a.v < 0) in __mulsi3() 45 a.v = - a.v; in __mulsi3() 53 pp1 = (long)a.s.lsw * b.s.lsw ; in __mulsi3() 54 pp2 = (long)a.s.lsw * b.s.msw + (long)a.s.msw * b.s.lsw; in __mulsi3() 64 long __mulpsi3(long a, long b) in __mulpsi3() argument 66 return a*b; in __mulpsi3() 71 __mulhi3(short a, short b) in __mulhi3() argument [all …]
|
D | cmpsi.c | 106 union pu a; in __cmppsi2() local 108 a.l = arga; in __cmppsi2() 111 if (a.w.msb != b.w.msb) in __cmppsi2() 113 if (a.w.msb < b.w.msb) return 0; in __cmppsi2() 116 if (a.w.lsw != b.w.lsw) in __cmppsi2() 118 if (a.w.lsw < b.w.lsw) return 0; in __cmppsi2() 128 union pun a; in __ucmppsi2() local 130 a.l = arga; in __ucmppsi2() 133 if (a.w.msb != b.w.msb) in __ucmppsi2() 135 if (a.w.msb < b.w.msb) return 0; in __ucmppsi2() [all …]
|
/picolibc-latest/newlib/libc/search/ |
D | db_local.h | 159 #define M_32_SWAP(a) { \ argument 160 __uint32_t _tmp = a; \ 161 ((char *)&a)[0] = ((char *)&_tmp)[3]; \ 162 ((char *)&a)[1] = ((char *)&_tmp)[2]; \ 163 ((char *)&a)[2] = ((char *)&_tmp)[1]; \ 164 ((char *)&a)[3] = ((char *)&_tmp)[0]; \ 166 #define P_32_SWAP(a) { \ argument 167 __uint32_t _tmp = *(__uint32_t *)a; \ 168 ((char *)a)[0] = ((char *)&_tmp)[3]; \ 169 ((char *)a)[1] = ((char *)&_tmp)[2]; \ [all …]
|
D | qsort.c | 83 #define min(a, b) (a) < (b) ? a : b argument 99 #define SWAPINIT(TYPE, a, es) swaptype_ ## TYPE = \ argument 100 ((uintptr_t)(a) % sizeof(TYPE)) || \ 104 swapfunc(char *a, char *b, size_t n, int swaptype_intptr_t, int swaptype_int) in swapfunc() argument 107 swapcode(intptr_t, a, b, n) in swapfunc() 109 swapcode(int, a, b, n) in swapfunc() 111 swapcode(char, a, b, n) in swapfunc() 114 #define swap(a, b) \ argument 116 intptr_t t = *(intptr_t *)(a); \ 117 *(intptr_t *)(a) = *(intptr_t *)(b); \ [all …]
|
/picolibc-latest/test/libc-testsuite/ |
D | sscanf.c | 74 char a[100], b[100], c[100]; in test_sscanf() local 95 TEST(i, sscanf("hello, world\n", "%s %s", a, b), 2, "only %d fields, expected %d"); in test_sscanf() 96 TEST_S(a, "hello,", ""); in test_sscanf() 99 memset(a, 0, sizeof(a)); in test_sscanf() 102 TEST(i, sscanf("hello, world\n", "%6c %5c%c", a, b, c), 3, "only %d fields, expected %d"); in test_sscanf() 103 TEST_S(a, "hello,", ""); in test_sscanf() 107 TEST(i, sscanf("hello, world\n", "%[hel]%s", a, b), 2, "only %d fields, expected %d"); in test_sscanf() 108 TEST_S(a, "hell", ""); in test_sscanf() 111 TEST(i, sscanf("hello, world\n", "%[hel] %s", a, b), 2, "only %d fields, expected %d"); in test_sscanf() 112 TEST_S(a, "hell", ""); in test_sscanf() [all …]
|
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-latest/test/ |
D | rounding-mode-sub.c | 42 div(double a, double b) in div() argument 44 return a/b; in div() 48 mul(double a, double b) in mul() argument 50 return a * b; in mul() 54 sub(double a, double b) in sub() argument 56 return a - b; in sub() 60 div_f(float a, float b) { in div_f() argument 61 return a/b; in div_f() 65 mul_f(float a, float b) { in mul_f() argument 66 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 …]
|
D | rounding-mode.h | 37 div(double a, double b); 40 mul(double a, double b); 43 sub(double a, double b); 46 div_f(float a, float b); 49 mul_f(float a, float b); 52 sub_f(float a, float b);
|
/picolibc-latest/newlib/libc/machine/w65/ |
D | lshrhi.S | 21 lsr a 25 lsr a 28 lsr a 31 lsr a 34 lsr a 37 lsr a 40 lsr a 43 lsr a 46 lsr a 49 lsr a [all …]
|
/picolibc-latest/newlib/libm/complex/ |
D | csqrtl.c | 51 long double a, b; in csqrtl() local 55 a = creall(z); in csqrtl() 63 if (isnan(a)) { in csqrtl() 65 return (cpackl(a, t)); /* return NaN + NaN i */ in csqrtl() 67 if (isinf(a)) { in csqrtl() 74 if (signbit(a)) in csqrtl() 75 return (cpackl(fabsl(b - b), copysignl(a, b))); in csqrtl() 77 return (cpackl(a, copysignl(b - b, b))); in csqrtl() 85 if (fabsl(a) >= THRESH || fabsl(b) >= THRESH) { in csqrtl() 86 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()
|
/picolibc-latest/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-latest/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-latest/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 …]
|
/picolibc-latest/newlib/libc/machine/riscv/ |
D | memcpy.c | 30 #define BODY(a, b, t) { \ in memcpy() argument 32 a++, b++; \ in memcpy() 33 *(a - 1) = tt; \ in memcpy() 36 char *a = (char *)aa; in memcpy() local 38 char *end = a + n; in memcpy() 40 if (unlikely ((((uintptr_t)a & msk) != ((uintptr_t)b & msk)) in memcpy() 44 if (__builtin_expect (a < end, 1)) in memcpy() 45 while (a < end) in memcpy() 46 BODY (a, b, char); in memcpy() 50 if (unlikely (((uintptr_t)a & msk) != 0)) in memcpy() [all …]
|
/picolibc-latest/newlib/libm/test/ |
D | math.c | 494 struct { uint32_t a, b; }; in run_vector_1() member 503 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1() 512 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1() 520 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1() 529 (unsigned long) d.a, (unsigned long) d.b, (unsigned long) d4.a, (unsigned long) d4.b); in run_vector_1() 771 float cosf (float a) { return cos((double)a); } 772 float sinf (float a) { return sin((double)a); } 773 float log1pf (float a) { return log1p((double)a); } 774 float tanf (float a) { return tan((double)a); } 775 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-latest/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 * Function diprintf:: Print to a file descriptor (integer only) 45 * Function dprintf:: Print to a file descriptor 46 * Function fclose:: Close a file 48 * Function fdopen:: Turn an open file into a stream 52 * Function fgetc:: Get a character from a file or stream 53 * Function fgetpos:: Record position in a stream or file 54 * Function fgets:: Get character string from a file or stream [all …]
|
/picolibc-latest/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 …]
|