Megatest

Check-in [b1d54e44f7]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Merged fix for random crash due to race condition with iup object not created/initialized
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: b1d54e44f7db3736c22e14024a0522b24629701f
User & Date: mrwellan on 2020-08-10 10:48:16
Other Links: branch diff | manifest | tags
Context
2020-08-10
10:52
Added MT_STEP_NAME check-in: 0e49a44c95 user: mrwellan tags: v1.65
10:48
Merged fix for random crash due to race condition with iup object not created/initialized check-in: b1d54e44f7 user: mrwellan tags: v1.65
10:46
Merged fix for random crash due to race condition with iup object not created/initialized check-in: 76879803e6 user: mrwellan tags: v1.65
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dcommon.scm from [5e69693de6] to [30bf3c6504].

︙
616
617
618
619
620
621
622

623
624



625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642

616
617
618
619
620
621
622
623


624
625
626
627
628
629
630
631
632
633
634
635
636

637
638
639
640
641
642
643








+
-
-
+
+
+










-








    ;; Megatest version
    (iup:attribute-set! general-matrix "2:0" "Version")
    (iup:attribute-set! general-matrix "2:1" (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))

    general-matrix))

(define (dcommon:stats-updater commondat tabdat stats-matrix)
  (if (and (iup:ihandle? stats-matrix)
  (if (dashboard:database-changed? commondat tabdat context-key: 'run-stats)
      (let* ((run-stats    (rmt:get-run-stats))
	   (dashboard:database-changed? commondat tabdat context-key: 'run-stats))
      (let* ((changed      #f)
	     (run-stats    (rmt:get-run-stats))
	     (indices      (common:sparse-list-generate-index run-stats)) ;;  proc: set-cell))
	     (row-indices  (car indices))
	     (col-indices  (cadr indices))
	     (max-row      (if (null? row-indices) 1 (common:max (map cadr row-indices))))
	     (max-col      (if (null? col-indices) 1 
			       (common:max (map cadr col-indices))))
	     (max-visible  (max (- (dboard:tabdat-num-tests tabdat) 15) 3))
	     (max-col-vis  (if (> max-col 10) 10 max-col))
	     (numrows      1)
	     (numcols      1))
	(debug:print 0 *default-log-port* "GOT HERE, stats-matrix: " stats-matrix)
	(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
	(iup:attribute-set! stats-matrix "NUMCOL" max-col )
	(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
	(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
	(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
	(print "row-indices: " row-indices " col-indices: " col-indices)
	;; Row labels
︙
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689

676
677
678
679
680
681
682

683
684
685
686
687
688
689








-








			    (iup:attribute-set! stats-matrix key value)))))
		  run-stats)
	(if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL")))))


(define (dcommon:run-stats commondat tabdat #!key (tab-num #f))
  (let* ((stats-matrix (iup:matrix expand: "YES"))
	 (changed      #f)
	 (stats-updater (lambda ()
			  (dcommon:stats-updater commondat tabdat stats-matrix))))
    ;; (dboard:commondat-please-update-set! commondat #t) ;; force redraw on first pass 
    ;; (mark-for-update tabdat)
    ;; (stats-updater)
    (dboard:commondat-add-updater commondat stats-updater tab-num: tab-num)
    ;; (set! dashboard:update-summary-tab updater)
︙

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