Overview
| Comment: | Added fix for case where rmt calls returns a non list and a list length call crashes. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-broken |
| Files: | files | file ages | folders |
| SHA1: |
7ff937a8a2df1a3e473a760363b85e98 |
| User & Date: | mrwellan on 2020-04-28 18:08:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-04-29
| ||
| 14:39 | Added speculative fix (try few times) to lauch where it is trying to get the test-info. check-in: 18da8b6a61 user: mrwellan tags: v1.65-broken | |
|
2020-04-28
| ||
| 18:08 | Added fix for case where rmt calls returns a non list and a list length call crashes. check-in: 7ff937a8a2 user: mrwellan tags: v1.65-broken | |
| 17:58 | Added fix for case where rmt calls returns a non list and a list length call crashes. check-in: 5b7f0c6aa3 user: mrwellan tags: v1.65-broken | |
Changes
Modified common.scm from [fe39d65d64] to [d0760d6348].
| ︙ | ︙ | |||
1199 1200 1201 1202 1203 1204 1205 |
read-line)))
;;======================================================================
;; Some safety net stuff
;;======================================================================
;; return input if it is a list or return null
| | > > | | 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 |
read-line)))
;;======================================================================
;; Some safety net stuff
;;======================================================================
;; return input if it is a list or return null
(define (common:list-or-null inlst #!key (ovrd #f)(message #f))
(if (list? inlst)
inlst
(begin
(if message (debug:print-error 0 *default-log-port* message))
(or ovrd '()))))
;;======================================================================
;; T A R G E T S , S T A T E , S T A T U S ,
;; R U N N A M E A N D T E S T P A T T
;;======================================================================
;; (map print (map car (hash-table->alist (read-config "runconfigs.config" #f #t))))
|
| ︙ | ︙ |
Modified launch.scm from [c8ef6cdb36] to [a7b2c96db0].
| ︙ | ︙ | |||
1122 1123 1124 1125 1126 1127 1128 | (set! toppath *toppath*) (if (not *toppath*) (begin (debug:print-error 0 *default-log-port* "you are not in a megatest area!") (exit 1))) (setenv "MT_RUN_AREA_HOME" *toppath*) ;; the seed read is done, now read runconfigs, cache it then read megatest.config one more time and cache it | | > | 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 | (set! toppath *toppath*) (if (not *toppath*) (begin (debug:print-error 0 *default-log-port* "you are not in a megatest area!") (exit 1))) (setenv "MT_RUN_AREA_HOME" *toppath*) ;; the seed read is done, now read runconfigs, cache it then read megatest.config one more time and cache it (let* ((keys (common:list-or-null (rmt:get-keys) message: "Failed to retrieve keys in launch.scm. Please report this to the developers.")) (key-vals (keys:target->keyval keys target)) (linktree (common:get-linktree)) ;; (or (getenv "MT_LINKTREE")(if *configdat* (configf:lookup *configdat* "setup" "linktree") #f))) ; (if *configdat* ; (configf:lookup *configdat* "setup" "linktree") ; (conc *toppath* "/lt")))) (second-pass (find-and-read-config mtconfig |
| ︙ | ︙ |