/dports/lang/ypsilon/ypsilon-0.9.6-update3/src/ |
H A D | subr_flonum.cpp | 419 return make_flonum(vm->m_heap, val); in subr_fl_add() 421 return make_flonum(vm->m_heap, 0.0); in subr_fl_add() 450 return make_flonum(vm->m_heap, val); in subr_fl_mul() 452 return make_flonum(vm->m_heap, 1.0); in subr_fl_mul() 481 return make_flonum(vm->m_heap, val); in subr_fl_sub() 513 return make_flonum(vm->m_heap, val); in subr_fl_quotient() 596 return make_flonum(vm->m_heap, 1.0); in subr_fl_denominator() 654 return make_flonum(vm->m_heap, ans - 1.0); in subr_fl_round() 685 return make_flonum(vm->m_heap, pow(fl1, fl2)); in subr_fl_expt() 706 return make_flonum(vm->m_heap, VALUE_NAN); in subr_fl_log() [all …]
|
H A D | arith.cpp | 1061 return make_flonum(heap, value); in double_to_inexact() 3786 … return make_complex(heap, make_flonum(heap, 0.0), make_flonum(heap, sqrt((double)value))); in arith_sqrt() 3810 return make_complex(heap, make_flonum(heap, 0.0), make_flonum(heap, s)); in arith_sqrt() 3836 if (s < 0.0) return make_complex(heap, make_flonum(heap, 0.0), make_flonum(heap, sqrt(-s))); in arith_sqrt() 3861 return make_complex(heap, make_flonum(heap, x * s), make_flonum(heap, y * s)); in arith_sqrt() 3923 cn = make_complex(heap, make_flonum(heap, 0.0), make_flonum(heap, x)); in arith_asin() 4008 return make_flonum(heap, m); in arith_magnitude() 4865 *ans = make_flonum(heap, 0.0); in parse_udecimal() 4935 *ans = make_flonum(heap, 0.0); in parse_udecimal() 5207 … if (inexact) return make_complex(heap, make_flonum(heap, 0.0), make_flonum(heap, -1.0)); in parse_number() [all …]
|
H A D | subr_base_arith.cpp | 684 acc = arith_div(vm->m_heap, acc, make_flonum(vm->m_heap, 0.0)); in subr_num_div() 799 return inexact ? make_flonum(vm->m_heap, 1.0) : MAKEFIXNUM(1); in subr_denominator() 825 return make_flonum(vm->m_heap, floor(value)); in subr_floor() 853 return make_flonum(vm->m_heap, ceil(value)); in subr_ceiling() 888 return make_flonum(vm->m_heap, trunc(value)); in subr_truncate() 921 if (ans != value + 0.5) return make_flonum(vm->m_heap, ans); in subr_round() 923 return make_flonum(vm->m_heap, ans - 1.0); in subr_round() 1134 return make_flonum(vm->m_heap, 1.0); in subr_expt() 1143 return make_flonum(vm->m_heap, 1.0); in subr_expt() 1148 return make_flonum(vm->m_heap, 0.0); in subr_expt() [all …]
|
H A D | subr_ffi.cpp | 187 return make_flonum(vm->m_heap, retval); in subr_call_shared_object_double() 392 return make_flonum(vm->m_heap, retval); in subr_stdcall_shared_object_double()
|
H A D | object_factory.h | 46 scm_flonum_t make_flonum(object_heap_t* heap, double num);
|
H A D | subr_bvector.cpp | 815 return make_flonum(vm->m_heap, datum.ieee_single); in subr_bytevector_ieee_single_ref() 818 return make_flonum(vm->m_heap, datum.ieee_single); in subr_bytevector_ieee_single_ref() 874 return make_flonum(vm->m_heap, datum.ieee_double); in subr_bytevector_ieee_double_ref() 877 return make_flonum(vm->m_heap, datum.ieee_double); in subr_bytevector_ieee_double_ref()
|
H A D | subr_others.cpp | 2873 values->elts[0] = make_flonum(vm->m_heap, in subr_time_usage() 2877 values->elts[1] = make_flonum(vm->m_heap, in subr_time_usage() 2881 values->elts[2] = make_flonum(vm->m_heap, in subr_time_usage() 2894 values->elts[0] = make_flonum(vm->m_heap, (double)tv.tv_sec + tv.tv_usec / 1000000.0); in subr_time_usage() 2895 …values->elts[1] = make_flonum(vm->m_heap, (double)ru.ru_utime.tv_sec + ru.ru_utime.tv_usec / 10000… in subr_time_usage() 2896 …values->elts[2] = make_flonum(vm->m_heap, (double)ru.ru_stime.tv_sec + ru.ru_stime.tv_usec / 10000… in subr_time_usage()
|
H A D | object_factory.cpp | 508 make_flonum(object_heap_t* heap, double num) in make_flonum() function 571 obj->real = make_flonum(heap, real); in make_complex() 572 obj->imag = make_flonum(heap, imag); in make_complex()
|
H A D | fasl.cpp | 322 return make_flonum(m_vm->m_heap, n.f64); in get_datum()
|
H A D | serialize.cpp | 464 return make_flonum(m_heap, n.f64); in get_datum()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | number.c | 1129 static SgFlonum* make_flonum(double d) in make_flonum() function 1189 else return make_flonum(d); in Sg_MakeFlonum() 4135 #define INIT_CONST_FL(o, d) o=make_flonum(d) in Sg__InitNumber()
|