Overview
| Comment: | signature 12 debug attempt 3 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-sig12 |
| Files: | files | file ages | folders |
| SHA1: |
4ea8bd9fcd160b76a6b2f94785c44576 |
| User & Date: | bjbarcla on 2017-04-19 14:17:32 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-04-19
| ||
| 15:25 | added help to show files with dumpmode check-in: 1f03239ee0 user: bjbarcla tags: v1.64-sig12 | |
| 14:17 | signature 12 debug attempt 3 check-in: 4ea8bd9fcd user: bjbarcla tags: v1.64-sig12 | |
| 14:07 | signature 12 debug attempt 2 check-in: df5d023f0f user: bjbarcla tags: v1.64-sig12 | |
Changes
Modified launch.scm from [d13af1b891] to [e5df1f7cd3].
| ︙ | ︙ | |||
796 797 798 799 800 801 802 | ;; sets; *configdat* (megatest.config info) ;; *runconfigdat* (runconfigs.config info) ;; *configstatus* (status of the read data) ;; (define (launch:setup #!key (force-reread #f) (areapath #f)) (mutex-lock! *launch-setup-mutex*) (if (and *toppath* | | | 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 |
;; sets; *configdat* (megatest.config info)
;; *runconfigdat* (runconfigs.config info)
;; *configstatus* (status of the read data)
;;
(define (launch:setup #!key (force-reread #f) (areapath #f))
(mutex-lock! *launch-setup-mutex*)
(if (and *toppath*
(eq? *configstatus* 'fulldata) (not force-reread)) ;; got it all
(begin
(debug:print 2 *default-log-port* "NOTE: skipping launch:setup-body call since we have fulldata")
(mutex-unlock! *launch-setup-mutex*)
*toppath*)
(let ((res (launch:setup-body force-reread: force-reread areapath: areapath)))
(mutex-unlock! *launch-setup-mutex*)
res)))
|
| ︙ | ︙ |
Modified runs.scm from [a7c944cc22] to [b116959472].
| ︙ | ︙ | |||
94 95 96 97 98 99 100 | exn (let ((call-chain (get-call-chain)) (msg ((condition-property-accessor 'exn 'message) exn))) (if (< count 5) (begin ;; this call is colliding, do some crude stuff to fix it. (debug:print 0 *default-log-port* "ERROR: *configdat* was inaccessible! This should never happen. Retry #" count) (launch:setup force-reread: #t) | | | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 |
exn
(let ((call-chain (get-call-chain))
(msg ((condition-property-accessor 'exn 'message) exn)))
(if (< count 5)
(begin ;; this call is colliding, do some crude stuff to fix it.
(debug:print 0 *default-log-port* "ERROR: *configdat* was inaccessible! This should never happen. Retry #" count)
(launch:setup force-reread: #t)
(fatal-loop (+ count 1))) ;; BB: no escape from fatality!
(begin
(debug:print 0 *default-log-port* "FATAL: *configdat* was inaccessible! This should never happen. Retried " count " times. Message: " msg)
(debug:print 0 *default-log-port* "Call chain:")
(with-output-to-port *default-log-port*
(lambda ()
(print "*configdat* is >>"*configdat*"<<")
|
| ︙ | ︙ |