clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/lispbibl.d

895         callback_saved_registers = (struct registers *)(aint)as_oint(STACK_1);\
4031   #define as_oint(expr)  ((expr).one_o)  macro
4041   #define as_oint(expr)  (oint)(expr)
4044 %% export_def(as_oint(expr));
5519   #define objectplus(obj,offset)  as_object(as_oint(obj)+(soint)(offset))
5574       ((tint)(as_oint(expr) >> oint_type_shift) & (oint_type_mask >> oint_type_shift))
5582     #define typecode(expr)  ((tint)(as_oint(expr) >> oint_type_shift))
5586         ((as_oint(expr) << (32-oint_type_len-oint_type_shift)) >> (32-oint_type_len))
5635       ((aint)(as_oint(expr) >> oint_addr_shift) & (aint)(oint_addr_mask >> oint_addr_shift))
5641 …(((uintP)as_oint(expr) << (pointer_bitsize-oint_addr_len-oint_addr_shift)) >> (pointer_bitsize-oin…
5644         ((aint)((as_oint(expr) << (64-oint_addr_len-oint_addr_shift)) >> (64-oint_addr_len)))
5701 …    ((aint)((as_oint(obj) << (32-oint_addr_len-oint_addr_shift)) >> (32-oint_addr_len-addr_shift)))
5729     #define type_zero_oint(type)  as_oint(type_untype_object(type,0))
5776       #define number_immediatep(obj)  ((as_oint(obj) & wbit(1)) != 0)
5805         (((as_oint(obj) & 1) == 0) || immediate_object_p(obj))
5815         ((as_oint(obj) >> 1) & 1)
5875       #define number_immediatep(obj)  ((as_oint(obj) & wbit(1)) == 0)
5908         ((as_oint(obj) & bit(1)) == 0)
5920         (1 & ~(as_oint(obj) >> 2))
6041       #define number_immediatep(obj)  ((as_oint(obj) & wbit(1)) == 0)
6077         ((as_oint(obj) & bit(1)) == 0)
6089         (1 & ~(as_oint(obj) >> 2))
6109         ((immediate_bias_mask & ~as_oint(obj)) == 0)
6112         ((as_oint(obj) & immediate_bias_mask) == immediate_bias)
6745       ((void*)pointable_address_unchecked(as_oint(obj)))
6788          ? (void*)(aint)as_oint(obj)                                             \
6802     #define type_pointable(type,obj)  ((void*)(aint)as_oint(obj))
6932     one_o = as_oint(obj);  in gcv_object_t()
7851     as_object(as_oint(symbol) & (type_zero_oint(symbol_type) | oint_addr_mask))
7854 …as_object(as_oint(symbol) & ~((wbit(active_bit)|wbit(dynam_bit)|wbit(svar_bit))<<oint_symbolflags_…
7857 #define SET_BIT(o,b)  as_object(as_oint(o) | wbit(b))
7859 #define CLR_BIT(o,b)  as_object(as_oint(o) & ~wbit(b))
7884         ((cint)(as_oint(char_from_char_int)>>oint_data_shift))
7887         ((cint)((as_oint(char_from_char_int)>>oint_data_shift)&(bitm(oint_data_len)-1)))
7895     ((cint)as_oint(char_from_char_int))
8022     ((uintV)((as_oint(obj)&((oint)wbitm(oint_data_len+oint_data_shift)-1))>>oint_data_shift))
8027 …    (((uintV)as_oint(obj) << (intVsize-oint_data_len-oint_data_shift)) >> (intVsize-oint_data_len))
8030 …    ((uintV)(as_oint(obj) >> (oint_data_len+oint_data_shift-intVsize)) >> (intVsize-oint_data_len))
8048   ((uintV)((as_oint(fixnum_inc(Fixnum_minus1,1))-as_oint(obj))>>oint_data_shift))
8059     (((sintV)as_oint(obj) << (intVsize-1-sign_bit_o)) >> (intVsize-1-sign_bit_o+oint_data_shift))
8063 …   (sintV)( ((((sintV)as_oint(obj) >> sign_bit_o) << (intVsize-1)) >> (intVsize-1-oint_data_len)) \
8064 …   |((uintV)((as_oint(obj) & ((oint)wbitm(oint_data_len+oint_data_shift)-1)) >> oint_data_shift)) \
8070 … (sintV)( ((((sintV)(as_oint(obj) >> sign_bit_o)) << (intVsize-1)) >> (intVsize-1-oint_data_len)) \
8071 … |(((uintV)as_oint(obj) << (intVsize-oint_data_len-oint_data_shift)) >> (intVsize-oint_data_len)) \
8075 … (sintV)( ((((sintV)(as_oint(obj) >> sign_bit_o)) << (intVsize-1)) >> (intVsize-1-oint_data_len)) \
8076 … |((uintV)(as_oint(obj) >> (oint_data_len+oint_data_shift-intVsize)) >> (intVsize-oint_data_len)) \
8089       (((sintQ)as_oint(obj) << (intQsize-1-sign_bit_o)) >> (intQsize-1-sign_bit_o+oint_data_shift))
8092 …   (sintQ)( ((((sintQ)as_oint(obj) >> sign_bit_o) << (intQsize-1)) >> (intQsize-1-oint_data_len)) \
8093 …         |((uintQ)((as_oint(obj) & (wbitm(oint_data_len+oint_data_shift)-1)) >> oint_data_shift)) \
9664     fixnum((as_oint(obj) >> (oint_data_shift+1)) & (vbit(oint_data_len-2)-1))
9670     fixnum((as_oint(obj) >> oint_data_shift) & (vbit(oint_data_len)-1))
9845   #define cgci_pointable(obj)  as_oint(obj)
9846   #define pgci_pointable(obj)  as_oint(obj)
9847   #define ngci_pointable(obj)  as_oint(obj)
10200   #define eq(obj1,obj2)  (as_oint(obj1) == as_oint(obj2))
10265     #define consp(obj)  (wbit_test(as_oint(obj),cons_bit_o))
10280   #define consp(obj)  ((as_oint(obj) & 7) == (cons_bias+conses_misaligned))
10290     #define atomp(obj)  (!wbit_test(as_oint(obj),cons_bit_o))
10320 …#define varobjectp(obj)  ((as_oint(obj) & nonimmediate_heapcode_mask) == (varobject_bias+varobject…
10338   #define numberp(obj)  (wbit_test(as_oint(obj),number_bit_o))
10345     ((as_oint(obj) & ((4 << imm_type_shift) | immediate_bias_mask)) == (fixnum_type&sfloat_type))
10802   #define charp(obj)  ((as_oint(obj) & ((7 << imm_type_shift) | immediate_bias_mask)) == char_type)
10809 …((as_oint(obj) & ~((oint)(bit(base_char_int_len)-1)<<oint_data_shift)) == type_zero_oint(char_type…
10817     #define subrp(obj)  ((as_oint(obj) & 3) == subr_bias)
10846     #define framepointerp(obj)  ((as_oint(obj) & 7) == machine_bias) /* other cases?? */
10848     #define framepointerp(obj)  ((as_oint(obj) & 3) == machine_bias) /* other cases?? */
10856     #define machinep(obj)  ((as_oint(obj) & 3) == machine_bias)
10860       ((as_oint(obj) & 3) == machine_bias            \
10861        && (as_oint(obj) & 0xE0000000) != 0xC0000000)
10865       ((as_oint(obj) & 3) == machine_bias    \
10866        && (0xE0000000 & ~as_oint(obj)) != 0)
10870       ((as_oint(obj) & 3) == machine_bias                                \
10871        && (as_oint(obj) & 0xE000000000000000UL) != 0xC000000000000000UL)
10874     #define machinep(obj)  ((as_oint(obj) & 7) == machine_bias)
10878 …#define small_read_label_p(obj)  ((as_oint(obj) & ((7 << imm_type_shift) | immediate_bias_mask)) =…
10881 …#define systemp(obj)  ((as_oint(obj) & ((7 << imm_type_shift) | immediate_bias_mask)) == system_ty…
10897     do { if (((as_oint(obj) & ((4 << imm_type_shift) | immediate_bias_mask)) \
10921     do { if (((as_oint(obj) & ((6 << imm_type_shift) | immediate_bias_mask))  \
10939    (((as_oint(obj) & ((6 << imm_type_shift) | immediate_bias_mask)) == fixnum_type) \
10948 …#define fixnump(obj)  ((as_oint(obj) & ((6 << imm_type_shift) | immediate_bias_mask)) == fixnum_ty…
10956 …#define posfixnump(obj)  ((as_oint(obj) & ((7 << imm_type_shift) | immediate_bias_mask)) == fixnum…
10998     (((as_oint(obj) & ((6 << imm_type_shift) | immediate_bias_mask)) == sfloat_type) \
11010 …#define short_float_p(obj)  ((as_oint(obj) & ((6 << imm_type_shift) | immediate_bias_mask)) == sfl…
11055   #define positivep(obj)  (!wbit_test(as_oint(obj),sign_bit_o))
11063      ? /* fixnum, sfloat */ (as_oint(obj) & wbit(sign_bit_o)) == 0 \
11328 …#define R_sign(obj)  ((signean)sign_of_sint32( (sint32)((uint32)as_oint(obj) << (31-vorz_bit_o)) ))
11337      ? /* fixnum, sfloat */ (sint32)as_oint(obj) << (31-sign_bit_o) \
11353     ((signean)sign_of_sint32((sint32)as_oint(obj) << (31-sign_bit_o)))
11359     ((signean)sign_of_sint32((sint32)as_oint(obj) << (31-sign_bit_o)))
11371     (wbit_test(as_oint(obj1)^as_oint(obj2),vorz_bit_o)==0)
11388     #define N_floatp(obj)  (wbit_test(as_oint(obj),float_bit_o))
11390     #define N_floatp(obj)  (!wbit_test(as_oint(obj),float_bit_o))
11399     #define N_integerp(obj)  (!( as_oint(obj) & (wbit(float_bit_o)|wbit(ratio_bit_o)) ))
11401     #define N_integerp(obj)  (!( (wbit(float_bit_o)|wbit(ratio_bit_o)) & ~as_oint(obj) ))
11411     #define R_rationalp(obj)  (!wbit_test(as_oint(obj),float_bit_o))
11413     #define R_rationalp(obj)  (wbit_test(as_oint(obj),float_bit_o))
11423     #define R_floatp(obj)  (wbit_test(as_oint(obj),float_bit_o))
11425     #define R_floatp(obj)  (!wbit_test(as_oint(obj),float_bit_o))
11434   #define R_minusp(obj)  (wbit_test(as_oint(obj),vorz_bit_o))
11444     #define RA_integerp(obj)  (!wbit_test(as_oint(obj),ratio_bit_o))
11446     #define RA_integerp(obj)  (wbit_test(as_oint(obj),ratio_bit_o))
11456     #define RA_ratiop(obj)  (wbit_test(as_oint(obj),ratio_bit_o))
11458     #define RA_ratiop(obj)  (!wbit_test(as_oint(obj),ratio_bit_o))
11467   #define I_bignump(obj)  (wbit_test(as_oint(obj),bignum_bit_o))
11469   #define I_bignump(obj)  (!wbit_test(as_oint(obj),bignum_bit_o))
11475   #define I_fixnump(obj)  (!wbit_test(as_oint(obj),bignum_bit_o))
11477   #define I_fixnump(obj)  (wbit_test(as_oint(obj),bignum_bit_o))
11484   #define FN_positivep(obj)  ((as_oint(obj) & wbit(sign_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))
11520   ((as_oint(obj) & ~((oint)0xFF << 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…
11524   ((as_oint(obj) & ~((oint)0xFFFF << oint_data_shift)) == as_oint(Fixnum_0))
11526 …(((as_oint(obj) ^ (FN_positivep(obj) ? 0 : as_oint(Fixnum_minus1)^as_oint(Fixnum_0))) & ~((oint)0x…
11529     ((as_oint(obj) & ~((oint)0xFFFFFFFFUL << oint_data_shift)) == as_oint(Fixnum_0))
11540 …(((as_oint(obj) ^ (FN_positivep(obj) ? 0 : as_oint(Fixnum_minus1)^as_oint(Fixnum_0))) & ~((oint)0x…
13746 …        (as_oint(obj) >> (oint_addr_shift-addr_shift)) - ((aint)(tint)symbol_type<<oint_type_shift)  in gcinvariant_symbol_p()
13748            as_oint(obj) - varobject_bias  in gcinvariant_symbol_p()
13751          as_oint(obj)  in gcinvariant_symbol_p()
15087     pushSTACK(symbol); pushSTACK(as_object(as_oint(Fixnum_0) | (oint)(flags)))
15094     pushSTACK(as_object(as_oint(symbol) | (oint)(flags)))
15131 …#define topofframe(bottomword)  (gcv_object_t*)as_oint(type_pointer_object(system_type,upointer(bo…
15142     #define framecode(bottomword)  (as_oint(bottomword) & minus_wbit(FB1))
15143     #define framesize(bottomword)  (as_oint(bottomword)&(wbit(FB1)-1))
15147     #define framecode(bottomword)  (as_oint(bottomword) & 0x3F)
15148     #define framesize(bottomword)  (as_oint(bottomword) >> 6)
15266   var sp_jmp_buf* returner = (sp_jmp_buf*)(aint)as_oint(STACK_(frame_SP)); \
15618     if (!((as_oint(STACK_0) & wbit(frame_bit_o)) && framecode(STACK_0))) \
19407 #define I_to_uint8(obj)  (uint8)(as_oint(obj) >> oint_data_shift)
19408 #define I_to_sint8(obj)  (sint8)(as_oint(obj) >> oint_data_shift)
19409 #define I_to_uint16(obj)  (uint16)(as_oint(obj) >> oint_data_shift)
19410 #define I_to_sint16(obj)  (sint16)(as_oint(obj) >> oint_data_shift)
19412   #define I_to_uint32(obj)  (uint32)(as_oint(obj) >> oint_data_shift)
19417   #define I_to_sint32(obj)  (sint32)(as_oint(obj) >> oint_data_shift)