/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | time.d | 561 && (posfixnum_to_V(arg) >= 613608) /* arg >= 1.1.1970 */ 563 now = (time_t)(posfixnum_to_V(arg) - 613608) * 3600; 591 var uintL useconds = posfixnum_to_V(popSTACK()); 592 var uintL seconds = posfixnum_to_V(popSTACK()); 654 var uintL mseconds = posfixnum_to_V(popSTACK()); 655 var uintL seconds = posfixnum_to_V(popSTACK()); 748 var uintV shift = posfixnum_to_V(STACK_0); 750 var uintV o2 = posfixnum_to_V(STACK_1); 752 var uintV o1 = posfixnum_to_V(STACK_2); 754 var uintV n2 = posfixnum_to_V(STACK_3); [all …]
|
H A D | record.d | 54 if (!(posfixnump(STACK_0) && ((index = posfixnum_to_V(STACK_0)) < length))) in record_up() 90 && ((length = posfixnum_to_V(STACK_0)) <= (uintV)(vbitm(intWsize)-1)) \ 144 if (!(posfixnump(STACK_0) && ((index = posfixnum_to_V(STACK_0)) < length))) in structure_up() 355 var uintV pos = posfixnum_to_V(check_posfixnum(STACK_0)); in closure_const() 389 && ((byte = posfixnum_to_V(Car(listr))) < (1<<intBsize)))) in make_code_vector() 1131 return &TheSrecord(instance)->recdata[posfixnum_to_V(slotinfo)]; in ptr_to_slot() 1134 ->data[posfixnum_to_V(Cdr(slotinfo))]; in ptr_to_slot() 1371 ->data[posfixnum_to_V(Cdr(slotinfo))]; in slot_access_up() 1506 ? TheSrecord(obj)->recdata[posfixnum_to_V(old_slotinfo)] in update_instance() 1509 ->data[posfixnum_to_V(Cdr(old_slotinfo))]); in update_instance() [all …]
|
H A D | hashtabl.d | 153 return posfixnum_to_V(TheStructure(obj)->recdata[1]); in hashcode1stable() 162 return posfixnum_to_V(hashcode); in hashcode1stable() 1290 var uintL maxcount = posfixnum_to_V(index); in rehash() 1400 var uintL index = posfixnum_to_V(*Nptr); /* next index */ in hash_lookup_builtin() 1645 var uintV maxcountV = posfixnum_to_V(maxcount); in prepare_resize() 1812 var uintL maxcount = posfixnum_to_V(index); in clrhash() 2332 if ( posfixnum_to_V(TheHashedAlist(kvtable)->hal_count) 2333 < posfixnum_to_V(TheHashtable(ht)->ht_mincount)) { 2508 var uintL index = posfixnum_to_V(Cdr(state)); 2543 posfixnum_to_V(TheHashtable(STACK_0)->ht_maxcount); [all …]
|
H A D | sequence.d | 498 var uintV count = posfixnum_to_V(STACK_2); in copy_seqpart_into() 578 if (posfixnum_to_V(index) >= len) { in seq_check_index() 738 var uintV count = posfixnum_to_V(STACK_1); 1796 var uintV count = posfixnum_to_V(STACK_1); 4613 var uintV start = posfixnum_to_V(STACK_2); 4614 var uintV end = posfixnum_to_V(STACK_1); 4662 var uintV start = posfixnum_to_V(STACK_2); 4663 var uintV end = posfixnum_to_V(STACK_1); 4723 var uintV end = posfixnum_to_V(STACK_1); 4774 var uintV end = posfixnum_to_V(STACK_1); [all …]
|
H A D | array.d | 791 var uintV indexv = posfixnum_to_V(STACK_0); 812 var uintV indexv = posfixnum_to_V(STACK_0); 921 var uintV axis = posfixnum_to_V(axis_number); 1104 && (posfixnum_to_V(subscriptobj) < *dimptr++) )) 3847 || ((inc = posfixnum_to_V(extension)) == 0) 4520 displaced_index_offset = posfixnum_to_V(STACK_0); in test_displaced() 4560 var uintV fillpointer = posfixnum_to_V(STACK_2); in test_fillpointer() 4690 *dimptr++ = posfixnum_to_V(dims); 4750 ptr->newdim = posfixnum_to_V(newdims); in reshape() 5021 *dimptr++ = posfixnum_to_V(dims); [all …]
|
H A D | io.d | 160 return posfixnum_to_V(val); in syntax_table_get_notinline() 849 && (intvalue = posfixnum_to_V(value), in get_base() 5366 dotimesV(count,posfixnum_to_V(scount), { in spaces() 5553 var uintV add = posfixnum_to_V(indent); in pprint_prefix() 5580 var uintV margin = posfixnum_to_V(prm); in right_margin() 6149 posfixnum_to_V(popSTACK()); in indentprep_end() 6185 && (posfixnum_to_V(level) >= posfixnum_to_V(limit))) { /* reached it or exceeded it? */ in level_check() 6221 ? posfixnum_to_V(limit) /* yes */ in get_print_length() 6394 var uintV pos = posfixnum_to_V(line_pos); in space_available() 6397 var uintV mar = posfixnum_to_V(prm); in space_available() [all …]
|
H A D | weak.d | 150 var uintL len = posfixnum_to_V(TheWeakList(wl)->wl_count); 158 var uintL newlen = posfixnum_to_V(TheWeakList(wl)->wl_count); 757 var uintL len = posfixnum_to_V(TheWeakAlist(wal)->wal_count); 765 var uintL newlen = posfixnum_to_V(TheWeakAlist(wal)->wal_count); 1002 var uintL count = posfixnum_to_V(TheWeakAlist(wal)->wal_count);
|
H A D | package.d | 151 var uintL oldsize = posfixnum_to_V(Symtab_size(symtab)); /* old size */ in rehash_symtab() 276 string_hashcode(string,invert) % (uintL)posfixnum_to_V(Symtab_size(symtab)); in symtab_lookup() 300 string_hashcode(Symbol_name(sym),false) % (uintL)posfixnum_to_V(Symtab_size(symtab)); in symtab_find() 324 var uintL size = posfixnum_to_V(Symtab_size(symtab)); in symtab_insert() 325 var uintL count = posfixnum_to_V(Symtab_count(symtab)); in symtab_insert() 335 string_hashcode(Symbol_name(sym),false) % (uintL)posfixnum_to_V(Symtab_size(symtab)); in symtab_insert() 369 string_hashcode(Symbol_name(sym),false) % (uintL)posfixnum_to_V(Symtab_size(symtab)); in symtab_delete() 1415 var uintL size = posfixnum_to_V(Symtab_size(symtab)); in map_symtab() 1454 var uintL size = posfixnum_to_V(Symtab_size(symtab)); in map_symtab_c() 3033 var uintL index = posfixnum_to_V(PIS(state,INDEX)); [all …]
|
H A D | list.d | 551 var uintV n = posfixnum_to_V(STACK_2); 557 { var uintV m = posfixnum_to_V(STACK_1); 587 if ((posfixnum_to_V(STACK_1) <= l) 588 && (!boundp(STACK_0) || (l <= posfixnum_to_V(STACK_0)))) 623 if (posfixnum_to_V(number) >= vbitm(intLsize)) in get_integer_truncate() 626 return posfixnum_to_V(number); in get_integer_truncate()
|
H A D | intelem.d | 168 if (posfixnum_to_V(obj) >= vbitm(intLsize)) goto bad; in I_to_UL() 170 return posfixnum_to_V(obj); in I_to_UL() 224 var sintV value = posfixnum_to_V(obj); in I_to_L() 310 return (uint64)posfixnum_to_V(obj); in I_to_UQ() 375 return (uint64)posfixnum_to_V(obj); in I_to_Q()
|
H A D | debug.d | 176 if (posfixnum_to_V(Symbol_value(S(recurse_count_standard_output))) > 3) { in read_form() 186 if (posfixnum_to_V(Symbol_value(S(recurse_count_debug_io))) > 3) { in read_form() 868 && ((mode = posfixnum_to_V(arg)) > 0) in test_mode_arg() 1127 switch ((uintW)posfixnum_to_V(TheFsubr(fun)->argtype)) { in top_of_back_trace_frame()
|
H A D | spvw_memfile.d | 2007 (uintL)posfixnum_to_V(header._dumptime.year), in memfile_handle_do_operation() 2008 (uintL)posfixnum_to_V(header._dumptime.month), in memfile_handle_do_operation() 2009 (uintL)posfixnum_to_V(header._dumptime.day), in memfile_handle_do_operation() 2010 (uintL)posfixnum_to_V(header._dumptime.hours), in memfile_handle_do_operation() 2011 (uintL)posfixnum_to_V(header._dumptime.minutes), in memfile_handle_do_operation() 2012 (uintL)posfixnum_to_V(header._dumptime.seconds)); in memfile_handle_do_operation()
|
H A D | flo_rest.d | 995 && ((udelta = posfixnum_to_V(delta)) in SF_I_scale_float_SF() 1034 && ((udelta = posfixnum_to_V(delta)) in FF_I_scale_float_FF() 1079 && ((udelta = posfixnum_to_V(delta)) in DF_I_scale_float_DF() 1138 udelta = posfixnum_to_V(delta); goto pos; in LF_I_scale_float_LF()
|
H A D | stream.d | 603 && (result = posfixnum_to_V(value), in check_value_range() 3413 decoded->size = posfixnum_to_V(eltype_size); in test_eltype_arg() 5546 if (!(posfixnump(obj) && (posfixnum_to_V(obj) < bit(8)))) in wr_by_iau8_unbuffered() 7698 write_byte_buffered(stream,(uintB)posfixnum_to_V(obj)); in wr_by_iau8_buffered() 10663 pos.Y = posfixnum_to_V(STACK_1); 10664 pos.X = posfixnum_to_V(STACK_0); 12386 var uintV line = posfixnum_to_V(STACK_1); 12387 var uintV column = posfixnum_to_V(STACK_0); 12545 var uintV line = posfixnum_to_V(STACK_1); 12546 var uintV column = posfixnum_to_V(STACK_0); [all …]
|
H A D | intlog.d | 454 var uintV x_ = posfixnum_to_V(x); in I_I_logtest() 511 var uintV x_ = posfixnum_to_V(x); in I_I_logbitp() 1120 var uintV x_ = posfixnum_to_V(x); in I_power2p()
|
H A D | spvw_debug.d | 189 (unsigned long)posfixnum_to_V(TheHashtable(obj)->ht_maxcount), in nobject_out1() 190 (unsigned long)posfixnum_to_V(TheHashtable(obj)->ht_mincount)); in nobject_out1()
|
H A D | intserial.d | 196 var uintV value = posfixnum_to_V(obj); in UI_to_LEbytes()
|
H A D | realtran.d | 470 var uintC mod4 = posfixnum_to_V(STACK_1); /* q mod 4 */ in R_sin_R() 515 var uintC mod4 = posfixnum_to_V(STACK_1); /* q mod 4 */ in R_cos_R() 610 var uintC q = posfixnum_to_V(STACK_3); in R_cos_sin_R_R()
|
H A D | charstrg.d | 1188 var uintV code = posfixnum_to_V(obj); in coerce_char() 1537 var uintV radix = posfixnum_to_V(arg); in test_radix_arg() 1896 && ((code = posfixnum_to_V(codeobj)) < char_code_limit)) { 1950 && ((weight = posfixnum_to_V(weightobj)) < radix)) { 1971 if ((posfixnump(arg)) && ((i = posfixnum_to_V(arg)) < char_code_limit)) { 2213 ((to_setter posfixnum_to_V(index)) uplimit_cmp upper_limit))) { \ 3140 size = posfixnum_to_V(STACK_2);
|
H A D | predtype.d | 901 var uintL index = posfixnum_to_V(TheHashtable(ht1)->ht_maxcount); in hash_table_equalp() 911 var uintL index = posfixnum_to_V(TheHashtable(ht2)->ht_maxcount); in hash_table_equalp() 2149 ? posfixnum_to_V(Symbol_value(S(deftype_depth_limit))) in expand_deftype() 2150 : posfixnum_to_V(Symbol_value(S(most_positive_fixnum)))); in expand_deftype() 2667 …ture_classes.free_count = posfixnum_to_V(O(structure_class_count_max))) + (locals.standard_classes… 3155 if (posfixnum_to_V(Symbol_value(S(recurse_count_gc_statistics))) > 3) { in with_gc_statistics()
|
H A D | eval.d | 348 && (i = posfixnum_to_V(arg), 2256 *--ptrflags = (uintB)posfixnum_to_V(popSTACK()); in get_closure() 2591 var uintC count = posfixnum_to_V(TheIclosure(closure)->clos_req_count); in funcall_iclosure() 2606 var uintC count = posfixnum_to_V(TheIclosure(closure)->clos_opt_count); in funcall_iclosure() 3215 switch ((uintW)posfixnum_to_V(TheFsubr(fun)->argtype)) { in eval_fsubr() 7151 var uintL i = posfixnum_to_V(value1); /* Number of Labels */ in interpret_bytecode_() 7152 var uintL index = posfixnum_to_V(STACK_((m-i)+3)); /* labeli */ in interpret_bytecode_() 7410 var uintL count = (uintL)posfixnum_to_V(Car(handler_args.spdepth)) in interpret_bytecode_() 7411 + jmpbufsize * (uintL)posfixnum_to_V(Cdr(handler_args.spdepth)); in interpret_bytecode_() 7605 && ((i = posfixnum_to_V(index)) < Svector_length(vec)))) in interpret_bytecode_() [all …]
|
H A D | dfloat.d | 1541 var uint64 mant = posfixnum_to_V(STACK_1); in RA_to_DF() 1585 var uint32 manthi = posfixnum_to_V(STACK_1) >> 32; in RA_to_DF() 1586 var uint32 mantlo = (uint32)posfixnum_to_V(STACK_1); in RA_to_DF()
|
H A D | intbyte.d | 61 size_assignment posfixnum_to_V(TheByte(byte)->byte_size); \ 62 position_assignment posfixnum_to_V(TheByte(byte)->byte_position); \
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/modules/dirkey/ |
H A D | dirkey.c | 661 uintL keynum = posfixnum_to_V(NODE_KEY(node)); in state_next_key() 662 uintL keylen = posfixnum_to_V(NODE_KEY_S(node)); in state_next_key() 740 uintL attnum = posfixnum_to_V(NODE_ATT(node)); 741 uintL attlen = posfixnum_to_V(NODE_ATT_S(node)); 742 uintL datlen = posfixnum_to_V(NODE_DAT_S(node));
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/modules/gdbm/ |
H A D | gdbm.c | 103 posfixnum_to_V(TheStructure(*gdbm)->recdata[GDBM_SLOT_KEY]); in check_gdbm() 106 posfixnum_to_V(TheStructure(*gdbm)->recdata[GDBM_SLOT_VAL]); in check_gdbm()
|