Differences From Artifact [b5eea0764a]:
- File dbfile.scm — part of check-in [ccef2ac967] at 2023-10-17 19:50:57 on branch v1.80 — Made the /tmp db location consistent with previous versions, made -kill-servers remove no-sync.db, adjusted debug messages (user: mmgraham, size: 60323) [annotate] [blame] [check-ins using] [more...]
To Artifact [5eebf6582a]:
- File
dbfile.scm
— part of check-in
[e607892c7d]
at
2023-10-20 05:12:31
on branch v1.80
— Merged fork
This node ran run-core-tests.sh through kill-rerun - a pretty good result. Dashboard comes up quickly also. (user: mrwellan, size: 60753) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
1577 1578 1579 1580 1581 1582 1583 1584 1585 |
(result (or stmth
(let* ((newstmth (sqlite3:prepare db stmt)))
;; (db:hoh-set! stmt-cache db stmt newstmth)
(hash-table-set! stmt-cache stmt newstmth)
newstmth))))
(mutex-unlock! *get-cache-stmth-mutex*)
result))
)
| > > > > > > > > > > | 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 |
(result (or stmth
(let* ((newstmth (sqlite3:prepare db stmt)))
;; (db:hoh-set! stmt-cache db stmt newstmth)
(hash-table-set! stmt-cache stmt newstmth)
newstmth))))
(mutex-unlock! *get-cache-stmth-mutex*)
result))
;;======================================================================
;; cached writes - run list of procs inside transaction
;; NOTE: this only works because we have once database per process
;;======================================================================
(define *cached-writes-mutex* (make-mutex))
(define *cached-writes-flag* #f)
(define *cached-writes-queues* (make-hash-table)) ;; dbstruct->list of writes
)
|