Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -84,11 +84,11 @@ ;;====================================================================== ;; The inmem one-db file per server method goes in here ;;====================================================================== (define (dbmod:with-db dbstruct run-id r/w proc params) - (let* ((use-mutex (> *api-process-request-count* 15)) + (let* ((use-mutex (> *api-process-request-count* 50)) (dbdat (dbmod:open-db dbstruct run-id (dbfile:db-init-proc))) (dbh (dbr:dbdat-dbh dbdat)) ;; this will be the inmem handle (dbfile (dbr:dbdat-dbfile dbdat))) ;; if nfs mode do a sync if delta > 2 (let* ((last-update (dbr:dbstruct-last-update dbstruct)) @@ -166,11 +166,11 @@ (dbfname (or dbfname-in (dbmod:run-id->dbfname run-id))) (dbpath (dbmod:get-dbdir dbstruct)) ;; directory where all the .db files are kept (dbfullname (conc dbpath"/"dbfname)) ;; (dbmod:run-id->full-dbfname dbstruct run-id)) (dbexists (file-exists? dbfullname)) (inmem (dbmod:open-inmem-db init-proc - ;; (conc "/tmp/"dbfname) ;; will create /tmp file + (conc "/tmp/"(current-process-id)"-"dbfname) ;; will create /tmp file )) (write-access (file-write-access? dbpath)) (db (dbmod:safely-open-db dbfullname init-proc write-access)) (tables (db:sync-all-tables-list keys))) (assert (sqlite3:database? inmem) "FATAL: open-dbmoddb: inmem is not a db") Index: tcp-transportmod.scm ================================================================== --- tcp-transportmod.scm +++ tcp-transportmod.scm @@ -119,10 +119,13 @@ ;; 1 ... or #f (define (tt:valid-run-id run-id) (or (number? run-id) (not run-id))) +(tcp-buffer-size 2048) +;; (max-connections 4096) + ;; do all the busy work of finding and setting up conn for ;; connecting to a server ;; (define (tt:client-connect-to-server ttdat dbfname run-id testsuite) (assert (tt:valid-run-id run-id) "FATAL: invalid run-id "run-id)