Home
last modified time | relevance | path

Searched refs:FLONUM_SIZE (Results 1 – 4 of 4) sorted by relevance

/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/
H A Ddfloat.c40 long length_in_words = (length * FLONUM_SIZE);
60 Primitive_GC_If_Needed (FLONUM_SIZE + 1);
H A Dflonum.c50 Primitive_GC_If_Needed (FLONUM_SIZE + 1); in double_to_flonum()
53 (*Free++) = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, FLONUM_SIZE)); in double_to_flonum()
55 Free += FLONUM_SIZE; in double_to_flonum()
H A Dobject.h405 #define FLONUM_SIZE (BYTES_TO_WORDS (sizeof (double))) macro
419 ((VECTOR_LENGTH (vector)) / FLONUM_SIZE)
422 ((double *) (VECTOR_LOC ((vector), ((index) * FLONUM_SIZE))))
H A Dsvm1-interp.c1087 (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, (FLONUM_SIZE * value)))); in DEFINE_INST()
1095 (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, (FLONUM_SIZE * value)))); in DEFINE_INST()
1103 (X_MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, (FLONUM_SIZE * value)))); in DEFINE_INST()
1112 (FLONUM_SIZE * (WREG_REF (source)))))); in DEFINE_INST()