Home
last modified time | relevance | path

Searched refs:OBJECT_DATUM (Results 1 – 25 of 29) sorted by relevance

12

/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/
H A Dxdebug.c55 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 Dfasl.c230 + (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 Dobject.h98 #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 Ddebug.c168 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 Dinterp.h49 #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 Dsdata.h172 #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 Dprim.c65 PRIMITIVE_RETURN (ulong_to_integer (OBJECT_DATUM (ARG_REF (1))));
202 PRIMITIVE_RETURN (long_to_integer (OBJECT_DATUM (ARG_REF (1))));
H A Dgcloop.c461 (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 Dcmpint.c984 (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 Dprim.h52 #define PRIMITIVE_NUMBER(primitive) (OBJECT_DATUM (primitive))
H A Dinterp.c596 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 Dchar.c143 (((OBJECT_DATUM (character)) >= MAX_ASCII) ?
H A Dextern.c83 long number = (OBJECT_DATUM (address));
H A Ddaemon.c91 object_datum = (OBJECT_DATUM (PAIR_CAR (pair))); in rehash_pair()
H A Dprimutl.c428 unsigned long old = (OBJECT_DATUM (primitive)); in renumber_primitive()
525 entries += (1 + (OBJECT_DATUM (*entries))); in import_primitive_table()
H A Dfixnum.c51 return (OBJECT_DATUM (argument)); in arg_unsigned_fixnum()
H A Duxtrap.c492 unsigned long count = (OBJECT_DATUM (object)); in find_block_address()
505 && ((OBJECT_DATUM (*block)) >= (count + 1)) in find_block_address()
H A Dfasdump.c370 length = (OBJECT_DATUM (*old_addr)); in DEFINE_GC_OBJECT_HANDLER()
443 (((OBJECT_DATUM (object)) == 0) in DEFINE_GC_HANDLER()
H A Dcmpint.h161 #define CC_BLOCK_ADDR_LENGTH(addr) ((OBJECT_DATUM (*addr)) + 1)
H A Dos2xcpt.c665 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 Dnttrap.c907 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 Dextern.h94 #define GET_RC (OBJECT_DATUM (GET_RET))
H A Dlookup.c1268 unsigned long datum = (OBJECT_DATUM (object)); in get_trap_kind()
1272 : (OBJECT_DATUM (GET_TRAP_TAG (object)))); in get_trap_kind()
H A Dfasload.c509 unsigned long datum = (OBJECT_DATUM (object)); in DEFINE_GC_HANDLER()
/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/cmpintmd/
H A Dsvm1.c361 unsigned long frame_size = (OBJECT_DATUM (saddr[0])); in write_uuo_target()

12