Overview
| Comment: | Forcing synchronous to 0 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
b052a1ff92c3b3646f1f8d2e4d7ab057 |
| User & Date: | mrwellan on 2014-07-30 15:32:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-31
| ||
| 00:02 | Added built-in loadrunner into Megatest check-in: 229f3fa92e user: matt tags: v1.55 | |
|
2014-07-30
| ||
| 15:32 | Forcing synchronous to 0 check-in: b052a1ff92 user: mrwellan tags: v1.55 | |
| 11:56 | Found never-end bug in runs.scm where run-wait logic was at the wrong level check-in: c12c6d9114 user: mrwellan tags: v1.55, v1.55241 | |
Changes
Modified db.scm from [61d06ab7ee] to [eb228185ab].
| ︙ | ︙ | |||
81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
(set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
(debug:print-info 11 "open-db, dbpath=" dbpath " argv=" (argv))
(if write-access (sqlite3:set-busy-handler! db handler))
(if (not dbexists)
(db:initialize db))
;; Moving db:set-sync to a call in run.scm - it is a persistent value and only needs to be set once
;; (db:set-sync db)
db))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
(if (or *db-write-access*
(not (member proc *db:all-write-procs*)))
| > | 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
(set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
(debug:print-info 11 "open-db, dbpath=" dbpath " argv=" (argv))
(if write-access (sqlite3:set-busy-handler! db handler))
(if (not dbexists)
(db:initialize db))
;; Moving db:set-sync to a call in run.scm - it is a persistent value and only needs to be set once
;; (db:set-sync db)
(sqlite3:execute db "PRAGMA synchronous = 0;")
db))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
(if (or *db-write-access*
(not (member proc *db:all-write-procs*)))
|
| ︙ | ︙ |