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 D | liarc.h | 95 (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 D | prim.c | 110 PRIMITIVE_RETURN (OBJECT_NEW_TYPE ((arg_type (1)), (ARG_REF (2)))); 216 PRIMITIVE_RETURN (OBJECT_NEW_TYPE (type_code, object));
|
H A D | intern.c | 113 (*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 D | daemon.c | 94 *Free++ = (OBJECT_NEW_TYPE (TC_LIST, pair)); in rehash_pair()
|
H A D | utils.c | 837 (*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 D | gcloop.c | 888 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 D | primutl.c | 329 : (OBJECT_NEW_TYPE (TC_PRIMITIVE, result))); in make_primitive()
|
H A D | fasload.c | 647 SET_SYMBOL_NAME (object, (OBJECT_NEW_TYPE (TC_BROKEN_HEART, new))); in DEFINE_GC_HANDLER()
|
H A D | object.h | 104 #define OBJECT_NEW_TYPE(type, datum_object) \ macro
|
H A D | unstackify.c | 844 (OBJECT_NEW_TYPE (TC_COMPILED_CODE_BLOCK, (unstackify_pop ()))); in stackify_retag_cc_block()
|
H A D | cmpint.c | 327 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 D | c.c | 632 return (OBJECT_NEW_TYPE (TC_UNINTERNED_SYMBOL, res)); in memory_to_uninterned_symbol()
|