Home
last modified time | relevance | path

Searched refs:make_flonum (Results 1 – 11 of 11) sorted by relevance

/dports/lang/ypsilon/ypsilon-0.9.6-update3/src/
H A Dsubr_flonum.cpp419 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 Darith.cpp1061 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 Dsubr_base_arith.cpp684 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 Dsubr_ffi.cpp187 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 Dobject_factory.h46 scm_flonum_t make_flonum(object_heap_t* heap, double num);
H A Dsubr_bvector.cpp815 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 Dsubr_others.cpp2873 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 Dobject_factory.cpp508 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 Dfasl.cpp322 return make_flonum(m_vm->m_heap, n.f64); in get_datum()
H A Dserialize.cpp464 return make_flonum(m_heap, n.f64); in get_datum()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dnumber.c1129 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()