Home
last modified time | relevance | path

Searched refs:posfixnum_to_V (Results 1 – 25 of 42) sorted by relevance

12

/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/
H A Dtime.d561 && (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 Drecord.d54 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 Dhashtabl.d153 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 Dsequence.d498 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 Darray.d791 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 Dio.d160 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 Dweak.d150 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 Dpackage.d151 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 Dlist.d551 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 Dintelem.d168 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 Ddebug.d176 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 Dspvw_memfile.d2007 (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 Dflo_rest.d995 && ((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 Dstream.d603 && (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 Dintlog.d454 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 Dspvw_debug.d189 (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 Dintserial.d196 var uintV value = posfixnum_to_V(obj); in UI_to_LEbytes()
H A Drealtran.d470 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 Dcharstrg.d1188 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 Dpredtype.d901 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 Deval.d348 && (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 Ddfloat.d1541 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 Dintbyte.d61 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 Ddirkey.c661 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 Dgdbm.c103 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()

12