Home
last modified time | relevance | path

Searched refs:MAKE_POINTER_OBJECT (Results 1 – 25 of 30) sorted by relevance

12

/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/
H A Dutils.c653 = (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 Dvector.c56 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 Dinterp.c491 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 Dboot.c166 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 Dcmpint.h142 (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 Dliarc.h116 (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 Dlist.c50 return (MAKE_POINTER_OBJECT (TC_LIST, (Free - 2))); in cons()
298 return (MAKE_POINTER_OBJECT (type, (Free - 2))); in system_pair_cons()
H A Ddfloat.c46 result = (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, Free));
H A Dmemmag.c316 (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, history_register)); in std_gc_pt1()
500 PRIMITIVE_RETURN (MAKE_POINTER_OBJECT (TC_EPHEMERON, addr));
H A Dhunk.c41 return (MAKE_POINTER_OBJECT (TC_HUNK3, (Free - 3))); in hunk3_cons()
H A Ddaemon.c98 (MAKE_POINTER_OBJECT (TC_LIST, new_pair))); in rehash_pair()
H A Dsysprim.c102 (MAKE_POINTER_OBJECT ((arg_ulong_index_integer (1, N_TYPE_CODES)), Free));
H A Dhooks.c579 (MAKE_POINTER_OBJECT (UNMARKED_HISTORY_TYPE, (make_dummy_history ()))); in initialize_history()
628 (MAKE_POINTER_OBJECT ((OBJECT_TYPE (history_register [HIST_RIB])),
H A Dprim.c262 PRIMITIVE_RETURN (MAKE_POINTER_OBJECT (TC_CELL, (Free - 1)));
H A Dcmpint.c1000 …= (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 Dlookup.c1330 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 Dfasdump.c550 comb = (MAKE_POINTER_OBJECT (TC_COMBINATION, to));
556 root = (MAKE_POINTER_OBJECT (TC_LIST, to));
H A Dxdebug.c175 return (MAKE_POINTER_OBJECT (TC_VECTOR, Saved_Free)); in Find_Who_Points()
H A Dobject.h113 #define MAKE_POINTER_OBJECT(type, address) \ macro
449 (MAKE_POINTER_OBJECT (TC_BROKEN_HEART, (address)))
H A Dintern.c140 SCHEME_OBJECT symbol = (MAKE_POINTER_OBJECT (TC_INTERNED_SYMBOL, Free)); in make_symbol()
H A Dflonum.c52 SCHEME_OBJECT result = (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, Free)); in double_to_flonum()
H A Dfasl.c326 return (MAKE_POINTER_OBJECT (type, address)); in fasl_raw_address_to_object()
H A Dgcloop.c647 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 Dprimutl.c518 ((MAKE_POINTER_OBJECT (TC_CHARACTER_STRING, entries)), in import_primitive_table()
H A Duxtrap.c420 (MAKE_POINTER_OBJECT (TC_NON_MARKED_VECTOR, Free)); in continue_from_trap()

12