Overview
Comment: | Couple untested fixes |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80 |
Files: | files | file ages | folders |
SHA1: |
4a2131ba1d2102edc71b71f826a0777d |
User & Date: | matt on 2023-05-22 21:38:23 |
Other Links: | branch diff | manifest | tags |
Context
2023-05-23
| ||
19:19 | Fixed attach sync check-in: a8fa1eb8a2 user: matt tags: v1.80 | |
2023-05-22
| ||
21:38 | Couple untested fixes check-in: 4a2131ba1d user: matt tags: v1.80 | |
20:41 | One failure to get lock to open db go ahead and try, reset counters of api calls using count of threads, some threads might die and are unable to unregister themselves. check-in: e799a787ef user: matt tags: v1.80 | |
Changes
Modified dbfile.scm from [b9d134230d] to [dc50b23038].
︙ | ︙ | |||
53 54 55 56 57 58 59 60 61 62 63 64 65 66 | (define keep-age-param (make-parameter 10)) ;; qif file age, if over move to attic (define num-run-dbs (make-parameter 10)) ;; number of db's in .mtdb (define dbfile:sync-method (make-parameter 'attach)) ;; 'attach or 'original (define dbfile:cache-method (make-parameter 'cachedb)) ;; 'direct (define dbcache-mode (make-parameter 'tmp)) ;; 'cachedb, 'tmp (changes what open cachedb routine does) ;; 'original - use old condition code ;; 'suicide-mode - create mtrah/stop-the-train with info on what went wrong ;; else use no condition code (should be production mode) ;; (define no-condition-db-with-db (make-parameter 'suicide-mode)) | > > | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | (define keep-age-param (make-parameter 10)) ;; qif file age, if over move to attic (define num-run-dbs (make-parameter 10)) ;; number of db's in .mtdb (define dbfile:sync-method (make-parameter 'attach)) ;; 'attach or 'original (define dbfile:cache-method (make-parameter 'cachedb)) ;; 'direct (define dbcache-mode (make-parameter 'tmp)) ;; 'cachedb, 'tmp (changes what open cachedb routine does) ;; moved from tcp-transportmod so that it can be used in launch.scm (define tt-server-profile-string (make-parameter "")) ;; 'original - use old condition code ;; 'suicide-mode - create mtrah/stop-the-train with info on what went wrong ;; else use no condition code (should be production mode) ;; (define no-condition-db-with-db (make-parameter 'suicide-mode)) |
︙ | ︙ |
Modified dbmod.scm from [a5cc78531f] to [3017a3343d].
︙ | ︙ | |||
278 279 280 281 282 283 284 | (debug:print-info 0 *default-log-port* "dbmod:sync-gasket called with sync-method="(dbfile:sync-method)) (case (dbfile:sync-method) ((none) #f) ((attach) (dbmod:attach-sync tables cachedb dbfname direction)) ((newsync) (dbmod:new-sync tables cachedb dbh dbfname direction)) | | | 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 | (debug:print-info 0 *default-log-port* "dbmod:sync-gasket called with sync-method="(dbfile:sync-method)) (case (dbfile:sync-method) ((none) #f) ((attach) (dbmod:attach-sync tables cachedb dbfname direction)) ((newsync) (dbmod:new-sync tables cachedb dbh dbfname direction)) (else ;; original (case direction ((todisk) ;; i.e. from the cache db to the mtrah db (dbmod:sync-tables tables last-update keys cachedb dbh)) (else (dbmod:sync-tables tables last-update keys dbh cachedb)))))) (define (dbmod:close-db dbstruct) |
︙ | ︙ |
Modified tcp-transportmod.scm from [f1225d6f57] to [c0357a953a].
︙ | ︙ | |||
106 107 108 109 110 111 112 | (servinf-file #f) (last-serv-start 0) ) ;; parameters ;; (define tt-server-timeout-param (make-parameter 600)) | < | 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | (servinf-file #f) (last-serv-start 0) ) ;; parameters ;; (define tt-server-timeout-param (make-parameter 600)) ;; make ttdat visible (define *server-info* #f) (define (tt:make-remote areapath) (make-tt areapath: areapath)) |
︙ | ︙ |