Overview
Comment: | regression on area-dat partial work. caused ever growing open files. Might not be entirely fixed but this seemed to help |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-real-new-runs-view |
Files: | files | file ages | folders |
SHA1: |
bc457c7b22c3baeca14102c15b26798e |
User & Date: | matt on 2021-02-20 23:18:52 |
Other Links: | branch diff | manifest | tags |
Context
2021-02-20
| ||
23:27 | Added back couple missed fucntions for ezsteps check-in: e748d20487 user: matt tags: v1.65-real-new-runs-view | |
23:18 | regression on area-dat partial work. caused ever growing open files. Might not be entirely fixed but this seemed to help check-in: bc457c7b22 user: matt tags: v1.65-real-new-runs-view | |
22:52 | Patched in some waitons stuff check-in: 36a0175612 user: matt tags: v1.65-real-new-runs-view | |
Changes
Modified dbmod.scm from [b89c505d56] to [3f7ad852eb].
︙ | |||
945 946 947 948 949 950 951 | 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 | - + | (if should-print (debug:print 3 *default-log-port* "INFO: db sync, total run time " runtime " ms")) (for-each (lambda (dat) (let ((tblname (car dat)) (count (cdr dat))) (set! tot-count (+ tot-count count)) (if (> count 0) ;; concs are there to prevent "Error: (sprintf) illegal format-string character: #\1" which I don't understand. |
︙ |
Modified rmt.scm from [b6b8a0ea46] to [d1560d8558].
︙ | |||
113 114 115 116 117 118 119 | 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | - + - + | ;;DOT node [shape="box"]; ;;DOT "rmt:send-receive" -> MUTEXLOCK; ;;DOT { edge [style=invis];"case 1" -> "case 2" -> "case 3" -> "case 4" -> "case 5" -> "case 6" -> "case 7" -> "case 8" -> "case 9" -> "case 10" -> "case 11"; } ;; do all the prep locked under the rmt-mutex (mutex-lock! *rmt-mutex*) ;; set up runremote record earlier than the loop below |
︙ |