Overview
| Comment: | fixed match let in db.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6582 | v1.65-real |
| Files: | files | file ages | folders |
| SHA1: |
d486cc49eedd412b6bb87427a5eadce4 |
| User & Date: | pjhatwal on 2021-02-01 13:29:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-03
| ||
| 12:58 | fixes to sretrive to pick hidden files check-in: 3a077a5493 user: pjhatwal tags: v1.65-real | |
|
2021-02-01
| ||
| 13:29 | fixed match let in db.scm check-in: d486cc49ee user: pjhatwal tags: v1.6582, v1.65-real | |
|
2021-01-29
| ||
| 11:48 | changed megatest version to v1.6582 check-in: d69b03fe95 user: mmgraham tags: v1.65-real | |
Changes
Modified db.scm from [f2d817bbad] to [ac557f6ec3].
| ︙ | ︙ | |||
1079 1080 1081 1082 1083 1084 1085 |
(lambda (option)
(case option
;; kill servers
((killservers)
(for-each
(lambda (server)
| > > > > > | | | 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 |
(lambda (option)
(case option
;; kill servers
((killservers)
(for-each
(lambda (server)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get host and/or port from " servr ", exn=" exn)
#f)
(match-let (((mod-time host port start-time server-id pid) server))
(if (and host pid)
(tasks:kill-server host pid)))))
servers)
;; /tmp/bjbarcla/megatest_localdb/fullrun/.nfs.pdx.disks.icf_env_disk001.bjbarcla.gwa.issues.mtdev.matt-bisect.megatest.ext-tests.runs.all.v1.65.1.6524.dev.bb-24-justrollup-f8.rollup.fullrun/megatest.db.lock
(delete-file* (common:get-sync-lock-filepath))
)
;; clear out junk records
|
| ︙ | ︙ |
Modified server.scm from [136e39e7ec] to [e1c4f3709b].
| ︙ | ︙ | |||
462 463 464 465 466 467 468 |
(define (server:kill servr)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get host and/or port from " servr ", exn=" exn)
#f)
| | | 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 |
(define (server:kill servr)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get host and/or port from " servr ", exn=" exn)
#f)
(match-let (((mod-time hostname port start-time server-id pid)
servr))
(tasks:kill-server hostname pid))))
;; called in megatest.scm, host-port is string hostname:port
;;
;; NOTE: This is NOT called directly from clients as not all transports support a client running
;; in the same process as the server.
|
| ︙ | ︙ |