Megatest

Check-in [76a1ae1920]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:turn off discard of dbdats
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70
Files: files | file ages | folders
SHA1: 76a1ae19205822b6d3a6255820dd77b1fa577b4b
User & Date: matt on 2022-08-02 07:17:44
Other Links: branch diff | manifest | tags
Context
2022-08-02
07:56
Remove info printing of parallel-api-requests check-in: 4bec7c5319 user: matt tags: v1.70
07:17
turn off discard of dbdats check-in: 76a1ae1920 user: matt tags: v1.70
07:16
Improved message for Run id required asserts check-in: 203b01f1fa user: matt tags: v1.70
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dbfile.scm from [2cf29f02a0] to [9987c907b6].

︙
240
241
242
243
244
245
246
247

248
249
250
251
252
253
254

240
241
242
243
244
245
246

247
248
249
250
251
252
253
254








-
+








	  (set! *dbfile:num-handles-in-use* (+ *dbfile:num-handles-in-use* 1))
	  (stack-pop! (dbr:subdb-dbstack subdb))))))

;; return a previously opened db handle to the stack of available handles
(define (dbfile:add-dbdat dbstruct run-id dbdat)
  (let* ((subdb (dbfile:get-subdb dbstruct run-id))
	 (age   (- (current-seconds)(dbr:dbdat-birth-sec dbdat))))
    (if (> age 300) ;; just testing - discard and close after 30 sec
    (if #f ;; (> age 300) ;; just testing - discard and close after 30 sec
	(begin
	  ;; (map sqlite3:finalize! (hash-table-values (dbr:dbdat-stmt-cache dbdat)))
	  ;; (sqlite3:finalize! (dbr:dbdat-dbh dbdat))
	  (dbfile:print-err "INFO: Discarded dbdat over 30 sec old ("age"s)"))
	(begin
	  (set! *dbfile:num-handles-in-use* (- *dbfile:num-handles-in-use* 1))
	  (stack-push! (dbr:subdb-dbstack subdb) dbdat)))))
︙

This page was generated in about 0.113s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00