Megatest

Check-in [df5d023f0f]
Login
Overview
Comment:signature 12 debug attempt 2
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64-sig12
Files: files | file ages | folders
SHA1: df5d023f0f442cc5e95c0fb13af1809303b9f268
User & Date: bjbarcla on 2017-04-19 14:07:11
Other Links: branch diff | manifest | tags
Context
2017-04-19
14:17
signature 12 debug attempt 3 check-in: 4ea8bd9fcd user: bjbarcla tags: v1.64-sig12
14:07
signature 12 debug attempt 2 check-in: df5d023f0f user: bjbarcla tags: v1.64-sig12
12:56
signature 12 debug attempt 1 check-in: eb9a42eb42 user: bjbarcla tags: v1.64-sig12
Changes

Modified runs.scm from [0ae3538324] to [a7c944cc22].

107
108
109
110
111
112
113



114
115
116
117
118
119
120
                    (lambda ()
                      (print "*configdat* is >>"*configdat*"<<")
                      (pp *configdat*)
                      (pp call-chain)))
                  
		  (exit 1))))
          ;;(bb-check-path msg: "runs:set-megatest-env-vars block 1.5")



          (alist->env-vars (hash-table-ref/default *configdat* "env-override" '())))) ;;;; environment is tainted HERE in this let block.
    ;;(bb-check-path msg: "runs:set-megatest-env-vars block 2")
    ;; Lets use this as an opportunity to put MT_RUNNAME in the environment
    (let ((runname  (if inrunname inrunname (rmt:get-run-name-from-id run-id))))
      (if runname
	  (setenv "MT_RUNNAME" runname)
	  (debug:print-error 0 *default-log-port* "no value for runname for id " run-id)))







>
>
>







107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
                    (lambda ()
                      (print "*configdat* is >>"*configdat*"<<")
                      (pp *configdat*)
                      (pp call-chain)))
                  
		  (exit 1))))
          ;;(bb-check-path msg: "runs:set-megatest-env-vars block 1.5")
          (if (or (not *configdat*) (not (hash-table? *configdat*)))
              (BB> "ERROR: *configdat* was inaccessible! This should never happen.  Brute force reread.")
              (launch:setup force-reread: #t))
          (alist->env-vars (hash-table-ref/default *configdat* "env-override" '())))) ;;;; environment is tainted HERE in this let block.
    ;;(bb-check-path msg: "runs:set-megatest-env-vars block 2")
    ;; Lets use this as an opportunity to put MT_RUNNAME in the environment
    (let ((runname  (if inrunname inrunname (rmt:get-run-name-from-id run-id))))
      (if runname
	  (setenv "MT_RUNNAME" runname)
	  (debug:print-error 0 *default-log-port* "no value for runname for id " run-id)))