/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | compiler.c | 18 SG_WORD(3), 26 SG_WORD(3), 30 SG_WORD(5), 45 SG_WORD(7), 53 SG_WORD(15), 59 SG_WORD(6), 67 SG_WORD(4), 84 SG_WORD(4), 89 SG_WORD(7), 97 SG_WORD(4), [all …]
|
H A D | lib_macro.c | 14 SG_WORD(3), 18 SG_WORD(5), 24 SG_WORD(2), 29 SG_WORD(-17), 33 SG_WORD(4), 42 SG_WORD(14), 45 SG_WORD(6), 57 SG_WORD(4), 62 SG_WORD(3), 66 SG_WORD(4), [all …]
|
H A D | lib_scmlib.c | 1159 SG_WORD(4), 1171 SG_WORD(4), 1186 SG_WORD(3), 1192 SG_WORD(4), 1207 SG_WORD(3), 1212 SG_WORD(8), 1224 SG_WORD(3), 1230 SG_WORD(6), 1240 SG_WORD(5), 1258 SG_WORD(3), [all …]
|
H A D | lib_program.c | 235 SG_WORD(3), 243 SG_WORD(4), 248 SG_WORD(4), 253 SG_WORD(4), 267 SG_WORD(3), 274 SG_WORD(9), 276 SG_WORD(7), 285 SG_WORD(8), 294 SG_WORD(4), 302 SG_WORD(4), [all …]
|
H A D | lib_errors.c | 292 SG_WORD(4), 299 SG_WORD(4), 304 SG_WORD(5), 310 SG_WORD(4), 317 SG_WORD(3), 321 SG_WORD(4), 326 SG_WORD(2), 335 SG_WORD(4), 342 SG_WORD(3), 350 SG_WORD(4), [all …]
|
H A D | lib_arith.c | 117 SG_WORD(4), 122 SG_WORD(4), 125 SG_WORD(16), 127 SG_WORD(14), 131 SG_WORD(6), 146 SG_WORD(8), 157 SG_WORD(3), 162 SG_WORD(3), 169 SG_WORD(3), 173 SG_WORD(5), [all …]
|
H A D | lib_treemap.c | 257 SG_WORD(4), 263 SG_WORD(4), 269 SG_WORD(4), 276 SG_WORD(4), 285 SG_WORD(4), 295 SG_WORD(8), 312 SG_WORD(4), 317 SG_WORD(4), 331 SG_WORD(8), 342 SG_WORD(9), [all …]
|
H A D | lib_fixnums.c | 223 SG_WORD(5), 230 SG_WORD(5), 238 SG_WORD(5), 245 SG_WORD(5), 253 SG_WORD(4), 258 SG_WORD(3), 267 SG_WORD(6), 279 SG_WORD(4), 284 SG_WORD(3), 293 SG_WORD(6), [all …]
|
H A D | compiler-aux.c | 130 SG_WORD(SG_UNDEF) /* null */, 132 SG_WORD(3), 134 SG_WORD(SG_UNDEF) /* (core) */, 137 SG_WORD(SG_UNDEF) /* sagittarius */, 139 SG_WORD(3), 141 SG_WORD(SG_UNDEF) /* (sagittarius) */, 144 SG_WORD(SG_UNDEF) /* base */, 146 SG_WORD(3), 148 SG_WORD(SG_UNDEF) /* (core base) */, 151 SG_WORD(SG_UNDEF) /* r6rs-script */, [all …]
|
H A D | lib_flonums.c | 428 SG_WORD(4), 433 SG_WORD(5), 441 SG_WORD(4), 446 SG_WORD(2), 453 SG_WORD(4), 460 SG_WORD(4), 465 SG_WORD(4), 470 SG_WORD(9), 480 SG_WORD(3), 502 SG_WORD(4), [all …]
|
H A D | lib_sandbox.c | 178 SG_WORD(SG_UNDEF) /* #<library (sagittarius sandbox)> */, 191 SG_WORD(SG_UNDEF) /* #<identifier expand-syntax#(core macro)> */, 194 SG_WORD(SG_NIL) /* () */, 196 SG_WORD(SG_NIL) /* () */, 201 SG_WORD(SG_FALSE) /* #f */, 222 SG_WORD(SG_UNDEF) /* #<identifier expand-syntax#(core macro)> */, 225 SG_WORD(8), 228 SG_WORD(SG_UNDEF) /* #<identifier name#(sagittarius sandbox)> */, 246 SG_WORD(SG_NIL) /* () */, 248 SG_WORD(SG_NIL) /* () */, [all …]
|
H A D | lib_regex.c | 105 SG_WORD(6), 112 SG_WORD(5), 116 SG_WORD(SG_UNDEF) /* #<identifier regex-matcher#(sagittarius regex impl)> */, 128 SG_WORD(6), 135 SG_WORD(5), 139 SG_WORD(SG_UNDEF) /* #<identifier regex-matcher#(sagittarius regex impl)> */, 147 SG_WORD(6), 154 SG_WORD(5), 166 SG_WORD(7), 174 SG_WORD(5), [all …]
|
H A D | lib_sagittarius.c | 825 SG_WORD(3), 835 SG_WORD(3), 856 SG_WORD(3), 867 SG_WORD(3), 877 SG_WORD(3), 883 SG_WORD(4), 889 SG_WORD(3), 893 SG_WORD(2), 902 SG_WORD(3), 912 SG_WORD(3), [all …]
|
H A D | code.c | 103 push(cb, SG_WORD(insn)); in flush() 107 push(cb, SG_WORD(insn)); in flush() 111 push(cb, SG_WORD(0)); in flush() 113 push(cb, SG_WORD(cb->packet.obj)); in flush() 320 code[o] = SG_WORD(d - o); in finish_builder_rec() 334 ret[i + j] = SG_WORD(arg); in finish_builder_rec()
|
H A D | vminsn.c | 225 …,id1164));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1165)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 243 (*((PC(vm))-(1)))=(SG_WORD(g));}}}} in CASE() 993 …,id1183));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1184)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 1020 …,id1187));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1188)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 1031 …,id1190));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1191)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 1178 …,id1193));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1194)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 1189 …,id1196));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1197)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 1248 …,id1199));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1200)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE() 1259 …,id1202));}}}if (SG_GLOCP(v)){{if (SG_FALSEP(s1203)){{(*((PC(vm))-(1)))=(SG_WORD(v));}}v=(SG_GLOC_… in CASE()
|
H A D | cache.c | 316 put_word_rec(out, SG_WORD(o), IMMEDIATE_TAG, WORD_SIZE); in emit_immediate() 1282 code[i+j+1] = SG_WORD(new_cb); in link_cb_rec() 2022 code[i] = SG_WORD(o); in read_code() 2023 prev = (ctx->insnP) ? INSN(SG_WORD(o)) : -1; in read_code()
|
H A D | hashtable.c | 84 (result) = (SgHashVal)((SG_WORD(val) >> 3)*2654435761UL) 217 SMALL_INT_HASH(hashval, (SgHashVal)SG_WORD(obj)); in equal_hash_rec()
|
H A D | instructions.scm | 144 (set! (pointer (- (PC ,vm) 1)) (SG_WORD ,ret))) 162 (set! (pointer (- (PC vm) 1)) (SG_WORD g))))))
|
H A D | vm.c | 1065 code[0] = SG_WORD(MERGE_INSN_VALUE1(APPLY_VALUES, nargs)); in apply_rec() 1066 code[1] = SG_WORD(rest); in apply_rec() 1067 code[2] = SG_WORD(RET); in apply_rec() 1473 static SgWord return_code[1] = {SG_WORD(RET)};
|
H A D | writer.c | 761 Sg_Panic("write: unknown itag object: %08x", SG_WORD(obj)); in write_noptr() 800 Sg_Panic("write: got a bogus object: %08x", SG_WORD(obj)); in write_noptr()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | sagittariusdefs.h | 316 #define SG_WORD(obj) ((SgWord)(obj)) macro 327 #define SG_TAG1(obj) (SG_WORD(obj) & 0x01) 328 #define SG_TAG2(obj) (SG_WORD(obj) & 0x03) 329 #define SG_TAG3(obj) (SG_WORD(obj) & 0x07) 330 #define SG_TAG4(obj) (SG_WORD(obj) & 0x0f) 331 #define SG_TAG8(obj) (SG_WORD(obj) & 0xff) 342 #define SG_ITAG(obj) (SG_WORD(obj)>>8) 370 #define SG_INT_VALUE(obj) (((long)SG_WORD(obj)) >> 2) 374 #define SG_UINTP(obj) (SG_INTP(obj)&&((long)SG_WORD(obj) >= 0)) 381 #define SG_CHAR_VALUE(obj) SG_CHAR(((unsigned long)SG_WORD(obj)) >> 8)
|