/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/ |
H A D | xdebug.c | 55 From += OBJECT_DATUM (*From); in Find_Occurrence() 67 Obj = OBJECT_DATUM (What); in Find_Occurrence() 72 From += OBJECT_DATUM (*From); in Find_Occurrence() 74 else if ((OBJECT_DATUM (*From) == Obj) in Find_Occurrence() 82 Obj = OBJECT_DATUM (What); in Find_Occurrence() 87 From += OBJECT_DATUM (*From); in Find_Occurrence() 89 else if (OBJECT_DATUM (*From) == Obj) in Find_Occurrence() 265 (OBJECT_DATUM (ARG_REF (2))), 266 (OBJECT_DATUM (ARG_REF (3))))); 276 ? ((SCHEME_OBJECT *) (OBJECT_DATUM (object))) [all …]
|
H A D | fasl.c | 230 + (OBJECT_DATUM (raw[FASL_OFFSET_HEAP_SIZE]))); in decode_fasl_header() 233 ? (OBJECT_DATUM (raw[FASL_OFFSET_HEAP_RSVD])) in decode_fasl_header() 240 + (OBJECT_DATUM (raw[FASL_OFFSET_CONST_SIZE]))); in decode_fasl_header() 248 + (OBJECT_DATUM (raw[FASL_OFFSET_STACK_SIZE]))); in decode_fasl_header() 264 = (OBJECT_DATUM (raw[FASL_OFFSET_PRIM_LENGTH])); in decode_fasl_header() 266 = (OBJECT_DATUM (raw[FASL_OFFSET_PRIM_SIZE])); in decode_fasl_header() 269 = (OBJECT_DATUM (raw[FASL_OFFSET_C_LENGTH])); in decode_fasl_header() 271 = (OBJECT_DATUM (raw[FASL_OFFSET_C_SIZE])); in decode_fasl_header() 292 = (OBJECT_DATUM (raw[FASL_OFFSET_EPHEMERONS])); in decode_fasl_header() 300 return ((FASLHDR_MEMORY_BASE (h)) + (OBJECT_DATUM (o))); in fasl_object_address() [all …]
|
H A D | object.h | 98 #define OBJECT_DATUM(object) ((object) & DATUM_MASK) macro 99 #define OBJECT_ADDRESS(object) (DATUM_TO_ADDRESS (OBJECT_DATUM (object))) 105 (MAKE_OBJECT ((type), (OBJECT_DATUM (datum_object)))) 247 #define VECTOR_LENGTH(v) (OBJECT_DATUM (MEMORY_REF ((v), 0))) 264 (OBJECT_DATUM (MEMORY_REF ((s), STRING_LENGTH_INDEX))) 314 #define CHAR_TO_ASCII_P(object) ((OBJECT_DATUM (object)) < MAX_ASCII) 323 #define CHAR_CODE(c) ((OBJECT_DATUM (c)) & CHAR_MASK_CODE) 327 #define FIXNUM_ZERO_P(fixnum) ((OBJECT_DATUM (fixnum)) == 0) 330 #define FIXNUM_EQUAL_P(x, y) ((OBJECT_DATUM (x)) == (OBJECT_DATUM (y))) 336 #define UNSIGNED_FIXNUM_TO_LONG(fixnum) ((long) (OBJECT_DATUM (fixnum))) [all …]
|
H A D | debug.c | 168 unsigned long index = (OBJECT_DATUM (Ptr)); in print_return_name() 340 long Temp_Address = (OBJECT_DATUM (Expr)); in do_printing() 492 if ((OBJECT_DATUM (Expr)) <= TRAP_MAX_IMMEDIATE) in do_printing() 565 (OBJECT_DATUM (entry))); in do_printing() 623 if (((OBJECT_DATUM (Temp)) == RC_END_OF_COMPUTATION) in print_one_continuation_frame() 624 || ((OBJECT_DATUM (Temp)) == RC_HALT)) in print_one_continuation_frame() 626 if ((OBJECT_DATUM (Temp)) == RC_JOIN_STACKLETS) in print_one_continuation_frame() 675 stack_pointer = (STACK_LOC (OBJECT_DATUM (Temp))); in Back_Trace() 766 = ((linkage_section_type_t)((OBJECT_DATUM (object)) >> 16)); in next_addr() 787 unsigned long n_words = (OBJECT_DATUM (object)); in next_addr() [all …]
|
H A D | interp.h | 49 #define CONT_RC(offset) (OBJECT_DATUM (CONT_RET (offset))) 57 #define APPLY_FRAME_HEADER_N_ARGS(header) ((OBJECT_DATUM (header)) - 1) 58 #define APPLY_FRAME_SIZE() (OBJECT_DATUM (STACK_REF (0)))
|
H A D | sdata.h | 172 #define THE_GLOBAL_ENV (MAKE_OBJECT (GLOBAL_ENV, (OBJECT_DATUM (SHARP_F)))) 173 #define THE_NULL_ENV (MAKE_OBJECT (GLOBAL_ENV, ((OBJECT_DATUM (SHARP_F)) ^ 1))) 449 (OBJECT_DATUM (PAIR_CDR (reference)))
|
H A D | prim.c | 65 PRIMITIVE_RETURN (ulong_to_integer (OBJECT_DATUM (ARG_REF (1)))); 202 PRIMITIVE_RETURN (long_to_integer (OBJECT_DATUM (ARG_REF (1))));
|
H A D | gcloop.c | 461 (1 + (OBJECT_DATUM (*from))), in DEFINE_GC_VECTOR_HANDLER() 633 return (scan + 1 + (OBJECT_DATUM (object))); in DEFINE_GC_HANDLER() 638 (*scan) = (((OBJECT_DATUM (object)) <= TRAP_MAX_IMMEDIATE) in DEFINE_GC_HANDLER() 1063 weak_chain = (((OBJECT_DATUM (obj)) == 0) ? 0 : (OBJECT_ADDRESS (obj))); in update_weak_pairs() 1192 (OBJECT_DATUM (MEMORY_REF (gc_object_references, 0)))))); in initialize_gc_object_references() 1225 = (MAKE_OBJECT (TC_MANIFEST_VECTOR, (OBJECT_DATUM (*to_addr)))); in finalize_gc_object_references() 1331 && ((OBJECT_DATUM (object)) >= TRAP_MAX_IMMEDIATE)) in gc_ptr_type()
|
H A D | cmpint.c | 984 (s->n_entries) = (OBJECT_DATUM (STACK_POP ())); in restore_link_cc_state() 987 (s->scan) = ((s->block_address) + (OBJECT_DATUM (STACK_POP ()))); in restore_link_cc_state() 989 (s->n_sections) = (OBJECT_DATUM (STACK_POP ())); in restore_link_cc_state() 1733 && ((mp + 1 + ((OBJECT_DATUM (marker)) & 0xFFFFUL)) < end)); in unlinked_section_start_p() 1739 unsigned long type = ((OBJECT_DATUM (marker)) >> 16); in linkage_section_type() 1753 unsigned long n_words = ((OBJECT_DATUM (marker)) & 0xFFFFUL); in linkage_section_count() 2060 switch (OBJECT_DATUM (code)) in DEFINE_TRAMPOLINE() 2064 unsigned long frame_size = (OBJECT_DATUM (STACK_POP ())); in DEFINE_TRAMPOLINE() 2070 SET_INTERRUPT_MASK (OBJECT_DATUM (STACK_POP ())); in DEFINE_TRAMPOLINE() 2284 unsigned long offset = (OBJECT_DATUM (store[2])); in DEFINE_SCHEME_ENTRY() [all …]
|
H A D | prim.h | 52 #define PRIMITIVE_NUMBER(primitive) (OBJECT_DATUM (primitive))
|
H A D | interp.c | 596 switch (OBJECT_DATUM (GET_RET)) in Interpret() 608 Arg_Number = ((OBJECT_DATUM (STACK_REF (STACK_COMB_FINGER))) - 1); in Interpret() 1100 prev_restore_history_offset = (OBJECT_DATUM (STACK_POP ())); in Interpret() 1118 prev_restore_history_offset = (OBJECT_DATUM (STACK_POP ())); in Interpret()
|
H A D | char.c | 143 (((OBJECT_DATUM (character)) >= MAX_ASCII) ?
|
H A D | extern.c | 83 long number = (OBJECT_DATUM (address));
|
H A D | daemon.c | 91 object_datum = (OBJECT_DATUM (PAIR_CAR (pair))); in rehash_pair()
|
H A D | primutl.c | 428 unsigned long old = (OBJECT_DATUM (primitive)); in renumber_primitive() 525 entries += (1 + (OBJECT_DATUM (*entries))); in import_primitive_table()
|
H A D | fixnum.c | 51 return (OBJECT_DATUM (argument)); in arg_unsigned_fixnum()
|
H A D | uxtrap.c | 492 unsigned long count = (OBJECT_DATUM (object)); in find_block_address() 505 && ((OBJECT_DATUM (*block)) >= (count + 1)) in find_block_address()
|
H A D | fasdump.c | 370 length = (OBJECT_DATUM (*old_addr)); in DEFINE_GC_OBJECT_HANDLER() 443 (((OBJECT_DATUM (object)) == 0) in DEFINE_GC_HANDLER()
|
H A D | cmpint.h | 161 #define CC_BLOCK_ADDR_LENGTH(addr) ((OBJECT_DATUM (*addr)) + 1)
|
H A D | os2xcpt.c | 665 unsigned long count = (OBJECT_DATUM (object)); in find_block_address_in_area() 677 && ((OBJECT_DATUM (*block)) >= (count + 1)) in find_block_address_in_area()
|
H A D | nttrap.c | 907 unsigned long count = (OBJECT_DATUM (object)); in find_block_address_in_area() 919 && ((OBJECT_DATUM (*block)) >= (count + 1)) in find_block_address_in_area()
|
H A D | extern.h | 94 #define GET_RC (OBJECT_DATUM (GET_RET))
|
H A D | lookup.c | 1268 unsigned long datum = (OBJECT_DATUM (object)); in get_trap_kind() 1272 : (OBJECT_DATUM (GET_TRAP_TAG (object)))); in get_trap_kind()
|
H A D | fasload.c | 509 unsigned long datum = (OBJECT_DATUM (object)); in DEFINE_GC_HANDLER()
|
/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/cmpintmd/ |
H A D | svm1.c | 361 unsigned long frame_size = (OBJECT_DATUM (saddr[0])); in write_uuo_target()
|