Overview
Comment: | Force cache off for now |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | rpc-db-access |
Files: | files | file ages | folders |
SHA1: |
07dd812d1e0811f83f1fa317a8bdc559 |
User & Date: | matt on 2012-10-08 18:53:41 |
Other Links: | branch diff | manifest | tags |
Context
2012-10-08
| ||
19:43 | Forced iup to older version which works Closed-Leaf check-in: d3b43556bd user: mrwellan tags: rpc-db-access | |
18:53 | Force cache off for now check-in: 07dd812d1e user: matt tags: rpc-db-access | |
18:17 | Make rpc vs. normal calls more consistent check-in: 49f93afd9b user: mrwellan tags: rpc-db-access | |
Changes
Modified db.scm from [8b953ea457] to [bf64c70e7b].
︙ | |||
1100 1101 1102 1103 1104 1105 1106 | 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 | - + - + | (list fail-count pass-count test-id)) *incoming-data*)) (mutex-unlock! *incoming-mutex*) (if *cache-on* (debug:print 6 "INFO: *cache-on* is " *cache-on* ", skipping cache write") (db:write-cached-data))) |
︙ | |||
1696 1697 1698 1699 1700 1701 1702 | 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 | - - + + | (cdb:pass-fail-counts test-id fail-count pass-count))) ;; currently forces a flush of the queue (define (rdb:tests-register-test run-id test-name item-path) (if *runremote* (let ((host (vector-ref *runremote* 0)) (port (vector-ref *runremote* 1))) |
Modified server.scm from [d8295b1488] to [9e1451e664].
︙ | |||
53 54 55 56 57 58 59 | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | - + | hostn)) (ipaddrstr (if (string=? "-" hostn) (string-intersperse (map number->string (u8vector->list (hostname->ip hostname))) ".") #f)) (host:port (conc (if ipaddrstr ipaddrstr hostname) ":" (rpc:default-server-port)))) (debug:print 0 "Server started on " host:port) (db:set-var db "SERVER" host:port) |
︙ |