/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/ |
H A D | utils.c | 653 = (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, rib)); in make_dummy_history() 658 = (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, rib)); in make_dummy_history() 660 = (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, history)); in make_dummy_history() 662 = (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, history)); in make_dummy_history() 682 SET_EXP (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, history_register)); in save_history() 750 = (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, rib)); in new_reduction() 803 new_hunk = (MAKE_POINTER_OBJECT (vert_type, Free)); in copy_history() 807 = (MAKE_POINTER_OBJECT ((OBJECT_TYPE (hist_ptr[HIST_PREV_SUBPROBLEM])), in copy_history() 826 (*rib_slot) = (MAKE_POINTER_OBJECT (rib_type, Free)); in copy_history() 848 (MAKE_POINTER_OBJECT in copy_history()
|
H A D | vector.c | 56 SCHEME_OBJECT result = (MAKE_POINTER_OBJECT (type, (*fp))); in allocate_vector() 88 SCHEME_OBJECT result = (MAKE_POINTER_OBJECT (TC_VECTOR, Free)); in make_vector() 241 result = (MAKE_POINTER_OBJECT (TC_LIST, Free)); 249 (*pair_scan++) = (MAKE_POINTER_OBJECT (TC_LIST, Free)); 283 return (MAKE_POINTER_OBJECT (result_type, result)); in SUBVECTOR_TO_LIST_PRIMITIVE()
|
H A D | interp.c | 491 SET_VAL (MAKE_POINTER_OBJECT (TC_DELAYED, Free)); in Interpret() 504 SET_VAL (MAKE_POINTER_OBJECT (TC_EXTENDED_PROCEDURE, Free)); in Interpret() 513 SET_VAL (MAKE_POINTER_OBJECT (TC_PROCEDURE, Free)); in Interpret() 908 = (MAKE_POINTER_OBJECT (TC_ENVIRONMENT, Free)); in Interpret() 997 temp = (MAKE_POINTER_OBJECT (TC_ENVIRONMENT, scan)); in Interpret() 1014 = (MAKE_POINTER_OBJECT (TC_LIST, (scan + size))); in Interpret() 1024 (*scan) = MAKE_POINTER_OBJECT (TC_LIST, (scan + 1)); in Interpret()
|
H A D | boot.c | 166 expr = (MAKE_POINTER_OBJECT (TC_COMBINATION, Free)); in start_scheme() 169 (*Free++) = (MAKE_POINTER_OBJECT (TC_COMBINATION, inner_arg)); in start_scheme() 177 expr = (MAKE_POINTER_OBJECT (TC_COMBINATION, Free)); in start_scheme()
|
H A D | cmpint.h | 142 (MAKE_POINTER_OBJECT (TC_COMPILED_ENTRY, ((SCHEME_OBJECT *) (addr)))) 154 (MAKE_POINTER_OBJECT (TC_COMPILED_CODE_BLOCK, (address))) 157 (MAKE_POINTER_OBJECT (TC_STACK_ENVIRONMENT, (address)))
|
H A D | liarc.h | 116 (tgt) = (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, (val))); \ 126 (MAKE_POINTER_OBJECT (TC_COMPILED_ENTRY, \ 274 (*--Rsp) = (MAKE_POINTER_OBJECT (TC_COMPILED_ENTRY, Rpc)); \
|
H A D | list.c | 50 return (MAKE_POINTER_OBJECT (TC_LIST, (Free - 2))); in cons() 298 return (MAKE_POINTER_OBJECT (type, (Free - 2))); in system_pair_cons()
|
H A D | dfloat.c | 46 result = (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, Free));
|
H A D | memmag.c | 316 (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, history_register)); in std_gc_pt1() 500 PRIMITIVE_RETURN (MAKE_POINTER_OBJECT (TC_EPHEMERON, addr));
|
H A D | hunk.c | 41 return (MAKE_POINTER_OBJECT (TC_HUNK3, (Free - 3))); in hunk3_cons()
|
H A D | daemon.c | 98 (MAKE_POINTER_OBJECT (TC_LIST, new_pair))); in rehash_pair()
|
H A D | sysprim.c | 102 (MAKE_POINTER_OBJECT ((arg_ulong_index_integer (1, N_TYPE_CODES)), Free));
|
H A D | hooks.c | 579 (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, (make_dummy_history ()))); in initialize_history() 628 (MAKE_POINTER_OBJECT ((OBJECT_TYPE (history_register [HIST_RIB])),
|
H A D | prim.c | 262 PRIMITIVE_RETURN (MAKE_POINTER_OBJECT (TC_CELL, (Free - 1)));
|
H A D | cmpint.c | 1000 …= (VECTOR_LOC (block, (1 + (VECTOR_LENGTH (MAKE_POINTER_OBJECT (TC_VECTOR, (VECTOR_LOC (block, 0))… in cc_block_linkage_info() 1172 SCHEME_OBJECT cache = (MAKE_POINTER_OBJECT (CACHE_TYPE, cache_addr)); in DEFINE_SCHEME_UTILITY_3() 1219 SCHEME_OBJECT cache = (MAKE_POINTER_OBJECT (CACHE_TYPE, cache_addr)); in DEFINE_SCHEME_UTILITY_3() 1273 SCHEME_OBJECT cache = (MAKE_POINTER_OBJECT (CACHE_TYPE, cache_addr)); in DEFINE_SCHEME_UTILITY_2() 1314 SCHEME_OBJECT cache = (MAKE_POINTER_OBJECT (CACHE_TYPE, cache_addr)); in DEFINE_SCHEME_UTILITY_2() 1355 SCHEME_OBJECT cache = (MAKE_POINTER_OBJECT (CACHE_TYPE, cache_addr)); in DEFINE_SCHEME_UTILITY_2() 1584 SCHEME_OBJECT rest_arg = (MAKE_POINTER_OBJECT (TC_LIST, Free)); in setup_lexpr_invocation() 1591 (Free[1]) = (MAKE_POINTER_OBJECT (TC_LIST, (Free + 2))); in setup_lexpr_invocation()
|
H A D | lookup.c | 1330 references = (MAKE_POINTER_OBJECT (CACHE_REFERENCES_TYPE, Free)); in guarantee_cache() 1340 (*cell) = (MAKE_POINTER_OBJECT (TC_REFERENCE_TRAP, (Free - 2))); in guarantee_cache() 1380 (*cache_ret) = (MAKE_POINTER_OBJECT (CACHE_TYPE, (Free - 3))); in make_cache() 1392 (*ref_ret) = (MAKE_POINTER_OBJECT (TC_WEAK_CONS, (Free - 2))); in make_cache_reference()
|
H A D | fasdump.c | 550 comb = (MAKE_POINTER_OBJECT (TC_COMBINATION, to)); 556 root = (MAKE_POINTER_OBJECT (TC_LIST, to));
|
H A D | xdebug.c | 175 return (MAKE_POINTER_OBJECT (TC_VECTOR, Saved_Free)); in Find_Who_Points()
|
H A D | object.h | 113 #define MAKE_POINTER_OBJECT(type, address) \ macro 449 (MAKE_POINTER_OBJECT (TC_BROKEN_HEART, (address)))
|
H A D | intern.c | 140 SCHEME_OBJECT symbol = (MAKE_POINTER_OBJECT (TC_INTERNED_SYMBOL, Free)); in make_symbol()
|
H A D | flonum.c | 52 SCHEME_OBJECT result = (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, Free)); in double_to_flonum()
|
H A D | fasl.c | 326 return (MAKE_POINTER_OBJECT (type, address)); in fasl_raw_address_to_object()
|
H A D | gcloop.c | 647 return (MAKE_POINTER_OBJECT (type, address)); in gc_raw_address_to_object() 892 : (MAKE_POINTER_OBJECT ((OBJECT_TYPE (old_car)), weak_chain))); in gc_transport_weak_pair()
|
H A D | primutl.c | 518 ((MAKE_POINTER_OBJECT (TC_CHARACTER_STRING, entries)), in import_primitive_table()
|
H A D | uxtrap.c | 420 (MAKE_POINTER_OBJECT (TC_NON_MARKED_VECTOR, Free)); in continue_from_trap()
|