Megatest

Check-in [9f7ecc5050]
Login
Overview
Comment:corrected close-all-connections in exit proc to avoid stack dump
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: 9f7ecc505002e221d2283501ce750cc95cdef283
User & Date: bjbarcla on 2016-12-22 17:41:47
Other Links: branch diff | manifest | tags
Context
2016-12-27
17:15
improved server stability check-in: 6b5c7789cb user: bjbarcla tags: v1.63
2016-12-23
18:08
added initial ducttape-lib code Leaf check-in: 023e88f071 user: bjbarcla tags: v1.63-ducttape-lib
2016-12-22
17:41
corrected close-all-connections in exit proc to avoid stack dump check-in: 9f7ecc5050 user: bjbarcla tags: v1.63
12:37
found a hanging scenario check-in: 0fa3e0acbf user: bjbarcla tags: v1.63
Changes

Modified common.scm from [7213eed61f] to [4f9e9ae478].

639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
					  (sqlite3:interrupt! db)
					  (sqlite3:finalize! db #t)
					  ;; (vector-set! *task-db* 0 #f)
					  (set! *task-db* #f)))))
                              (if (and *runremote*
                                       (remote-conndat *runremote*))
                                  (begin
                                    (close-all-connections!))) ;; for http-client
                              (if (not (eq? *default-log-port* (current-error-port)))
                                  (close-output-port *default-log-port*))
			      (set! *default-log-port* (current-error-port))) "Cleanup db exit thread"))
	  (th2 (make-thread (lambda ()
			      (debug:print 4 *default-log-port* "Attempting clean exit. Please be patient and wait a few seconds...")
			      (if no-hurry
                                  (begin







|







639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
					  (sqlite3:interrupt! db)
					  (sqlite3:finalize! db #t)
					  ;; (vector-set! *task-db* 0 #f)
					  (set! *task-db* #f)))))
                              (if (and *runremote*
                                       (remote-conndat *runremote*))
                                  (begin
                                    (http-client#close-all-connections!))) ;; for http-client
                              (if (not (eq? *default-log-port* (current-error-port)))
                                  (close-output-port *default-log-port*))
			      (set! *default-log-port* (current-error-port))) "Cleanup db exit thread"))
	  (th2 (make-thread (lambda ()
			      (debug:print 4 *default-log-port* "Attempting clean exit. Please be patient and wait a few seconds...")
			      (if no-hurry
                                  (begin