Megatest

Check-in [462317ce59]
Login
Overview
Comment:Sync'd with v1.65
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-newview
Files: files | file ages | folders
SHA1: 462317ce59bff2956b603255c533579cd960e2c1
User & Date: mrwellan on 2020-03-02 13:00:03
Other Links: branch diff | manifest | tags
Context
2020-03-02
21:21
wip check-in: c3f58e0a36 user: matt tags: v1.65-newview
13:00
Sync'd with v1.65 check-in: 462317ce59 user: mrwellan tags: v1.65-newview
09:17
Add fix to start server after 15 attempts check-in: 37d16ef457 user: jmoon18 tags: v1.65, v1.6543, v1.6544
2020-03-01
22:12
wip check-in: 9d160839b2 user: matt tags: v1.65-newview
Changes

Modified rmt.scm from [4c98e905d8] to [8ff320805f].

68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
      (debug:print 0 *default-log-port* "INFO: attemptnum in rmt:send-receive is " attemptnum))
    
  (cond
   ((> attemptnum 2) (thread-sleep! 0.05))
   ((> attemptnum 10) (thread-sleep! 0.5))
   ((> attemptnum 20) (thread-sleep! 1)))
  (if (and (> attemptnum 5) (= 0 (modulo attemptnum 15)))  
    (begin (rmt:start-server rid) (thread-sleep! 3))) 
  
  
  ;;DOT digraph megatest_state_status {
  ;;DOT   ranksep=0;
  ;;DOT   // rankdir=LR;
  ;;DOT   node [shape="box"];
  ;;DOT "rmt:send-receive" -> MUTEXLOCK;







|







68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
      (debug:print 0 *default-log-port* "INFO: attemptnum in rmt:send-receive is " attemptnum))
    
  (cond
   ((> attemptnum 2) (thread-sleep! 0.05))
   ((> attemptnum 10) (thread-sleep! 0.5))
   ((> attemptnum 20) (thread-sleep! 1)))
  (if (and (> attemptnum 5) (= 0 (modulo attemptnum 15)))  
    (begin (server:run *toppath*) (thread-sleep! 3))) 
  
  
  ;;DOT digraph megatest_state_status {
  ;;DOT   ranksep=0;
  ;;DOT   // rankdir=LR;
  ;;DOT   node [shape="box"];
  ;;DOT "rmt:send-receive" -> MUTEXLOCK;