Megatest

Check-in [edd34fca34]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Minor message clean up
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-cleanup
Files: files | file ages | folders
SHA1: edd34fca340340100a57547a94b116701b0618e1
User & Date: matt on 2020-08-23 07:53:55
Other Links: branch diff | manifest | tags
Context
2020-08-24
00:23
Added more granular exception handling ==/9.4/0.9/WARN/2102/mars/== ==/5.7/1.2/WARN/1201/mars/== check-in: 0f33ea4295 user: mrwellan tags: v1.65-cleanup
2020-08-23
07:53
Minor message clean up check-in: edd34fca34 user: matt tags: v1.65-cleanup
00:03
Remove junk code causing false stack trace. check-in: dfe44999f0 user: matt tags: v1.65-cleanup
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified common.scm from [cd37d26c89] to [3338602768].

︙
2117
2118
2119
2120
2121
2122
2123
2124
2125


2126
2127
2128
2129
2130
2131
2132

2117
2118
2119
2120
2121
2122
2123


2124
2125
2126
2127
2128
2129
2130
2131
2132








-
-
+
+








      (thread-sleep! adjwait)
      (common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host))
     ((and (> loadjmp (cond
		       ((> numcpus 8)(/ numcpus 4))
		       ((> numcpus 4)(/ numcpus 2))
		       (else 0.5)))
	   (> count 0))
      (debug:print-info 0 *default-log-port* "waiting " adjwait " seconds due to load jump " loadjmp " > numcpus " numcpus
			(if msg (conc " " msg) ""))
      (debug:print-info 0 *default-log-port* "waiting " adjwait " seconds due to possible load jump " loadjmp ". "
			(if msg msg ""))
      (thread-sleep! adjwait)
      (common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host))
     (else
      (if (> num-tries 0)
	  (if (common:low-noise-print 30 (conc (round first) "-load-acceptable-" (or remote-host "localhost")))
	      (debug:print 0 *default-log-port* "Load on " (or remote-host "localhost") " is acceptable at " first " continuing."))
	  (debug:print 0 *default-log-port* "Load on " (or remote-host "localhost") ", "first" could not be retrieved. Giving up and continuing."))))))
︙

This page was generated in about 0.121s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00