Overview
| Comment: | Fixed illogical push of newly created db on the db stack |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-stackdumpfix |
| Files: | files | file ages | folders |
| SHA1: |
9fa6231dd71380606d63e73df8c29187 |
| User & Date: | mrwellan on 2017-01-09 15:42:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-09
| ||
| 21:16 | Partial implementation of passing db in place of dbstruct to enable transactions check-in: a4a65fdc88 user: mrwellan tags: v1.63-stackdumpfix | |
| 15:42 | Fixed illogical push of newly created db on the db stack check-in: 9fa6231dd7 user: mrwellan tags: v1.63-stackdumpfix | |
| 14:54 | Added use of a stack for database handles for the /tmp db, converted few more cases to use db:with-db check-in: f84301a090 user: mrwellan tags: v1.63-stackdumpfix | |
Changes
Modified db.scm from [e9b8729db6] to [d808026404].
| ︙ | ︙ | |||
94 95 96 97 98 99 100 |
;; if db not open, open inmem, rundb and sync then return inmem
;; inuse gets set automatically for rundb's
;;
(define (db:get-db dbstruct) ;; run-id)
(if (stack? (dbr:dbstruct-dbstack dbstruct))
(if (stack-empty? (dbr:dbstruct-dbstack dbstruct))
(let ((newdb (db:open-megatest-db path: (db:dbfile-path))))
| | | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 |
;; if db not open, open inmem, rundb and sync then return inmem
;; inuse gets set automatically for rundb's
;;
(define (db:get-db dbstruct) ;; run-id)
(if (stack? (dbr:dbstruct-dbstack dbstruct))
(if (stack-empty? (dbr:dbstruct-dbstack dbstruct))
(let ((newdb (db:open-megatest-db path: (db:dbfile-path))))
;; (stack-push! (dbr:dbstruct-dbstack dbstruct) newdb)
newdb)
(stack-pop! (dbr:dbstruct-dbstack dbstruct)))
(db:open-db dbstruct)))
;; ;; legacy handling of structure for managing db's. Refactor this into dbr:?
(define (db:dbdat-get-db dbdat)
(if (pair? dbdat)
|
| ︙ | ︙ |