Home
last modified time | relevance | path

Searched refs:SG_INT_VALUE (Results 1 – 25 of 45) sorted by relevance

12

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dnumber.c1789 return SG_MAKE_INT(SG_INT_VALUE(x) & SG_INT_VALUE(y)); in Sg_LogAnd()
1923 long r = SG_INT_VALUE(x) + SG_INT_VALUE(y); in Sg_Add()
2025 long r = SG_INT_VALUE(x) - SG_INT_VALUE(y); in Sg_Sub()
2421 q = SG_INT_VALUE(x) / SG_INT_VALUE(y); in Sg_Quotient()
2423 r = SG_INT_VALUE(x) % SG_INT_VALUE(y); in Sg_Quotient()
2535 r = SG_INT_VALUE(x) % SG_INT_VALUE(y); in Sg_Modulo()
2537 if ((SG_INT_VALUE(x) > 0 && SG_INT_VALUE(y) < 0) in Sg_Modulo()
2538 || (SG_INT_VALUE(x) < 0 && SG_INT_VALUE(y) > 0)) { in Sg_Modulo()
2950 long r = SG_INT_VALUE(x) - SG_INT_VALUE(y); in Sg_NumCmp()
3706 int64_t yy = 1, n = SG_INT_VALUE(e), d = SG_INT_VALUE(m); in Sg_ModExpt()
[all …]
H A Dcompare.c129 bound = SG_INT_VALUE(args[1]); \ in DEF_EQ_PROC()
522 if (SG_INT_VALUE(k) <= 0) { in pre_p()
526 SG_MAKE_INT(SG_INT_VALUE(k) - 1), in pre_p()
551 SG_MAKE_INT(SG_INT_VALUE(k) - 1), in pre_p()
598 if (SG_INT_VALUE(k) <= 0) return k; in pre_p()
632 if (SG_INT_VALUE(k) <= 0) { in eP()
658 if (SG_INT_VALUE(k) <= 0) { \
825 if (SG_INT_VALUE(nx) > SG_INT_VALUE(ny)) { in union_find()
827 SG_BOX(rx)->value = SG_MAKE_INT(SG_INT_VALUE(nx) + SG_INT_VALUE(ny)); in union_find()
831 SG_BOX(ry)->value = SG_MAKE_INT(SG_INT_VALUE(ny) + SG_INT_VALUE(nx)); in union_find()
[all …]
H A Dlib_fixnums.c1165 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxzeroP()
1190 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxpositiveP()
1215 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxnegativeP()
1240 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxoddP()
1265 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxevenP()
1292 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxmax()
1303 if ((SG_INT_VALUE(v))>(r)){ in sagittarius_fixnums_fxmax()
1304 r=(SG_INT_VALUE(v));}}} in sagittarius_fixnums_fxmax()
1326 fx = SG_INT_VALUE(fx_scm); in sagittarius_fixnums_fxmin()
1337 if ((SG_INT_VALUE(v))<(r)){ in sagittarius_fixnums_fxmin()
[all …]
H A Dregex.c222 code = 0xFF & SG_INT_VALUE(number); in make_char_from_code()
495 long lo = SG_INT_VALUE(SG_CAAR(cp)); in sub_range()
496 long hi = SG_INT_VALUE(SG_CDAR(cp)); in sub_range()
536 SG_INT_VALUE(SG_CDAR(cp))); in cset_diff()
1081 if (SG_INT_VALUE(num) > ctx->reg && in get_token()
1082 10 <= SG_INT_VALUE(num)) { in get_token()
1559 minimum = SG_INT_VALUE(SG_CADR(ast)); in maybe_split_repetition()
1561 maximum = SG_INT_VALUE(max); in maybe_split_repetition()
2012 long count = SG_INT_VALUE(max) - SG_INT_VALUE(min); in compile_rec()
2037 arg.index = SG_INT_VALUE(num); in compile_rec()
[all …]
H A Dlib_core.c4161 k = SG_INT_VALUE(k_scm); in core_list_tail()
4196 k = SG_INT_VALUE(k_scm); in core_list_setX()
4235 k = SG_INT_VALUE(k_scm); in core_list_ref()
4389 ch = SG_INT_VALUE(ch_scm); in core_integer_TOchar()
4574 k = SG_INT_VALUE(k_scm); in core_make_string()
4662 k = SG_INT_VALUE(k_scm); in core_string_ref()
5197 i = SG_INT_VALUE(i_scm); in core_vector_ref()
5243 i = SG_INT_VALUE(i_scm); in core_vector_setX()
6335 k = SG_INT_VALUE(k_scm); in core_bytevector_copyX()
12979 k = SG_INT_VALUE(k_scm); in core_hashtable_clearX()
[all …]
H A Dcode.c158 if (SG_INTP(obj) && SG_INT_FITS_INSN_VALUE(SG_INT_VALUE(obj))) { in cb_put()
162 packet->arg0 = SG_INT_VALUE(obj); in cb_put()
317 d = SG_INT_VALUE(dest); in finish_builder_rec()
318 o = SG_INT_VALUE(op); in finish_builder_rec()
H A Dwriter.c244 if (nparams > 0 && SG_INTP(params[0])) mincol = SG_INT_VALUE(params[0]); in format_sexp()
245 if (nparams > 1 && SG_INTP(params[1])) colinc = SG_INT_VALUE(params[1]); in format_sexp()
246 if (nparams > 2 && SG_INTP(params[2])) minpad = SG_INT_VALUE(params[2]); in format_sexp()
248 if (nparams > 4 && SG_INTP(params[4])) maxcol = SG_INT_VALUE(params[4]); in format_sexp()
302 if (nparams > 0 && SG_INTP(params[0])) mincol = SG_INT_VALUE(params[0]); in format_integer()
305 if (nparams > 3 && SG_INTP(params[3])) commainterval = SG_INT_VALUE(params[3]); in format_integer()
765 snprintf(buf, sizeof(buf), "%ld", SG_INT_VALUE(obj)); in write_noptr()
862 snprintf(numbuf, sizeof(numbuf), "#%ld#", SG_INT_VALUE(e)); in write_ss_rec()
961 long v = SG_INT_VALUE(e); \ in write_walk_circular()
973 long v = SG_INT_VALUE(e); \ in write_walk_circular()
[all …]
H A Dlib_vm.c153 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_insn_name()
1471 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit0X()
1502 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit1X()
1507 arg0 = SG_INT_VALUE(arg0_scm); in sagittarius_vm_cb_emit1X()
1540 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit2X()
1545 arg0 = SG_INT_VALUE(arg0_scm); in sagittarius_vm_cb_emit2X()
1550 arg1 = SG_INT_VALUE(arg1_scm); in sagittarius_vm_cb_emit2X()
1581 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit0iX()
1619 insn = SG_INT_VALUE(insn_scm); in sagittarius_vm_cb_emit1iX()
1624 arg0 = SG_INT_VALUE(arg0_scm); in sagittarius_vm_cb_emit1iX()
[all …]
H A Dinstructions.scm190 ($result:n (+ (SG_INT_VALUE obj) (SG_INT_VALUE (AC vm)))))
204 ($result:n (+ val1 (SG_INT_VALUE (AC vm)))))
213 ($result:n (- (SG_INT_VALUE obj) (SG_INT_VALUE (AC vm)))))
223 ($result:n (- val1 (SG_INT_VALUE (AC vm)))))
665 (let ((index::long (SG_INT_VALUE (AC vm))))
682 (let ((i::long (SG_INT_VALUE index)))
H A Dlib_regex.c262 flags = SG_INT_VALUE(flags_scm); in sagittarius_regex_impl_compile_regex()
306 flags = SG_INT_VALUE(flags_scm); in sagittarius_regex_impl_compile_regex_ast()
385 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_regex_matcher()
394 end = SG_INT_VALUE(end_scm); in sagittarius_regex_impl_regex_matcher()
476 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_regex_find()
834 count = SG_INT_VALUE(count_scm); in sagittarius_regex_impl__25regex_replace()
1008 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_parse_char_set_string()
1017 end = SG_INT_VALUE(end_scm); in sagittarius_regex_impl_parse_char_set_string()
1098 start = SG_INT_VALUE(start_scm); in sagittarius_regex_impl_regex_text_matcher()
1107 end = SG_INT_VALUE(end_scm); in sagittarius_regex_impl_regex_text_matcher()
H A Dcharset.c69 long start = SG_INT_VALUE(SG_CAR(cell)), end = SG_INT_VALUE(SG_CDR(cell)); in charset_print()
108 Sg_CharSetAddRange(cs, (SgChar)SG_INT_VALUE(SG_CAR(r)), in charset_cache_reader()
109 (SgChar)SG_INT_VALUE(SG_CDR(r))); in charset_cache_reader()
H A Dprofiler.c121 count = SG_INT_VALUE(SG_CDR(e)) + 1; in collect_samples()
227 count = SG_INT_VALUE(SG_CAR(e)) + 1; in Sg_ProfilerCountBufferFlush()
H A Dload.c84 return (SG_INTP(r) ? (int)SG_INT_VALUE(r) : 0); in Sg_Load()
111 return (SG_INTP(r) ? (int)SG_INT_VALUE(r) : 0); in Sg_LoadFromPort()
H A Dlib_fixnums.stub94 (set! target (SG_INT_VALUE v))
135 (if (> (SG_INT_VALUE v) r)
136 (set! r (SG_INT_VALUE v))))
143 (if (< (SG_INT_VALUE v) r)
144 (set! r (SG_INT_VALUE v))))
174 (let ((fx2::long (SG_INT_VALUE o))
H A Dvminsn.c283 {long cise__1168=(SG_INT_VALUE(obj))+(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1168))&&((SG_… in CASE()
300 {long cise__1170=(val1)+(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1170))&&((SG_INT_MAX)>=(ci… in CASE()
314 {long cise__1172=(SG_INT_VALUE(obj))-(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1172))&&((SG_… in CASE()
331 {long cise__1174=(val1)-(SG_INT_VALUE(AC(vm)));if (((SG_INT_MIN)<=(cise__1174))&&((SG_INT_MAX)>=(ci… in CASE()
935 {long index=SG_INT_VALUE(AC(vm)); in CASE()
957 {long i=SG_INT_VALUE(index); in CASE()
H A Dlib_core.stub1033 (set! value (cast uint32_t (SG_INT_VALUE v))))
1092 (set! value (cast int32_t (SG_INT_VALUE v))))
1121 (set! value (cast int32_t (SG_INT_VALUE v))))
1151 (when (< (SG_INT_VALUE v) 0)
1182 (when (< (SG_INT_VALUE v) 0)
1212 (when (or (< (SG_INT_VALUE v) SG_INT_MIN)
1213 (> (SG_INT_VALUE v) SG_INT_MAX))
1216 (set! value (cast int64_t (SG_INT_VALUE v))))
1243 (when (or (< (SG_INT_VALUE v) SG_INT_MIN)
1244 (> (SG_INT_VALUE v) SG_INT_MAX))
[all …]
H A Dbytevector.c251 is_valid_value(SG_INT_VALUE(num), bitCount, signP)) { in Sg_ListToByteVector()
273 i += bytevector_set(bv, i, SG_INT_VALUE(num), bitCount, signP); in Sg_ListToByteVector()
998 long v = SG_INT_VALUE(num); in integer2bytevector()
1048 long v = SG_INT_VALUE(num); in integer2bytevector()
H A Dlib_sagittarius.c1779 end = SG_INT_VALUE(end_scm); in sagittarius_vector_copy()
1875 end = SG_INT_VALUE(end_scm); in sagittarius_vector_reverseX()
1928 end = SG_INT_VALUE(end_scm); in sagittarius_vector_reverse()
4103 end = SG_INT_VALUE(end_scm); in sagittarius__25maybe_substring()
4150 end = SG_INT_VALUE(end_scm); in sagittarius_string_titlecase_2fspecial_casing()
4222 end = SG_INT_VALUE(end_scm); in sagittarius_string_TOistring()
4707 v = SG_INT_VALUE(v_scm); in sagittarius_put_u16()
4756 v = SG_INT_VALUE(v_scm); in sagittarius_put_s16()
8275 k = SG_INT_VALUE(k_scm); in sagittarius_weak_vector_ref()
8323 k = SG_INT_VALUE(k_scm); in sagittarius_weak_vector_setX()
[all …]
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/
H A Dsagittarius-ffi.c421 type = SG_INT_VALUE(SG_CADR(layout)); in Sg_CreateCStruct()
431 type = SG_INT_VALUE(SG_CADR(layout)); in Sg_CreateCStruct()
443 type = SG_INT_VALUE(SG_CADR(layout)); in Sg_CreateCStruct()
532 int bit = SG_INT_VALUE(SG_CADR(n)); in name_match()
952 storage->sl = SG_INT_VALUE(obj); in push_ffi_type_value()
956 storage->s64 = SG_INT_VALUE(obj); in push_ffi_type_value()
1106 offset = SG_INT_VALUE(off); in push_ffi_type_value()
1195 *((type *)result) = SG_INT_VALUE(v); \ in convert_scheme_to_c_value()
1224 *((type *)result) = SG_INT_VALUE(v); \ in convert_scheme_to_c_value()
1568 storage->sl = SG_INT_VALUE(arg); in push_varargs_ffi_type_value()
[all …]
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/filewatch/
H A Dkqueue_watch.c186 SG_INT_VALUE(SG_CDAR(cp)), 0, SG_CAAR(cp)); in Sg_StartMonitoring()
215 SG_INT_VALUE(SG_CDAR(cp)), 0, SG_CAAR(cp)); in Sg_StartMonitoring()
H A Dfsevents_watch.c161 if ((evFlags[i] & SG_INT_VALUE(flags)) == 0) continue; in fsevent_callback()
H A Dinotify_watch.c206 int wd = inotify_add_watch(fds[0].fd, p, SG_INT_VALUE(SG_CDAR(cp))); in Sg_StartMonitoring()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/
H A Dsystem.c622 fds[0] = (int)SG_INT_VALUE(SG_CADR(slot)); in init_fd()
624 fds[1] = (int)SG_INT_VALUE(SG_CADR(slot)); in init_fd()
920 pid_t pid = (pid_t)SG_INT_VALUE(SG_CAR(cp)); in finish_child_process()
960 return (int)SG_INT_VALUE(Sg_SysProcessWait(pid, NULL)); in Sg_SysProcessKill()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/crypto/
H A Dhash.c172 int start = SG_INT_VALUE(data[1]), end = SG_INT_VALUE(data[2]); in copy_out()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/
H A Dsagittarius-socket.c353 ai->ai->ai_flags = (int)SG_INT_VALUE(flags); in ai_flags_set()
363 ai->ai->ai_family = (int)SG_INT_VALUE(family); in ai_family_set()
373 ai->ai->ai_socktype = (int)SG_INT_VALUE(socktype); in ai_socktype_set()
383 ai->ai->ai_protocol = (int)SG_INT_VALUE(protocol); in ai_protocol_set()
897 long val = SG_INT_VALUE(timeout); in select_timeval()

12