Home
last modified time | relevance | path

Searched refs:OBJECT_NEW_TYPE (Results 1 – 12 of 12) sorted by relevance

/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/
H A Dliarc.h95 (OBJECT_NEW_TYPE (TC_FIXNUM, \
101 (OBJECT_NEW_TYPE (TC_RECORD, (ALLOCATE_VECTOR (len))))
120 (OBJECT_NEW_TYPE (TC_RATNUM, (CONS ((num), (den)))))
123 (OBJECT_NEW_TYPE (TC_COMPLEX, (CONS ((real), (imag)))))
H A Dprim.c110 PRIMITIVE_RETURN (OBJECT_NEW_TYPE ((arg_type (1)), (ARG_REF (2))));
216 PRIMITIVE_RETURN (OBJECT_NEW_TYPE (type_code, object));
H A Dintern.c113 (*bucket) = (OBJECT_NEW_TYPE (type, list)); in replace_symbol_bucket_type()
194 SCHEME_OBJECT result = (OBJECT_NEW_TYPE (TC_INTERNED_SYMBOL, symbol)); in intern_symbol()
H A Ddaemon.c94 *Free++ = (OBJECT_NEW_TYPE (TC_LIST, pair)); in rehash_pair()
H A Dutils.c837 (*rib_slot) = (OBJECT_NEW_TYPE (rib_type, (last_hunk[HIST_RIB]))); in copy_history()
846 (last_hunk[HIST_NEXT_SUBPROBLEM]) = (OBJECT_NEW_TYPE (vert_type, new_hunk)); in copy_history()
H A Dgcloop.c888 WRITE_TOSPACE (new_addr, (OBJECT_NEW_TYPE (TC_NULL, old_car))); in gc_transport_weak_pair()
1059 = (OBJECT_NEW_TYPE ((OBJECT_TYPE (obj)), in update_weak_pairs()
H A Dprimutl.c329 : (OBJECT_NEW_TYPE (TC_PRIMITIVE, result))); in make_primitive()
H A Dfasload.c647 SET_SYMBOL_NAME (object, (OBJECT_NEW_TYPE (TC_BROKEN_HEART, new))); in DEFINE_GC_HANDLER()
H A Dobject.h104 #define OBJECT_NEW_TYPE(type, datum_object) \ macro
H A Dunstackify.c844 (OBJECT_NEW_TYPE (TC_COMPILED_CODE_BLOCK, (unstackify_pop ()))); in stackify_retag_cc_block()
H A Dcmpint.c327 h1 = (OBJECT_NEW_TYPE (TC_MANIFEST_VECTOR, h1)); in make_compiler_utilities()
369 h1 = (OBJECT_NEW_TYPE (TC_MANIFEST_VECTOR, h1)); in compiler_reset()
/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/cmpauxmd/
H A Dc.c632 return (OBJECT_NEW_TYPE (TC_UNINTERNED_SYMBOL, res)); in memory_to_uninterned_symbol()