utils/trio/trio.c

811 		trio_long_double_t longdoubleNumber;
812 		trio_long_double_t* longdoublePointer;
917 static TRIO_CONST trio_long_double_t ___dummy_long_double = 0;
1262 TRIO_PRIVATE trio_long_double_t TrioPower TRIO_ARGS2((number, exponent), int number, int exponent)
1264 	trio_long_double_t result;
1272 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E-1);
1275 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+0);
1278 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+1);
1281 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+2);
1284 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+3);
1287 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+4);
1290 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+5);
1293 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+6);
1296 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+7);
1299 				result = (trio_long_double_t)number * TRIO_SUFFIX_LONG(1E+8);
1302 				result = trio_pow((trio_long_double_t)number, (trio_long_double_t)exponent);
1308 		return trio_pow((trio_long_double_t)number, (trio_long_double_t)exponent);
1318 TRIO_PRIVATE trio_long_double_t TrioLogarithm TRIO_ARGS2((number, base), trio_long_double_t number,
1321 	trio_long_double_t result;
2395 						        ? va_arg(arglist, trio_long_double_t*)
2396 						        : (trio_long_double_t*)argfunc(argarray, num, TRIO_TYPE_LONGDOUBLE);
2416 						    (argfunc == NULL) ? va_arg(arglist, trio_long_double_t)
2417 						                      : (trio_long_double_t)(*((trio_long_double_t*)argfunc(
2423 							    (trio_long_double_t)va_arg(arglist, double);
2427 								parameters[i].data.longdoubleNumber = (trio_long_double_t)(
2430 								parameters[i].data.longdoubleNumber = (trio_long_double_t)(
2917                                              trio_class_t* self, trio_long_double_t number,
2920 	trio_long_double_t integerNumber;
2921 	trio_long_double_t fractionNumber;
2922 	trio_long_double_t workNumber;
2934 	trio_long_double_t dblBase;
2935 	trio_long_double_t dblFractionBase;
2936 	trio_long_double_t integerAdjust;
2937 	trio_long_double_t fractionAdjust;
2938 	trio_long_double_t workFractionNumber;
2939 	trio_long_double_t workFractionAdjust;
2956 	trio_long_double_t epsilon;
3019 	dblBase = (trio_long_double_t)base;
3061 		    (number >= TrioPower(base, (trio_long_double_t)precision)))
3100 			workNumber *= TrioPower(dblBase, (trio_long_double_t)-exponent);
3107 				workNumber /= TrioPower(dblBase, (trio_long_double_t)(exponent / 2));
3108 				workNumber /= TrioPower(dblBase, (trio_long_double_t)(exponent - (exponent / 2)));
3178 			    (workNumber >= TrioPower(base, (trio_long_double_t)precision)))
6026 	trio_long_double_t infinity;
6077 					*((trio_long_double_t*)target) = infinity;
6097 					*((trio_long_double_t*)target) = trio_nan();
6192 		*((trio_long_double_t*)target) = trio_to_long_double(doubleString, NULL);