Home
last modified time | relevance | path

Searched refs:as_oint (Results 1 – 25 of 36) sorted by relevance

12

/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/
H A Dintlog.d70 (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 Dspvw_mark.d34 …#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 Dintcomp.d35 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 Dlightning.c1339 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 Dspvw_garcol_old.d82 #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 Dsfloat.d12 ({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 Dspvw_garcol.d73 #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 Dspvw_debug.d127 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 Dspvw_gcmark.d7 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 Dlispbibl.d10200 #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 Dspvw_genera3_old.d52 ? 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 Dspvw_genera3.d68 ? 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 Dspvw_memfile.d1010 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 Dintelem.d118 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 Dspvw_fault_old.d85 ? 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 Ddebug.d647 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 Dspvw_genera1_old.d896 ? 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 Dspvw_genera1.d988 ? 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 Dspvw_fault.d82 ? 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 Dspvw_genera2.d43 DEBUG_SPVW_ASSERT(is_valid_heap_object_address(as_oint(ptr->o))); in gc_mark_old_generation()
H A Dlfloat.d437 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 Dspvw_circ_old.d1356 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 Dspvw_circ.d1647 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 Dspvw_update.d353 if (as_oint(*objptr) & wbit(frame_bit_o)) { /* here starts a frame? */ \
H A Dcharstrg.d1732 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()

12