Differences From Artifact [11cd5cbd4c]:
- File tcp-transportmod.scm — part of check-in [6c641b6f76] at 2023-05-22 11:47:51 on branch v1.80 — Added exception handlers back - within threads they have to be dealth with. Added handling of busy exception and it seems to be working better (buy not enough testing yet to be sure). (user: matt, size: 36452) [annotate] [blame] [check-ins using]
To Artifact [c0357a953a]:
- File tcp-transportmod.scm — part of check-in [f42bab9286] at 2023-05-22 12:09:07 on branch v1.80 — Changed delay to linear function 0.25 * number of threads over 3. (user: matt, size: 36479) [annotate] [blame] [check-ins using] [more...]
︙ | ︙ | |||
239 240 241 242 243 244 245 | (if (and (number? delay-wait) (> delay-wait 0)) (begin (debug:print 0 *default-log-port* "Server is loaded, delaying "delay-wait" seconds") (thread-sleep! delay-wait))))) (case status ((busy) ;; result will be how long the server wants you to delay | > | | | | 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 | (if (and (number? delay-wait) (> delay-wait 0)) (begin (debug:print 0 *default-log-port* "Server is loaded, delaying "delay-wait" seconds") (thread-sleep! delay-wait))))) (case status ((busy) ;; result will be how long the server wants you to delay (let* ((dly (if (number? result) result 0.1))) (debug:print 0 *default-log-port* "WARNING: server for "dbfname" is busy, will try again in "dly" seconds.") (thread-sleep! dly) (tt:handler ttdat cmd run-id params (+ attemptnum 1) area-dat areapath readonly-mode dbfname testsuite mtexe))) ((loaded) (debug:print 0 *default-log-port* "WARNING: server for "dbfname" is loaded, slowing queries.") (tt:backoff-incr (tt-conn-host conn)(tt-conn-port conn)) result) ;; (tt:handler ttdat cmd run-id params (+ attemptnum 1) area-dat areapath readonly-mode dbfname testsuite mtexe)) (else result))) (else ;; did not receive properly formated result |
︙ | ︙ |