scheme_rtcall_siS_s(const char * who,int src_type,prim_siS_s f,Scheme_Object * g238,int g239,Scheme_Object ** g240)1 Scheme_Object* scheme_rtcall_siS_s(const char *who, int src_type, prim_siS_s f, Scheme_Object* g238, int g239, Scheme_Object** g240) 2 XFORM_SKIP_PROC 3 { 4 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 5 future_t *future; 6 double tm; 7 Scheme_Object* retval; 8 9 future = fts->thread->current_ft; 10 future->prim_protocol = SIG_siS_s; 11 future->prim_func = f; 12 tm = get_future_timestamp(); 13 future->time_of_request = tm; 14 future->source_of_request = who; 15 future->source_type = src_type; 16 future->arg_s0 = g238; 17 future->arg_i1 = g239; 18 future->arg_S2 = g240; 19 20 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 21 fts->thread = scheme_current_thread; 22 future = fts->thread->current_ft; 23 retval = future->retval_s; 24 future->retval_s = 0; 25 receive_special_result(future, retval, 1); 26 return retval; 27 } scheme_rtcall_iSs_s(const char * who,int src_type,prim_iSs_s f,int g241,Scheme_Object ** g242,Scheme_Object * g243)28 Scheme_Object* scheme_rtcall_iSs_s(const char *who, int src_type, prim_iSs_s f, int g241, Scheme_Object** g242, Scheme_Object* g243) 29 XFORM_SKIP_PROC 30 { 31 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 32 future_t *future; 33 double tm; 34 Scheme_Object* retval; 35 36 future = fts->thread->current_ft; 37 future->prim_protocol = SIG_iSs_s; 38 future->prim_func = f; 39 tm = get_future_timestamp(); 40 future->time_of_request = tm; 41 future->source_of_request = who; 42 future->source_type = src_type; 43 future->arg_i0 = g241; 44 future->arg_S1 = g242; 45 future->arg_s2 = g243; 46 47 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 48 fts->thread = scheme_current_thread; 49 future = fts->thread->current_ft; 50 retval = future->retval_s; 51 future->retval_s = 0; 52 receive_special_result(future, retval, 1); 53 return retval; 54 } scheme_rtcall_s_s(const char * who,int src_type,prim_s_s f,Scheme_Object * g244)55 Scheme_Object* scheme_rtcall_s_s(const char *who, int src_type, prim_s_s f, Scheme_Object* g244) 56 XFORM_SKIP_PROC 57 { 58 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 59 future_t *future; 60 double tm; 61 Scheme_Object* retval; 62 63 future = fts->thread->current_ft; 64 future->prim_protocol = SIG_s_s; 65 future->prim_func = f; 66 tm = get_future_timestamp(); 67 future->time_of_request = tm; 68 future->source_of_request = who; 69 future->source_type = src_type; 70 future->arg_s0 = g244; 71 send_special_result(future, g244); 72 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 73 fts->thread = scheme_current_thread; 74 future = fts->thread->current_ft; 75 retval = future->retval_s; 76 future->retval_s = 0; 77 receive_special_result(future, retval, 1); 78 return retval; 79 } scheme_rtcall_n_s(const char * who,int src_type,prim_n_s f,Scheme_Native_Lambda * g245)80 Scheme_Object* scheme_rtcall_n_s(const char *who, int src_type, prim_n_s f, Scheme_Native_Lambda* g245) 81 XFORM_SKIP_PROC 82 { 83 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 84 future_t *future; 85 double tm; 86 Scheme_Object* retval; 87 88 future = fts->thread->current_ft; 89 future->prim_protocol = SIG_n_s; 90 future->prim_func = f; 91 tm = get_future_timestamp(); 92 future->time_of_request = tm; 93 future->source_of_request = who; 94 future->source_type = src_type; 95 future->arg_n0 = g245; 96 97 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 98 fts->thread = scheme_current_thread; 99 future = fts->thread->current_ft; 100 retval = future->retval_s; 101 future->retval_s = 0; 102 receive_special_result(future, retval, 1); 103 return retval; 104 } scheme_rtcall__s(const char * who,int src_type,prim__s f)105 Scheme_Object* scheme_rtcall__s(const char *who, int src_type, prim__s f ) 106 XFORM_SKIP_PROC 107 { 108 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 109 future_t *future; 110 double tm; 111 Scheme_Object* retval; 112 113 future = fts->thread->current_ft; 114 future->prim_protocol = SIG__s; 115 future->prim_func = f; 116 tm = get_future_timestamp(); 117 future->time_of_request = tm; 118 future->source_of_request = who; 119 future->source_type = src_type; 120 121 122 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 123 fts->thread = scheme_current_thread; 124 future = fts->thread->current_ft; 125 retval = future->retval_s; 126 future->retval_s = 0; 127 receive_special_result(future, retval, 1); 128 return retval; 129 } scheme_rtcall_ss_s(const char * who,int src_type,prim_ss_s f,Scheme_Object * g246,Scheme_Object * g247)130 Scheme_Object* scheme_rtcall_ss_s(const char *who, int src_type, prim_ss_s f, Scheme_Object* g246, Scheme_Object* g247) 131 XFORM_SKIP_PROC 132 { 133 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 134 future_t *future; 135 double tm; 136 Scheme_Object* retval; 137 138 future = fts->thread->current_ft; 139 future->prim_protocol = SIG_ss_s; 140 future->prim_func = f; 141 tm = get_future_timestamp(); 142 future->time_of_request = tm; 143 future->source_of_request = who; 144 future->source_type = src_type; 145 future->arg_s0 = g246; 146 future->arg_s1 = g247; 147 148 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 149 fts->thread = scheme_current_thread; 150 future = fts->thread->current_ft; 151 retval = future->retval_s; 152 future->retval_s = 0; 153 receive_special_result(future, retval, 1); 154 return retval; 155 } scheme_rtcall_ssi_s(const char * who,int src_type,prim_ssi_s f,Scheme_Object * g248,Scheme_Object * g249,int g250)156 Scheme_Object* scheme_rtcall_ssi_s(const char *who, int src_type, prim_ssi_s f, Scheme_Object* g248, Scheme_Object* g249, int g250) 157 XFORM_SKIP_PROC 158 { 159 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 160 future_t *future; 161 double tm; 162 Scheme_Object* retval; 163 164 future = fts->thread->current_ft; 165 future->prim_protocol = SIG_ssi_s; 166 future->prim_func = f; 167 tm = get_future_timestamp(); 168 future->time_of_request = tm; 169 future->source_of_request = who; 170 future->source_type = src_type; 171 future->arg_s0 = g248; 172 future->arg_s1 = g249; 173 future->arg_i2 = g250; 174 175 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 176 fts->thread = scheme_current_thread; 177 future = fts->thread->current_ft; 178 retval = future->retval_s; 179 future->retval_s = 0; 180 receive_special_result(future, retval, 1); 181 return retval; 182 } scheme_rtcall_tt_s(const char * who,int src_type,prim_tt_s f,const Scheme_Object * g251,const Scheme_Object * g252)183 Scheme_Object* scheme_rtcall_tt_s(const char *who, int src_type, prim_tt_s f, const Scheme_Object* g251, const Scheme_Object* g252) 184 XFORM_SKIP_PROC 185 { 186 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 187 future_t *future; 188 double tm; 189 Scheme_Object* retval; 190 191 future = fts->thread->current_ft; 192 future->prim_protocol = SIG_tt_s; 193 future->prim_func = f; 194 tm = get_future_timestamp(); 195 future->time_of_request = tm; 196 future->source_of_request = who; 197 future->source_type = src_type; 198 future->arg_t0 = g251; 199 future->arg_t1 = g252; 200 201 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 202 fts->thread = scheme_current_thread; 203 future = fts->thread->current_ft; 204 retval = future->retval_s; 205 future->retval_s = 0; 206 receive_special_result(future, retval, 1); 207 return retval; 208 } scheme_rtcall_ss_m(const char * who,int src_type,prim_ss_m f,Scheme_Object * g253,Scheme_Object * g254)209 MZ_MARK_STACK_TYPE scheme_rtcall_ss_m(const char *who, int src_type, prim_ss_m f, Scheme_Object* g253, Scheme_Object* g254) 210 XFORM_SKIP_PROC 211 { 212 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 213 future_t *future; 214 double tm; 215 MZ_MARK_STACK_TYPE retval; 216 217 future = fts->thread->current_ft; 218 future->prim_protocol = SIG_ss_m; 219 future->prim_func = f; 220 tm = get_future_timestamp(); 221 future->time_of_request = tm; 222 future->source_of_request = who; 223 future->source_type = src_type; 224 future->arg_s0 = g253; 225 future->arg_s1 = g254; 226 227 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 228 fts->thread = scheme_current_thread; 229 future = fts->thread->current_ft; 230 retval = future->retval_m; 231 future->retval_m = 0; 232 233 return retval; 234 } scheme_rtcall_Sl_s(const char * who,int src_type,prim_Sl_s f,Scheme_Object ** g255,intptr_t g256)235 Scheme_Object* scheme_rtcall_Sl_s(const char *who, int src_type, prim_Sl_s f, Scheme_Object** g255, intptr_t g256) 236 XFORM_SKIP_PROC 237 { 238 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 239 future_t *future; 240 double tm; 241 Scheme_Object* retval; 242 243 future = fts->thread->current_ft; 244 future->prim_protocol = SIG_Sl_s; 245 future->prim_func = f; 246 tm = get_future_timestamp(); 247 future->time_of_request = tm; 248 future->source_of_request = who; 249 future->source_type = src_type; 250 future->arg_S0 = g255; 251 future->arg_l1 = g256; 252 253 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 254 fts->thread = scheme_current_thread; 255 future = fts->thread->current_ft; 256 retval = future->retval_s; 257 future->retval_s = 0; 258 receive_special_result(future, retval, 1); 259 return retval; 260 } scheme_rtcall_l_s(const char * who,int src_type,prim_l_s f,intptr_t g257)261 Scheme_Object* scheme_rtcall_l_s(const char *who, int src_type, prim_l_s f, intptr_t g257) 262 XFORM_SKIP_PROC 263 { 264 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 265 future_t *future; 266 double tm; 267 Scheme_Object* retval; 268 269 future = fts->thread->current_ft; 270 future->prim_protocol = SIG_l_s; 271 future->prim_func = f; 272 tm = get_future_timestamp(); 273 future->time_of_request = tm; 274 future->source_of_request = who; 275 future->source_type = src_type; 276 future->arg_l0 = g257; 277 278 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 279 fts->thread = scheme_current_thread; 280 future = fts->thread->current_ft; 281 retval = future->retval_s; 282 future->retval_s = 0; 283 receive_special_result(future, retval, 1); 284 return retval; 285 } scheme_rtcall_bsi_v(const char * who,int src_type,prim_bsi_v f,Scheme_Bucket * g258,Scheme_Object * g259,int g260)286 void scheme_rtcall_bsi_v(const char *who, int src_type, prim_bsi_v f, Scheme_Bucket* g258, Scheme_Object* g259, int g260) 287 XFORM_SKIP_PROC 288 { 289 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 290 future_t *future; 291 double tm; 292 293 294 future = fts->thread->current_ft; 295 future->prim_protocol = SIG_bsi_v; 296 future->prim_func = f; 297 tm = get_future_timestamp(); 298 future->time_of_request = tm; 299 future->source_of_request = who; 300 future->source_type = src_type; 301 future->arg_b0 = g258; 302 future->arg_s1 = g259; 303 future->arg_i2 = g260; 304 305 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 306 fts->thread = scheme_current_thread; 307 308 309 310 311 312 } scheme_rtcall_iiS_v(const char * who,int src_type,prim_iiS_v f,int g261,int g262,Scheme_Object ** g263)313 void scheme_rtcall_iiS_v(const char *who, int src_type, prim_iiS_v f, int g261, int g262, Scheme_Object** g263) 314 XFORM_SKIP_PROC 315 { 316 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 317 future_t *future; 318 double tm; 319 320 321 future = fts->thread->current_ft; 322 future->prim_protocol = SIG_iiS_v; 323 future->prim_func = f; 324 tm = get_future_timestamp(); 325 future->time_of_request = tm; 326 future->source_of_request = who; 327 future->source_type = src_type; 328 future->arg_i0 = g261; 329 future->arg_i1 = g262; 330 future->arg_S2 = g263; 331 332 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 333 fts->thread = scheme_current_thread; 334 335 336 337 338 339 } scheme_rtcall_ss_v(const char * who,int src_type,prim_ss_v f,Scheme_Object * g264,Scheme_Object * g265)340 void scheme_rtcall_ss_v(const char *who, int src_type, prim_ss_v f, Scheme_Object* g264, Scheme_Object* g265) 341 XFORM_SKIP_PROC 342 { 343 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 344 future_t *future; 345 double tm; 346 347 348 future = fts->thread->current_ft; 349 future->prim_protocol = SIG_ss_v; 350 future->prim_func = f; 351 tm = get_future_timestamp(); 352 future->time_of_request = tm; 353 future->source_of_request = who; 354 future->source_type = src_type; 355 future->arg_s0 = g264; 356 future->arg_s1 = g265; 357 358 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 359 fts->thread = scheme_current_thread; 360 361 362 363 364 365 } scheme_rtcall_b_v(const char * who,int src_type,prim_b_v f,Scheme_Bucket * g266)366 void scheme_rtcall_b_v(const char *who, int src_type, prim_b_v f, Scheme_Bucket* g266) 367 XFORM_SKIP_PROC 368 { 369 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 370 future_t *future; 371 double tm; 372 373 374 future = fts->thread->current_ft; 375 future->prim_protocol = SIG_b_v; 376 future->prim_func = f; 377 tm = get_future_timestamp(); 378 future->time_of_request = tm; 379 future->source_of_request = who; 380 future->source_type = src_type; 381 future->arg_b0 = g266; 382 383 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 384 fts->thread = scheme_current_thread; 385 386 387 388 389 390 } scheme_rtcall_sl_s(const char * who,int src_type,prim_sl_s f,Scheme_Object * g267,intptr_t g268)391 Scheme_Object* scheme_rtcall_sl_s(const char *who, int src_type, prim_sl_s f, Scheme_Object* g267, intptr_t g268) 392 XFORM_SKIP_PROC 393 { 394 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 395 future_t *future; 396 double tm; 397 Scheme_Object* retval; 398 399 future = fts->thread->current_ft; 400 future->prim_protocol = SIG_sl_s; 401 future->prim_func = f; 402 tm = get_future_timestamp(); 403 future->time_of_request = tm; 404 future->source_of_request = who; 405 future->source_type = src_type; 406 future->arg_s0 = g267; 407 future->arg_l1 = g268; 408 409 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 410 fts->thread = scheme_current_thread; 411 future = fts->thread->current_ft; 412 retval = future->retval_s; 413 future->retval_s = 0; 414 receive_special_result(future, retval, 1); 415 return retval; 416 } scheme_rtcall_iS_s(const char * who,int src_type,prim_iS_s f,int g269,Scheme_Object ** g270)417 Scheme_Object* scheme_rtcall_iS_s(const char *who, int src_type, prim_iS_s f, int g269, Scheme_Object** g270) 418 XFORM_SKIP_PROC 419 { 420 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 421 future_t *future; 422 double tm; 423 Scheme_Object* retval; 424 425 future = fts->thread->current_ft; 426 future->prim_protocol = SIG_iS_s; 427 future->prim_func = f; 428 tm = get_future_timestamp(); 429 future->time_of_request = tm; 430 future->source_of_request = who; 431 future->source_type = src_type; 432 future->arg_i0 = g269; 433 future->arg_S1 = g270; 434 435 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 436 fts->thread = scheme_current_thread; 437 future = fts->thread->current_ft; 438 retval = future->retval_s; 439 future->retval_s = 0; 440 receive_special_result(future, retval, 1); 441 return retval; 442 } scheme_rtcall_S_s(const char * who,int src_type,prim_S_s f,Scheme_Object ** g271)443 Scheme_Object* scheme_rtcall_S_s(const char *who, int src_type, prim_S_s f, Scheme_Object** g271) 444 XFORM_SKIP_PROC 445 { 446 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 447 future_t *future; 448 double tm; 449 Scheme_Object* retval; 450 451 future = fts->thread->current_ft; 452 future->prim_protocol = SIG_S_s; 453 future->prim_func = f; 454 tm = get_future_timestamp(); 455 future->time_of_request = tm; 456 future->source_of_request = who; 457 future->source_type = src_type; 458 future->arg_S0 = g271; 459 460 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 461 fts->thread = scheme_current_thread; 462 future = fts->thread->current_ft; 463 retval = future->retval_s; 464 future->retval_s = 0; 465 receive_special_result(future, retval, 1); 466 return retval; 467 } scheme_rtcall_s_v(const char * who,int src_type,prim_s_v f,Scheme_Object * g272)468 void scheme_rtcall_s_v(const char *who, int src_type, prim_s_v f, Scheme_Object* g272) 469 XFORM_SKIP_PROC 470 { 471 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 472 future_t *future; 473 double tm; 474 475 476 future = fts->thread->current_ft; 477 future->prim_protocol = SIG_s_v; 478 future->prim_func = f; 479 tm = get_future_timestamp(); 480 future->time_of_request = tm; 481 future->source_of_request = who; 482 future->source_type = src_type; 483 future->arg_s0 = g272; 484 send_special_result(future, g272); 485 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 486 fts->thread = scheme_current_thread; 487 488 489 490 491 492 } scheme_rtcall_iSi_s(const char * who,int src_type,prim_iSi_s f,int g273,Scheme_Object ** g274,int g275)493 Scheme_Object* scheme_rtcall_iSi_s(const char *who, int src_type, prim_iSi_s f, int g273, Scheme_Object** g274, int g275) 494 XFORM_SKIP_PROC 495 { 496 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 497 future_t *future; 498 double tm; 499 Scheme_Object* retval; 500 501 future = fts->thread->current_ft; 502 future->prim_protocol = SIG_iSi_s; 503 future->prim_func = f; 504 tm = get_future_timestamp(); 505 future->time_of_request = tm; 506 future->source_of_request = who; 507 future->source_type = src_type; 508 future->arg_i0 = g273; 509 future->arg_S1 = g274; 510 future->arg_i2 = g275; 511 512 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 513 fts->thread = scheme_current_thread; 514 future = fts->thread->current_ft; 515 retval = future->retval_s; 516 future->retval_s = 0; 517 receive_special_result(future, retval, 1); 518 return retval; 519 } scheme_rtcall_siS_v(const char * who,int src_type,prim_siS_v f,Scheme_Object * g276,int g277,Scheme_Object ** g278)520 void scheme_rtcall_siS_v(const char *who, int src_type, prim_siS_v f, Scheme_Object* g276, int g277, Scheme_Object** g278) 521 XFORM_SKIP_PROC 522 { 523 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 524 future_t *future; 525 double tm; 526 527 528 future = fts->thread->current_ft; 529 future->prim_protocol = SIG_siS_v; 530 future->prim_func = f; 531 tm = get_future_timestamp(); 532 future->time_of_request = tm; 533 future->source_of_request = who; 534 future->source_type = src_type; 535 future->arg_s0 = g276; 536 future->arg_i1 = g277; 537 future->arg_S2 = g278; 538 539 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 540 fts->thread = scheme_current_thread; 541 542 543 544 545 546 } scheme_rtcall_Sii_s(const char * who,int src_type,prim_Sii_s f,Scheme_Object ** g279,int g280,int g281)547 Scheme_Object* scheme_rtcall_Sii_s(const char *who, int src_type, prim_Sii_s f, Scheme_Object** g279, int g280, int g281) 548 XFORM_SKIP_PROC 549 { 550 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 551 future_t *future; 552 double tm; 553 Scheme_Object* retval; 554 555 future = fts->thread->current_ft; 556 future->prim_protocol = SIG_Sii_s; 557 future->prim_func = f; 558 tm = get_future_timestamp(); 559 future->time_of_request = tm; 560 future->source_of_request = who; 561 future->source_type = src_type; 562 future->arg_S0 = g279; 563 future->arg_i1 = g280; 564 future->arg_i2 = g281; 565 566 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 567 fts->thread = scheme_current_thread; 568 future = fts->thread->current_ft; 569 retval = future->retval_s; 570 future->retval_s = 0; 571 receive_special_result(future, retval, 1); 572 return retval; 573 } scheme_rtcall_z_p(const char * who,int src_type,prim_z_p f,size_t g282)574 void* scheme_rtcall_z_p(const char *who, int src_type, prim_z_p f, size_t g282) 575 XFORM_SKIP_PROC 576 { 577 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 578 future_t *future; 579 double tm; 580 void* retval; 581 582 future = fts->thread->current_ft; 583 future->prim_protocol = SIG_z_p; 584 future->prim_func = f; 585 tm = get_future_timestamp(); 586 future->time_of_request = tm; 587 future->source_of_request = who; 588 future->source_type = src_type; 589 future->arg_z0 = g282; 590 591 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 592 fts->thread = scheme_current_thread; 593 future = fts->thread->current_ft; 594 retval = future->retval_p; 595 future->retval_p = 0; 596 597 return retval; 598 } scheme_rtcall_si_s(const char * who,int src_type,prim_si_s f,Scheme_Object * g283,int g284)599 Scheme_Object* scheme_rtcall_si_s(const char *who, int src_type, prim_si_s f, Scheme_Object* g283, int g284) 600 XFORM_SKIP_PROC 601 { 602 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 603 future_t *future; 604 double tm; 605 Scheme_Object* retval; 606 607 future = fts->thread->current_ft; 608 future->prim_protocol = SIG_si_s; 609 future->prim_func = f; 610 tm = get_future_timestamp(); 611 future->time_of_request = tm; 612 future->source_of_request = who; 613 future->source_type = src_type; 614 future->arg_s0 = g283; 615 future->arg_i1 = g284; 616 617 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 618 fts->thread = scheme_current_thread; 619 future = fts->thread->current_ft; 620 retval = future->retval_s; 621 future->retval_s = 0; 622 receive_special_result(future, retval, 1); 623 return retval; 624 } scheme_rtcall_sis_v(const char * who,int src_type,prim_sis_v f,Scheme_Object * g285,int g286,Scheme_Object * g287)625 void scheme_rtcall_sis_v(const char *who, int src_type, prim_sis_v f, Scheme_Object* g285, int g286, Scheme_Object* g287) 626 XFORM_SKIP_PROC 627 { 628 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 629 future_t *future; 630 double tm; 631 632 633 future = fts->thread->current_ft; 634 future->prim_protocol = SIG_sis_v; 635 future->prim_func = f; 636 tm = get_future_timestamp(); 637 future->time_of_request = tm; 638 future->source_of_request = who; 639 future->source_type = src_type; 640 future->arg_s0 = g285; 641 future->arg_i1 = g286; 642 future->arg_s2 = g287; 643 644 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 645 fts->thread = scheme_current_thread; 646 647 648 649 650 651 } scheme_rtcall_ss_i(const char * who,int src_type,prim_ss_i f,Scheme_Object * g288,Scheme_Object * g289)652 int scheme_rtcall_ss_i(const char *who, int src_type, prim_ss_i f, Scheme_Object* g288, Scheme_Object* g289) 653 XFORM_SKIP_PROC 654 { 655 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 656 future_t *future; 657 double tm; 658 int retval; 659 660 future = fts->thread->current_ft; 661 future->prim_protocol = SIG_ss_i; 662 future->prim_func = f; 663 tm = get_future_timestamp(); 664 future->time_of_request = tm; 665 future->source_of_request = who; 666 future->source_type = src_type; 667 future->arg_s0 = g288; 668 future->arg_s1 = g289; 669 670 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 671 fts->thread = scheme_current_thread; 672 future = fts->thread->current_ft; 673 retval = future->retval_i; 674 future->retval_i = 0; 675 676 return retval; 677 } scheme_rtcall_iSp_v(const char * who,int src_type,prim_iSp_v f,int g290,Scheme_Object ** g291,void * g292)678 void scheme_rtcall_iSp_v(const char *who, int src_type, prim_iSp_v f, int g290, Scheme_Object** g291, void* g292) 679 XFORM_SKIP_PROC 680 { 681 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 682 future_t *future; 683 double tm; 684 685 686 future = fts->thread->current_ft; 687 future->prim_protocol = SIG_iSp_v; 688 future->prim_func = f; 689 tm = get_future_timestamp(); 690 future->time_of_request = tm; 691 future->source_of_request = who; 692 future->source_type = src_type; 693 future->arg_i0 = g290; 694 future->arg_S1 = g291; 695 future->arg_p2 = g292; 696 697 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 698 fts->thread = scheme_current_thread; 699 700 701 702 703 704 } scheme_rtcall_sss_s(const char * who,int src_type,prim_sss_s f,Scheme_Object * g293,Scheme_Object * g294,Scheme_Object * g295)705 Scheme_Object* scheme_rtcall_sss_s(const char *who, int src_type, prim_sss_s f, Scheme_Object* g293, Scheme_Object* g294, Scheme_Object* g295) 706 XFORM_SKIP_PROC 707 { 708 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 709 future_t *future; 710 double tm; 711 Scheme_Object* retval; 712 713 future = fts->thread->current_ft; 714 future->prim_protocol = SIG_sss_s; 715 future->prim_func = f; 716 tm = get_future_timestamp(); 717 future->time_of_request = tm; 718 future->source_of_request = who; 719 future->source_type = src_type; 720 future->arg_s0 = g293; 721 future->arg_s1 = g294; 722 future->arg_s2 = g295; 723 724 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 725 fts->thread = scheme_current_thread; 726 future = fts->thread->current_ft; 727 retval = future->retval_s; 728 future->retval_s = 0; 729 receive_special_result(future, retval, 1); 730 return retval; 731 } scheme_rtcall__v(const char * who,int src_type,prim__v f)732 void scheme_rtcall__v(const char *who, int src_type, prim__v f ) 733 XFORM_SKIP_PROC 734 { 735 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 736 future_t *future; 737 double tm; 738 739 740 future = fts->thread->current_ft; 741 future->prim_protocol = SIG__v; 742 future->prim_func = f; 743 tm = get_future_timestamp(); 744 future->time_of_request = tm; 745 future->source_of_request = who; 746 future->source_type = src_type; 747 748 749 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 750 fts->thread = scheme_current_thread; 751 752 753 754 755 756 } scheme_rtcall_iS_v(const char * who,int src_type,prim_iS_v f,int g296,Scheme_Object ** g297)757 void scheme_rtcall_iS_v(const char *who, int src_type, prim_iS_v f, int g296, Scheme_Object** g297) 758 XFORM_SKIP_PROC 759 { 760 Scheme_Future_Thread_State *fts = scheme_future_thread_state; 761 future_t *future; 762 double tm; 763 764 765 future = fts->thread->current_ft; 766 future->prim_protocol = SIG_iS_v; 767 future->prim_func = f; 768 tm = get_future_timestamp(); 769 future->time_of_request = tm; 770 future->source_of_request = who; 771 future->source_type = src_type; 772 future->arg_i0 = g296; 773 future->arg_S1 = g297; 774 775 future_do_runtimecall(fts, (void*)f, 0, 1, 0); 776 fts->thread = scheme_current_thread; 777 778 779 780 781 782 } 783