1 case SIG_siS_s: 2 { 3 prim_siS_s f = (prim_siS_s)future->prim_func; 4 GC_CAN_IGNORE Scheme_Object* retval; 5 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(int, arg_i1); JIT_TS_LOCALIZE(Scheme_Object**, arg_S2); 6 7 future->arg_s0 = NULL; future->arg_S2 = NULL; 8 ADJUST_RS_ARG(future, arg_S2); 9 retval = 10 f(arg_s0, arg_i1, arg_S2); 11 future->retval_s = retval; 12 send_special_result(future, retval); 13 break; 14 } 15 case SIG_iSs_s: 16 { 17 prim_iSs_s f = (prim_iSs_s)future->prim_func; 18 GC_CAN_IGNORE Scheme_Object* retval; 19 JIT_TS_LOCALIZE(int, arg_i0); JIT_TS_LOCALIZE(Scheme_Object**, arg_S1); JIT_TS_LOCALIZE(Scheme_Object*, arg_s2); 20 21 future->arg_S1 = NULL; future->arg_s2 = NULL; 22 ADJUST_RS_ARG(future, arg_S1); 23 retval = 24 f(arg_i0, arg_S1, arg_s2); 25 future->retval_s = retval; 26 send_special_result(future, retval); 27 break; 28 } 29 case SIG_s_s: 30 { 31 prim_s_s f = (prim_s_s)future->prim_func; 32 GC_CAN_IGNORE Scheme_Object* retval; 33 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); 34 receive_special_result(future, future->arg_s0, 1); 35 future->arg_s0 = NULL; 36 37 retval = 38 f(arg_s0); 39 future->retval_s = retval; 40 send_special_result(future, retval); 41 break; 42 } 43 case SIG_n_s: 44 { 45 prim_n_s f = (prim_n_s)future->prim_func; 46 GC_CAN_IGNORE Scheme_Object* retval; 47 JIT_TS_LOCALIZE(Scheme_Native_Lambda*, arg_n0); 48 49 future->arg_n0 = NULL; 50 51 retval = 52 f(arg_n0); 53 future->retval_s = retval; 54 send_special_result(future, retval); 55 break; 56 } 57 case SIG__s: 58 { 59 prim__s f = (prim__s)future->prim_func; 60 GC_CAN_IGNORE Scheme_Object* retval; 61 62 63 64 65 retval = 66 f(); 67 future->retval_s = retval; 68 send_special_result(future, retval); 69 break; 70 } 71 case SIG_ss_s: 72 { 73 prim_ss_s f = (prim_ss_s)future->prim_func; 74 GC_CAN_IGNORE Scheme_Object* retval; 75 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); 76 77 future->arg_s0 = NULL; future->arg_s1 = NULL; 78 79 retval = 80 f(arg_s0, arg_s1); 81 future->retval_s = retval; 82 send_special_result(future, retval); 83 break; 84 } 85 case SIG_ssi_s: 86 { 87 prim_ssi_s f = (prim_ssi_s)future->prim_func; 88 GC_CAN_IGNORE Scheme_Object* retval; 89 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); JIT_TS_LOCALIZE(int, arg_i2); 90 91 future->arg_s0 = NULL; future->arg_s1 = NULL; 92 93 retval = 94 f(arg_s0, arg_s1, arg_i2); 95 future->retval_s = retval; 96 send_special_result(future, retval); 97 break; 98 } 99 case SIG_tt_s: 100 { 101 prim_tt_s f = (prim_tt_s)future->prim_func; 102 GC_CAN_IGNORE Scheme_Object* retval; 103 JIT_TS_LOCALIZE(const Scheme_Object*, arg_t0); JIT_TS_LOCALIZE(const Scheme_Object*, arg_t1); 104 105 future->arg_t0 = NULL; future->arg_t1 = NULL; 106 107 retval = 108 f(arg_t0, arg_t1); 109 future->retval_s = retval; 110 send_special_result(future, retval); 111 break; 112 } 113 case SIG_ss_m: 114 { 115 prim_ss_m f = (prim_ss_m)future->prim_func; 116 GC_CAN_IGNORE MZ_MARK_STACK_TYPE retval; 117 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); 118 119 future->arg_s0 = NULL; future->arg_s1 = NULL; 120 121 retval = 122 f(arg_s0, arg_s1); 123 future->retval_m = retval; 124 125 break; 126 } 127 case SIG_Sl_s: 128 { 129 prim_Sl_s f = (prim_Sl_s)future->prim_func; 130 GC_CAN_IGNORE Scheme_Object* retval; 131 JIT_TS_LOCALIZE(Scheme_Object**, arg_S0); JIT_TS_LOCALIZE(intptr_t, arg_l1); 132 133 future->arg_S0 = NULL; 134 ADJUST_RS_ARG(future, arg_S0); 135 retval = 136 f(arg_S0, arg_l1); 137 future->retval_s = retval; 138 send_special_result(future, retval); 139 break; 140 } 141 case SIG_l_s: 142 { 143 prim_l_s f = (prim_l_s)future->prim_func; 144 GC_CAN_IGNORE Scheme_Object* retval; 145 JIT_TS_LOCALIZE(intptr_t, arg_l0); 146 147 148 149 retval = 150 f(arg_l0); 151 future->retval_s = retval; 152 send_special_result(future, retval); 153 break; 154 } 155 case SIG_bsi_v: 156 { 157 prim_bsi_v f = (prim_bsi_v)future->prim_func; 158 159 JIT_TS_LOCALIZE(Scheme_Bucket*, arg_b0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); JIT_TS_LOCALIZE(int, arg_i2); 160 161 future->arg_b0 = NULL; future->arg_s1 = NULL; 162 163 164 f(arg_b0, arg_s1, arg_i2); 165 166 167 break; 168 } 169 case SIG_iiS_v: 170 { 171 prim_iiS_v f = (prim_iiS_v)future->prim_func; 172 173 JIT_TS_LOCALIZE(int, arg_i0); JIT_TS_LOCALIZE(int, arg_i1); JIT_TS_LOCALIZE(Scheme_Object**, arg_S2); 174 175 future->arg_S2 = NULL; 176 ADJUST_RS_ARG(future, arg_S2); 177 178 f(arg_i0, arg_i1, arg_S2); 179 180 181 break; 182 } 183 case SIG_ss_v: 184 { 185 prim_ss_v f = (prim_ss_v)future->prim_func; 186 187 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); 188 189 future->arg_s0 = NULL; future->arg_s1 = NULL; 190 191 192 f(arg_s0, arg_s1); 193 194 195 break; 196 } 197 case SIG_b_v: 198 { 199 prim_b_v f = (prim_b_v)future->prim_func; 200 201 JIT_TS_LOCALIZE(Scheme_Bucket*, arg_b0); 202 203 future->arg_b0 = NULL; 204 205 206 f(arg_b0); 207 208 209 break; 210 } 211 case SIG_sl_s: 212 { 213 prim_sl_s f = (prim_sl_s)future->prim_func; 214 GC_CAN_IGNORE Scheme_Object* retval; 215 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(intptr_t, arg_l1); 216 217 future->arg_s0 = NULL; 218 219 retval = 220 f(arg_s0, arg_l1); 221 future->retval_s = retval; 222 send_special_result(future, retval); 223 break; 224 } 225 case SIG_iS_s: 226 { 227 prim_iS_s f = (prim_iS_s)future->prim_func; 228 GC_CAN_IGNORE Scheme_Object* retval; 229 JIT_TS_LOCALIZE(int, arg_i0); JIT_TS_LOCALIZE(Scheme_Object**, arg_S1); 230 231 future->arg_S1 = NULL; 232 ADJUST_RS_ARG(future, arg_S1); 233 retval = 234 f(arg_i0, arg_S1); 235 future->retval_s = retval; 236 send_special_result(future, retval); 237 break; 238 } 239 case SIG_S_s: 240 { 241 prim_S_s f = (prim_S_s)future->prim_func; 242 GC_CAN_IGNORE Scheme_Object* retval; 243 JIT_TS_LOCALIZE(Scheme_Object**, arg_S0); 244 245 future->arg_S0 = NULL; 246 ADJUST_RS_ARG(future, arg_S0); 247 retval = 248 f(arg_S0); 249 future->retval_s = retval; 250 send_special_result(future, retval); 251 break; 252 } 253 case SIG_s_v: 254 { 255 prim_s_v f = (prim_s_v)future->prim_func; 256 257 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); 258 receive_special_result(future, future->arg_s0, 1); 259 future->arg_s0 = NULL; 260 261 262 f(arg_s0); 263 264 265 break; 266 } 267 case SIG_iSi_s: 268 { 269 prim_iSi_s f = (prim_iSi_s)future->prim_func; 270 GC_CAN_IGNORE Scheme_Object* retval; 271 JIT_TS_LOCALIZE(int, arg_i0); JIT_TS_LOCALIZE(Scheme_Object**, arg_S1); JIT_TS_LOCALIZE(int, arg_i2); 272 273 future->arg_S1 = NULL; 274 ADJUST_RS_ARG(future, arg_S1); 275 retval = 276 f(arg_i0, arg_S1, arg_i2); 277 future->retval_s = retval; 278 send_special_result(future, retval); 279 break; 280 } 281 case SIG_siS_v: 282 { 283 prim_siS_v f = (prim_siS_v)future->prim_func; 284 285 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(int, arg_i1); JIT_TS_LOCALIZE(Scheme_Object**, arg_S2); 286 287 future->arg_s0 = NULL; future->arg_S2 = NULL; 288 ADJUST_RS_ARG(future, arg_S2); 289 290 f(arg_s0, arg_i1, arg_S2); 291 292 293 break; 294 } 295 case SIG_Sii_s: 296 { 297 prim_Sii_s f = (prim_Sii_s)future->prim_func; 298 GC_CAN_IGNORE Scheme_Object* retval; 299 JIT_TS_LOCALIZE(Scheme_Object**, arg_S0); JIT_TS_LOCALIZE(int, arg_i1); JIT_TS_LOCALIZE(int, arg_i2); 300 301 future->arg_S0 = NULL; 302 ADJUST_RS_ARG(future, arg_S0); 303 retval = 304 f(arg_S0, arg_i1, arg_i2); 305 future->retval_s = retval; 306 send_special_result(future, retval); 307 break; 308 } 309 case SIG_z_p: 310 { 311 prim_z_p f = (prim_z_p)future->prim_func; 312 GC_CAN_IGNORE void* retval; 313 JIT_TS_LOCALIZE(size_t, arg_z0); 314 315 316 317 retval = 318 f(arg_z0); 319 future->retval_p = retval; 320 321 break; 322 } 323 case SIG_si_s: 324 { 325 prim_si_s f = (prim_si_s)future->prim_func; 326 GC_CAN_IGNORE Scheme_Object* retval; 327 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(int, arg_i1); 328 329 future->arg_s0 = NULL; 330 331 retval = 332 f(arg_s0, arg_i1); 333 future->retval_s = retval; 334 send_special_result(future, retval); 335 break; 336 } 337 case SIG_sis_v: 338 { 339 prim_sis_v f = (prim_sis_v)future->prim_func; 340 341 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(int, arg_i1); JIT_TS_LOCALIZE(Scheme_Object*, arg_s2); 342 343 future->arg_s0 = NULL; future->arg_s2 = NULL; 344 345 346 f(arg_s0, arg_i1, arg_s2); 347 348 349 break; 350 } 351 case SIG_ss_i: 352 { 353 prim_ss_i f = (prim_ss_i)future->prim_func; 354 GC_CAN_IGNORE int retval; 355 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); 356 357 future->arg_s0 = NULL; future->arg_s1 = NULL; 358 359 retval = 360 f(arg_s0, arg_s1); 361 future->retval_i = retval; 362 363 break; 364 } 365 case SIG_iSp_v: 366 { 367 prim_iSp_v f = (prim_iSp_v)future->prim_func; 368 369 JIT_TS_LOCALIZE(int, arg_i0); JIT_TS_LOCALIZE(Scheme_Object**, arg_S1); JIT_TS_LOCALIZE(void*, arg_p2); 370 371 future->arg_S1 = NULL; future->arg_p2 = NULL; 372 ADJUST_RS_ARG(future, arg_S1); 373 374 f(arg_i0, arg_S1, arg_p2); 375 376 377 break; 378 } 379 case SIG_sss_s: 380 { 381 prim_sss_s f = (prim_sss_s)future->prim_func; 382 GC_CAN_IGNORE Scheme_Object* retval; 383 JIT_TS_LOCALIZE(Scheme_Object*, arg_s0); JIT_TS_LOCALIZE(Scheme_Object*, arg_s1); JIT_TS_LOCALIZE(Scheme_Object*, arg_s2); 384 385 future->arg_s0 = NULL; future->arg_s1 = NULL; future->arg_s2 = NULL; 386 387 retval = 388 f(arg_s0, arg_s1, arg_s2); 389 future->retval_s = retval; 390 send_special_result(future, retval); 391 break; 392 } 393 case SIG__v: 394 { 395 prim__v f = (prim__v)future->prim_func; 396 397 398 399 400 401 402 f(); 403 404 405 break; 406 } 407 case SIG_iS_v: 408 { 409 prim_iS_v f = (prim_iS_v)future->prim_func; 410 411 JIT_TS_LOCALIZE(int, arg_i0); JIT_TS_LOCALIZE(Scheme_Object**, arg_S1); 412 413 future->arg_S1 = NULL; 414 ADJUST_RS_ARG(future, arg_S1); 415 416 f(arg_i0, arg_S1); 417 418 419 break; 420 } 421