Overview
| Comment: | fixed stackdump at end of megatest (was doing http close all connections even if using rpc transport) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62-rpc |
| Files: | files | file ages | folders |
| SHA1: |
27b30355f5fa8b0ab84ee2926b3f1a14 |
| User & Date: | bjbarcla on 2016-12-07 21:19:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-08
| ||
| 09:55 | Merged in fix for wrong num params check-in: 3b6ab0c796 user: mrwellan tags: v1.62-rpc | |
|
2016-12-07
| ||
| 21:19 | fixed stackdump at end of megatest (was doing http close all connections even if using rpc transport) check-in: 27b30355f5 user: bjbarcla tags: v1.62-rpc | |
| 20:53 | merged v1.63 check-in: e25c16ede1 user: bjbarcla tags: v1.62-rpc | |
Changes
Modified megatest.scm from [a1517b64e1] to [3af01ae3a7].
| ︙ | ︙ | |||
344 345 346 347 348 349 350 | (let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target")))) (if targ (setenv "MT_TARGET" targ))) ;; The watchdog is to keep an eye on things like db sync etc. ;; (define *watchdog* (make-thread common:watchdog "Watchdog thread")) | | | 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 |
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
(if targ (setenv "MT_TARGET" targ)))
;; The watchdog is to keep an eye on things like db sync etc.
;;
(define *watchdog* (make-thread common:watchdog "Watchdog thread"))
(thread-start! *watchdog*)
(if (args:get-arg "-log")
(let ((oup (open-output-file (args:get-arg "-log"))))
(debug:print-info 0 *default-log-port* "Sending log output to " (args:get-arg "-log"))
(set! *default-log-port* oup)))
(if (or (args:get-arg "-h")
|
| ︙ | ︙ | |||
1980 1981 1982 1983 1984 1985 1986 |
(debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
(set! *didsomething* #t)))
;;======================================================================
;; Exit and clean up
;;======================================================================
| | | 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 |
(debug:print 0 *default-log-port* "Failed to create HTML output in " toppath "/lt/runs-index.html"))
(set! *didsomething* #t)))
;;======================================================================
;; Exit and clean up
;;======================================================================
(if (and *runremote* (eq? 'http (remote-transport *runremote*))) (close-all-connections!)) ;; for http-client
(if (not *didsomething*)
(debug:print 0 *default-log-port* help))
(set! *time-to-exit* #t)
(thread-join! *watchdog*)
|
| ︙ | ︙ |