Overview
Comment: | caught up with v1.61 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | fix-chained-waiton |
Files: | files | file ages | folders |
SHA1: |
0868158f0b4547aa204ece04648cb148 |
User & Date: | bb on 2016-05-12 22:35:15 |
Other Links: | branch diff | manifest | tags |
Context
2016-05-13
| ||
11:32 | Merged latest from v1.61 check-in: 2fe9144186 user: mrwellan tags: fix-chained-waiton | |
2016-05-12
| ||
22:35 | caught up with v1.61 check-in: 0868158f0b user: bb tags: fix-chained-waiton | |
2016-05-11
| ||
22:46 | Bumped level to 2 for flexilauncher messages check-in: 021e278f39 user: matt tags: v1.61 | |
14:13 | caught up to v1.61 head check-in: 8f41e39a59 user: bjbarcla tags: fix-chained-waiton | |
Changes
Modified common.scm from [81ad0c3e87] to [7b10355f34].
︙ | |||
1184 1185 1186 1187 1188 1189 1190 | 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 | - + | fallback-launcher (let loop ((hed (car launchers)) (tal (cdr launchers))) (let ((patt (car hed)) (host-type (cadr hed))) (if (tests:match patt testname itempath) (begin |
︙ |
Modified common_records.scm from [8a8814689a] to [01df09dfe2].
︙ | |||
94 95 96 97 98 99 100 | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | - - - - - - + + + + + + | (apply print params) ))))) (define (debug:print-info n . params) (if (debug:debug-mode n) (with-output-to-port (current-error-port) (lambda () |
Modified dcommon.scm from [4ddc007d1e] to [a93a40dfa1].
︙ | |||
361 362 363 364 365 366 367 | 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 | - + | (key-vals (configf:section-vars rawconfig sectionname)) (section-matrix (iup:matrix #:alignment1 "ALEFT" #:expand "YES" ;; "HORIZONTAL" #:numcol 1 #:numlin (length key-vals) #:numcol-visible 1 |
︙ |
Modified runs.scm from [56622d859c] to [0c516bb8a4].
︙ | |||
492 493 494 495 496 497 498 | 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 | - + + + + + + + + | '() reg))) (define runs:nothing-left-in-queue-count 0) (define (runs:expand-items hed tal reg reruns regfull newtal jobgroup max-concurrent-jobs run-id waitons item-path testmode test-record can-run-more items runname tconfig reglen test-registry test-records itemmaps) (let* ((loop-list (list hed tal reg reruns)) |
︙ | |||
685 686 687 688 689 690 691 | 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 | + - + + + + | (have-resources (car run-limits-info)) (num-running (list-ref run-limits-info 1)) (num-running-in-jobgroup (list-ref run-limits-info 2)) (max-concurrent-jobs (list-ref run-limits-info 3)) (job-group-limit (list-ref run-limits-info 4)) (prereqs-not-met (rmt:get-prereqs-not-met run-id waitons hed item-path mode: testmode itemmaps: itemmaps)) ;; (prereqs-not-met (mt:lazy-get-prereqs-not-met run-id waitons item-path mode: testmode itemmap: itemmap)) (fails (if (list? prereqs-not-met) |
︙ |