/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | intlog.d | 70 (as_oint(x) | as_oint(y)); in I_I_logior_I() 95 ((as_oint(x) ^ as_oint(y)) | ((oint)fixnum_type << oint_type_shift)); in I_I_logxor_I() 120 (as_oint(x) & as_oint(y)); in I_I_logand_I() 126 return as_object(as_oint(x) & as_oint(posfixnum(y_low))); in I_I_logand_I() 135 return as_object(as_oint(posfixnum(x_low)) & as_oint(y)); in I_I_logand_I() 163 ( ~(as_oint(x) ^ as_oint(y)) in I_I_logeqv_I() 189 ((as_oint(x) & as_oint(y)) ^ FN_value_vz_mask); in I_I_lognand_I() 234 ((as_oint(x) | as_oint(y)) ^ FN_value_vz_mask); in I_I_lognor_I() 305 ((as_oint(x) | ~as_oint(y)) in I_I_logorc2_I() 387 switch (as_oint(op) ^ as_oint(Fixnum_0)) { in OP_I_I_boole_I() [all …]
|
H A D | spvw_mark.d | 34 …#define mark(addr) (*(gcv_object_t*)(addr) = as_object(as_oint(*(gcv_object_t*)(addr)) | wbit(gar… 40 …#define unmark(addr) (*(gcv_object_t*)(addr) = as_object(as_oint(*(gcv_object_t*)(addr)) & ~wbit(… 49 #define marked(addr) (as_oint(*(gcv_object_t*)(addr)) & wbit(garcol_bit_o)) 53 #define with_mark_bit(obj) as_object(as_oint(obj) | wbit(garcol_bit_o)) 54 #define without_mark_bit(obj) as_object(as_oint(obj) & ~wbit(garcol_bit_o))
|
H A D | intcomp.d | 35 if (as_oint(x) == as_oint(y)) in I_I_comp() 37 else if (as_oint(x) > as_oint(y)) in I_I_comp() 77 if (as_oint(x) == as_oint(y)) in I_I_comp() 79 else if (as_oint(x) > as_oint(y)) in I_I_comp()
|
H A D | lightning.c | 1339 jitc_set_valuesi_1(as_oint(NIL)); in jit_compile_() 1343 jitc_push_stacki(as_oint(NIL)); in jit_compile_() 1358 jitc_set_valuesi_1(as_oint(T)); in jit_compile_() 1362 jitc_push_stacki(as_oint(T)); in jit_compile_() 2802 jitc_set_valuesi_1(as_oint(T)); in jit_compile_() 2815 jit_movi_l(JIT_R1,as_oint(NIL)); in jit_compile_() 2928 jitc_push_stacki(as_oint(NIL)); in jit_compile_() 3466 jit_movi_l(JIT_R1,as_oint(NIL)); in jit_compile_() 3587 jitc_set_valuesi_1(as_oint(T)); in jit_compile_() 3606 jitc_set_valuesi_1(as_oint(T)); in jit_compile_() [all …]
|
H A D | spvw_garcol_old.d | 82 #define pointer_was_object(obj) ((void*)as_oint(obj)) 95 objptr,objptr,as_oint(*objptr))); in gc_mark_stack() 96 if (as_oint(*objptr) & wbit(frame_bit_o)) { /* does a frame start here? */ in gc_mark_stack() 198 switch (as_oint(obj) & nonimmediate_heapcode_mask) { in alive() 372 while ((as_oint(obj) & wbit(garcol_bit_o)) != 0) { /* process list */ in gc_morris2() 1211 …as_object((as_oint(obj) & nonimmediate_bias_mask) | (as_oint(*(gcv_object_t*)ThePointer(obj)) & ~w… 1212 …G_SPVW_ASSERT((consp(obj) ? is_valid_cons_address(as_oint(newptr)) : is_valid_varobject_address(as… 1227 …as_object((as_oint(obj) & nonimmediate_bias_mask) | (as_oint(*(gcv_object_t*)ThePointer(obj)) & ~w… 1228 …G_SPVW_ASSERT((consp(obj) ? is_valid_cons_address(as_oint(newptr)) : is_valid_varobject_address(as… 1279 …as_object((as_oint(obj) & nonimmediate_bias_mask) | (as_oint(*(gcv_object_t*)ThePointer(obj)) & ~w… [all …]
|
H A D | sfloat.d | 12 ({var register uint32 __x = as_oint(x); \ 18 #define SF_uexp(x) ((as_oint(x) >> SF_exp_shift) & (bit(SF_exp_len)-1)) 124 if ((as_oint(x) & mask)==0) # alle diese Bits =0 ? in SF_futruncate_SF() 127 ((as_oint(x) | mask) # alle diese Bits setzen in SF_futruncate_SF() 156 if ( ((as_oint(x) & bitmask) ==0) # Bit 16-e =0 -> abrunden in SF_fround_SF() 159 && ((as_oint(x) & (bitmask<<1)) ==0) in SF_fround_SF() 163 return as_object( as_oint(x) & ~mask ); in SF_fround_SF() 224 if (as_oint(x) < as_oint(y)) in SF_SF_comp() 226 if (as_oint(x) > as_oint(y)) in SF_SF_comp() 239 if (as_oint(x) > as_oint(y)) in SF_SF_comp() [all …]
|
H A D | spvw_garcol.d | 73 #define pointer_was_object(obj) ((void*)as_oint(obj)) 86 objptr,objptr,as_oint(*objptr))); in gc_mark_stack() 87 if (as_oint(*objptr) & wbit(frame_bit_o)) { /* does a frame start here? */ in gc_mark_stack() 189 switch (as_oint(obj) & nonimmediate_heapcode_mask) { in alive() 363 while ((as_oint(obj) & wbit(garcol_bit_o)) != 0) { /* process list */ in gc_morris2() 1249 …as_object((as_oint(obj) & nonimmediate_bias_mask) | (as_oint(*(gcv_object_t*)ThePointer(obj)) & ~w… 1250 …G_SPVW_ASSERT((consp(obj) ? is_valid_cons_address(as_oint(newptr)) : is_valid_varobject_address(as… 1265 …as_object((as_oint(obj) & nonimmediate_bias_mask) | (as_oint(*(gcv_object_t*)ThePointer(obj)) & ~w… 1266 …G_SPVW_ASSERT((consp(obj) ? is_valid_cons_address(as_oint(newptr)) : is_valid_varobject_address(as… 1315 …as_object((as_oint(obj) & nonimmediate_bias_mask) | (as_oint(*(gcv_object_t*)ThePointer(obj)) & ~w… [all …]
|
H A D | spvw_debug.d | 127 fprintf(out," 0x%lx>",as_oint(obj)); in nobject_out1() 131 string_out(out, (((as_oint(subr_tab_ptr_as_object(&subr_tab)) <= in nobject_out1() 132 as_oint(obj)) in nobject_out1() 133 && (as_oint(obj) < in nobject_out1() 134 as_oint(subr_tab_ptr_as_object(&subr_tab+1)))) in nobject_out1() 220 fprintf(out," 0x%lx>",as_oint(obj)); in nobject_out1() 233 fprintf(out," 0x%lx>",as_oint(obj)); in nobject_out1() 237 fprintf(out," 0x%lx>",as_oint(obj)); in nobject_out1() 317 fprintf(out," 0x%lx>",as_oint(obj)); in nobject_out1() 325 fprintf(out," 0x%lx>",as_oint(obj)); in nobject_out1() [all …]
|
H A D | spvw_gcmark.d | 7 IF_DEBUG_GC_MARK(fprintf(stderr,"gc_mark obj = 0x%"PRIoint"x\n", as_oint(obj))); in gc_mark() 212 as_oint(pred), as_oint(curr))); in gc_mark() 265 switch (as_oint(curr) & nonimmediate_heapcode_mask) { in gc_mark() 342 as_oint(pred), as_oint(curr))); in gc_mark() 417 switch (as_oint(pred) & nonimmediate_heapcode_mask) { in gc_mark()
|
H A D | lispbibl.d | 10200 #define eq(obj1,obj2) (as_oint(obj1) == as_oint(obj2)) 11371 (wbit_test(as_oint(obj1)^as_oint(obj2),vorz_bit_o)==0) 11505 (wbit_test(as_oint(obj1)&as_oint(obj2),bignum_bit_o)) 11508 (!wbit_test(as_oint(obj1)|as_oint(obj2),bignum_bit_o)) 11514 ((as_oint(obj) & ~((oint)0x01 << oint_data_shift)) == as_oint(Fixnum_0)) 11516 ((as_oint(obj) & ~((oint)0x03 << oint_data_shift)) == as_oint(Fixnum_0)) 11518 ((as_oint(obj) & ~((oint)0x0F << oint_data_shift)) == as_oint(Fixnum_0)) 11522 …(((as_oint(obj) ^ (FN_positivep(obj) ? 0 : as_oint(Fixnum_minus1)^as_oint(Fixnum_0))) & ~((oint)0x… 11526 …(((as_oint(obj) ^ (FN_positivep(obj) ? 0 : as_oint(Fixnum_minus1)^as_oint(Fixnum_0))) & ~((oint)0x… 11540 …(((as_oint(obj) ^ (FN_positivep(obj) ? 0 : as_oint(Fixnum_minus1)^as_oint(Fixnum_0))) & ~((oint)0x… [all …]
|
H A D | spvw_genera3_old.d | 52 ? consp(ptr->o) && is_valid_cons_address(as_oint(ptr->o)) in update_old_generation() 53 … : !consp(ptr->o) && is_valid_varobject_address(as_oint(ptr->o))); in update_old_generation()
|
H A D | spvw_genera3.d | 68 ? consp(ptr->o) && is_valid_cons_address(as_oint(ptr->o)) in update_old_generation() 69 … : !consp(ptr->o) && is_valid_varobject_address(as_oint(ptr->o))); in update_old_generation()
|
H A D | spvw_memfile.d | 1010 if (as_oint(*objptr) - old_symbol_tab_o in loadmem_update() 1013 *objptr = as_object(as_oint(*objptr) + offset_symbols_o); break; in loadmem_update() 1020 if (as_oint(*objptr) - old_symbol_tab_o in loadmem_update() 1028 var oint addr = as_oint(*objptr); in loadmem_update() 1033 *objptr = as_object(as_oint(*objptr) + ptr->offset_o); in loadmem_update() 1064 as_oint(*(gcv_object_t*)objptr); in loadmem_update() 1072 *objptr = as_object(as_oint(*objptr) + in loadmem_update() 1079 *objptr = as_object(as_oint(*objptr) + in loadmem_update() 1089 var oint addr = as_oint(*objptr); in loadmem_update() 1094 *objptr = as_object(as_oint(*objptr) + ptr->offset_o); in loadmem_update() [all …]
|
H A D | intelem.d | 118 return (as_oint(obj) >> oint_data_shift) | ~ (FN_value_mask >> oint_data_shift); in FN_to_V() 120 return (as_oint(obj) >> oint_data_shift) & (FN_value_mask >> oint_data_shift); in FN_to_V() 1117 #define FN_LSD0(obj) ((uintD)(as_oint(obj)>>oint_data_shift)) 1122 #define FN_LSD1(obj) ((uintD)(as_oint(obj)>>(oint_data_shift+intDsize))) 1129 #define FN_LSD2(obj) ((uintD)(as_oint(obj)>>(oint_data_shift+2*intDsize))) 1136 #define FN_LSD3(obj) ((uintD)(as_oint(obj)>>(oint_data_shift+3*intDsize))) 1155 …((sintD)(as_oint(obj) >> (sign_bit_o-(intDsize-1))) >> (oint_data_shift-sign_bit_o+FN_maxlength*in… 1158 …(((sintD)as_oint(obj) << (intDsize-1-sign_bit_o)) >> (FN_maxlength*intDsize-1-sign_bit_o+oint_data… 1170 …( ((sintD)(as_oint(obj)>>(oint_data_shift+(FN_maxlength-1)*intDsize))&(bit(oint_data_len-(FN_maxle… 1221 do { var oint fix_from_FN_to_NDS = as_oint(obj); \ [all …]
|
H A D | spvw_fault_old.d | 85 ? consp(ptr->o) && is_valid_cons_address(as_oint(ptr->o)) in handle_read_fault() 86 : !consp(ptr->o) && is_valid_varobject_address(as_oint(ptr->o))); in handle_read_fault()
|
H A D | debug.d | 647 if ((as_oint(FRAME_(0)) & wbit(frame_bit_o)) ==0) in framep() 666 || ( (as_oint(FRAME_(0)) & wbit(entrypoint_bit_o)) ==0) \ 731 if (as_oint(FRAME_(0)) & wbit(frame_bit_o)) in frame_up_2() 961 && (!( (as_oint(FRAME_(0)) & wbit(envbind_bit_o)) ==0))) in same_env_as() 1279 if (as_oint(FRAME_(varframe_binding_mark)) & wbit(active_bit_o)) { in print_stackitem() 1282 if (as_oint(FRAME_(varframe_binding_mark)) & wbit(dynam_bit_o)) in print_stackitem() 1308 if (as_oint(FRAME_(0)) & wbit(active_bit_o)) { in print_stackitem() 1311 if (as_oint(FRAME_(0)) & wbit(dynam_bit_o)) /* bindings dynamic? */ in print_stackitem()
|
H A D | spvw_genera1_old.d | 896 ? is_valid_cons_address(as_oint(obj)) \ in rebuild_old_generation_cache() 897 : is_valid_varobject_address(as_oint(obj))); \ in rebuild_old_generation_cache() 908 ? is_valid_cons_address(as_oint(obj)) \ in rebuild_old_generation_cache() 909 : is_valid_varobject_address(as_oint(obj))); \ in rebuild_old_generation_cache() 1095 && (as_oint(obj) - as_oint(symbol_tab_ptr_as_object(&symbol_tab)) in gc_check_at() 1104 if (as_oint(obj) - as_oint(subr_tab_ptr_as_object(module->stab)) in gc_check_at()
|
H A D | spvw_genera1.d | 988 ? is_valid_cons_address(as_oint(obj)) \ in rebuild_old_generation_cache() 989 : is_valid_varobject_address(as_oint(obj))); \ in rebuild_old_generation_cache() 1000 ? is_valid_cons_address(as_oint(obj)) \ in rebuild_old_generation_cache() 1001 : is_valid_varobject_address(as_oint(obj))); \ in rebuild_old_generation_cache() 1187 && (as_oint(obj) - as_oint(symbol_tab_ptr_as_object(&symbol_tab)) in gc_check_at() 1196 if (as_oint(obj) - as_oint(subr_tab_ptr_as_object(module->stab)) in gc_check_at()
|
H A D | spvw_fault.d | 82 ? consp(ptr->o) && is_valid_cons_address(as_oint(ptr->o)) in handle_read_fault() 83 : !consp(ptr->o) && is_valid_varobject_address(as_oint(ptr->o))); in handle_read_fault()
|
H A D | spvw_genera2.d | 43 DEBUG_SPVW_ASSERT(is_valid_heap_object_address(as_oint(ptr->o))); in gc_mark_old_generation()
|
H A D | lfloat.d | 437 return as_object(as_oint(x) ^ wbit(vorz_bit_o)); in LF_minus_LF() 748 y = as_object(as_oint(y) ^ wbit(vorz_bit_o)); in LF_LF_plus_LF() 779 return as_object(as_oint(y) & ~wbit(vorz_bit_o)); in LF_LF_plus_LF() 886 return LF_LF_plus_LF(x1, as_object(as_oint(x2) ^ wbit(vorz_bit_o)) ); in LF_LF_minus_LF() 1031 var signean sign = R_sign(as_object(as_oint(x1) ^ as_oint(x2))); /* combine signs */ in LF_LF_mult_LF() 1141 var signean sign = R_sign(as_object(as_oint(x1) ^ as_oint(x2))); /* combine sign */ in LF_LF_div_LF()
|
H A D | spvw_circ_old.d | 1356 if (!(as_oint(obj) & wbit(0+oint_addr_shift))) { in subst_circ_mark() 1360 if (as_oint(obj) & wbit(oint_data_len-1+oint_addr_shift)) { in subst_circ_mark() 1552 if (!(as_oint(obj) & wbit(0+oint_addr_shift))) { 1556 if (as_oint(obj) & wbit(oint_data_len-1+oint_addr_shift)) { 1751 if (!(as_oint(obj) & wbit(0+oint_addr_shift))) { in subst_circ_mark() 1755 if (as_oint(obj) & wbit(oint_data_len-1+oint_addr_shift)) { in subst_circ_mark()
|
H A D | spvw_circ.d | 1647 if (!(as_oint(obj) & wbit(0+oint_addr_shift))) { in subst_circ_mark() 1651 if (as_oint(obj) & wbit(oint_data_len-1+oint_addr_shift)) { in subst_circ_mark() 1861 if (!(as_oint(obj) & wbit(0+oint_addr_shift))) { 1865 if (as_oint(obj) & wbit(oint_data_len-1+oint_addr_shift)) { 2060 if (!(as_oint(obj) & wbit(0+oint_addr_shift))) { in subst_circ_mark() 2064 if (as_oint(obj) & wbit(oint_data_len-1+oint_addr_shift)) { in subst_circ_mark()
|
H A D | spvw_update.d | 353 if (as_oint(*objptr) & wbit(frame_bit_o)) { /* here starts a frame? */ \
|
H A D | charstrg.d | 1732 if (as_oint(x) <= as_oint(STACK_0)) in char_less() 1749 if (as_oint(x) >= as_oint(STACK_0)) in char_greater() 1766 if (as_oint(x) < as_oint(STACK_0)) in char_ltequal() 1783 if (as_oint(x) > as_oint(STACK_0)) in char_gtequal()
|