Overview
Comment: | Fixed issue with launch loop failing to exit. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | dev |
Files: | files | file ages | folders |
SHA1: |
813f2d347a9fbd07f36635416befc6ee |
User & Date: | mrwellan on 2013-06-25 18:11:53 |
Other Links: | branch diff | manifest | tags |
Context
2013-06-25
| ||
21:15 | Corrected order of adding items when doing expand check-in: c0ed667b5b user: mrwellan tags: dev | |
18:11 | Fixed issue with launch loop failing to exit. check-in: 813f2d347a user: mrwellan tags: dev | |
17:51 | Misc refactoring of run launch loop(s). No bugs fixed check-in: d7de3a3cba user: mrwellan tags: dev | |
Changes
Modified runs.scm from [f13f11d288] to [54a3cda2af].
︙ | |||
479 480 481 482 483 484 485 | 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 | - + | (mutex-lock! registry-mutex) (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done) (mutex-unlock! registry-mutex)) (conc test-name "/" item-path)))) (thread-start! th)) (runs:shrink-can-run-more-tests-count) ;; DELAY TWEAKER (still needed?) (if (and (null? tal)(null? reg)) |
︙ | |||
588 589 590 591 592 593 594 | 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 | - - + + + | (tests:testqueue-set-item_path! new-test-record my-item-path) (hash-table-set! test-records newtestname new-test-record) (set! tal (cons newtestname tal)))))) ;; since these are itemized create new test names testname/itempath items) ;; At this point we have possibly added items to tal but all must be handed off to ;; INNER COND logic. I think loop without rotating the queue ;; (loop hed tal reg reruns)) |
︙ | |||
644 645 646 647 648 649 650 | 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 | + + - - - - - + + + + + | (if (eq? 0 (list-ref can-run-more 1)) (begin ;; TRY (if (> num-retries 100) ;; first 100 retries are low time cost ;; TRY (thread-sleep! (+ 2 *global-delta*)) ;; TRY (thread-sleep! (+ 0.01 *global-delta*))) (set! num-retries (+ num-retries 1)))) (if (> num-retries max-retries) (begin (debug:print 0 "WARNING: retries exceed " max-retries ", this may not be handled correctly. Please consider reporting this scenario.") |
︙ |