Megatest

Check-in [6073f070bd]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Syncd with v1.65
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-fixes
Files: files | file ages | folders
SHA1: 6073f070bd25fb030957942127008901f79cbb7a
User & Date: mrwellan on 2020-03-02 06:00:03
Other Links: branch diff | manifest | tags
Context
2020-03-02
14:21
wip check-in: 7794d480b4 user: matt tags: v1.65-fixes
06:00
Syncd with v1.65 check-in: 6073f070bd user: mrwellan tags: v1.65-fixes
2020-03-01
15:12
wip check-in: 4139c0e4e6 user: matt tags: v1.65-fixes
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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;
︙︙

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