Changeset 12105 in project
- Timestamp:
- 10/02/08 20:23:37 (12 years ago)
- Location:
- chicken/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/TODO
r12104 r12105 10 10 *** pre-optimization 11 11 **** changes call-sites and makes them invalid for later pre-optimization 12 ** scheduler13 *** apply srfi14 12 ** expander 15 13 *** expansion of r5rs_pitfall 4.2 incorrect -
chicken/trunk/scheduler.scm
r12021 r12105 36 36 ##sys#remove-from-ready-queue ##sys#unblock-threads-for-i/o ##sys#force-primordial 37 37 ##sys#fdset-input-set ##sys#fdset-output-set ##sys#fdset-clear 38 ##sys#fdset-select-timeout ##sys#fdset-restore ##sys#remove-from-timeout-list38 ##sys#fdset-select-timeout ##sys#fdset-restore 39 39 ##sys#clear-i/o-state-for-thread!) 40 40 (foreign-declare #<<EOF -
chicken/trunk/srfi-18.scm
r11646 r12105 231 231 (lambda () 232 232 (case (##sys#slot thread 3) 233 [(dead) (apply return (##sys#slot thread 2))] 233 [(dead) 234 (unless (##sys#slot ct 13) ; not unblocked by timeout 235 (##sys#remove-from-timeout-list ct)) 236 (apply return (##sys#slot thread 2))] 234 237 [(terminated) 235 238 (return … … 352 355 (lambda () 353 356 (##sys#setslot mutex 3 (##sys#delq ct (##sys#slot mutex 3))) 354 (##sys#setslot ##sys#current-thread 8 (cons mutex (##sys#slot ##sys#current-thread 8))) 357 (unless (##sys#slot ct 13) ; not unblocked by timeout 358 (##sys#remove-from-timeout-list ct)) 359 (##sys#setslot ct 8 (cons mutex (##sys#slot ct 8))) 355 360 (##sys#setslot mutex 2 thread) 356 #f))361 (return #f) )) 357 362 (##sys#thread-block-for-timeout! ct limit) 358 363 (switch) ] … … 386 391 (lambda () 387 392 (##sys#setslot cvar 2 (##sys#delq ct (##sys#slot cvar 2))) 393 (unless (##sys#slot ct 13) ; not unblocked by timeout 394 (##sys#remove-from-timeout-list ct)) 388 395 (return #f) ) ) 389 396 (##sys#thread-block-for-timeout! ct limit) ]
Note: See TracChangeset
for help on using the changeset viewer.