Overview
| Comment: | Minor clean up |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | test-specific-db |
| Files: | files | file ages | folders |
| SHA1: |
7a2fe15d10271aa8f51c5139569275ed |
| User & Date: | matt on 2012-09-27 16:53:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-09-27
| ||
| 17:23 | Pulling back values for parallel test check-in: 1dd4b7f24f user: mrwellan tags: test-specific-db | |
| 16:53 | Minor clean up check-in: 7a2fe15d10 user: matt tags: test-specific-db | |
| 16:33 | Trying more conservative values on NFS check-in: 63d52c1fe9 user: mrwellan tags: test-specific-db | |
Changes
Modified db.scm from [7f2aee0fc0] to [3b6d743f09].
| ︙ | ︙ | |||
375 376 377 378 379 380 381 |
(if valnum (set! res valnum))))
;; scale by 10, average with current value.
(set! *global-delta* (/ (+ *global-delta* (* (- (current-milliseconds) start-ms)
(if throttle throttle 0.01)))
2))
(if (> (abs (- *last-global-delta-printed* *global-delta*)) 0.08) ;; don't print all the time, only if it changes a bit
(begin
| | | 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 |
(if valnum (set! res valnum))))
;; scale by 10, average with current value.
(set! *global-delta* (/ (+ *global-delta* (* (- (current-milliseconds) start-ms)
(if throttle throttle 0.01)))
2))
(if (> (abs (- *last-global-delta-printed* *global-delta*)) 0.08) ;; don't print all the time, only if it changes a bit
(begin
(debug:print 4 "INFO: launch throttle factor=" *global-delta*)
(set! *last-global-delta-printed* *global-delta*)))
res))
(define (db:set-var db var val)
(sqlite3:execute db "INSERT OR REPLACE INTO metadat (var,val) VALUES (?,?);" var val))
;; use a global for some primitive caching, it is just silly to re-read the db
|
| ︙ | ︙ |
Modified launch.scm from [a8ad7abd36] to [843bb8d015].
| ︙ | ︙ | |||
93 94 95 96 97 98 99 | (begin (debug:print 0 "Failed to setup, exiting") ;; (sqlite3:finalize! db) ;; (sqlite3:finalize! tdb) (exit 1))) (change-directory *toppath*) | | | 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | (begin (debug:print 0 "Failed to setup, exiting") ;; (sqlite3:finalize! db) ;; (sqlite3:finalize! tdb) (exit 1))) (change-directory *toppath*) (open-run-close set-megatest-env-vars #f run-id) ;; these may be needed by the launching process (change-directory work-area) (open-run-close set-run-config-vars #f run-id) ;; environment overrides are done *before* the remaining critical envars. (alist->env-vars env-ovrd) (open-run-close set-megatest-env-vars #f run-id) (set-item-env-vars itemdat) |
| ︙ | ︙ |