Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show irq latency
authorClaus Gittinger <cg@exept.de>
Tue, 07 Nov 1995 18:21:30 +0100
changeset 156 e6a7f80e2a71
parent 155 33c9fa03fc79
child 157 77f56399cc5f
show irq latency
MemMonitor.st file | annotate | diff | comparison | revisions
MemoryMonitor.st file | annotate | diff | comparison | revisions 
--- a/MemMonitor.st	Thu Nov 02 17:24:46 1995 +0100
+++ b/MemMonitor.st	Tue Nov 07 18:21:30 1995 +0100
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.21 1995-08-30 18:36:02 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.22 1995-11-07 17:21:30 cg Exp $
 "
 !
 
@@ -278,13 +278,15 @@
 	new:    current newSpace in use
 	free:   current size of freelist in oldSpace
 	old:    current oldSpace in use
-	minsc:  percent of newspace remaining after scavenge (worst case)
-	t       current tenure age
-	I       IGC state
+	t:      current tenure age
+	I:      IGC state
+	weak:   number of weak arrays in the system
 	rem     remembered set size
 	lrem    lifo remembered set size
-	count of scavenges
-	last scavenge survivor rate
+	minsc:  percent of newspace remaining after scavenge (worst case)
+	irq:    max. interrupt delay
+	count of scavenges / last scavenge survivor rate
+
     "
 
     |oldSpaceSize newSpaceSize memUsed oldMemUsed newMemUsed freeMem free2 
@@ -394,11 +396,22 @@
     self displayOpaqueString:s x:0 y:y.
 
     y := y + fontHeight.
+    n := ObjectMemory maxInterruptDelay.
+    n notNil ifTrue:[
+	s := 'irq ', (n printStringLeftPaddedTo:3) , ' ms'.
+    ] ifFalse:[
+	s := 'irq ---'
+    ].
+    self displayOpaqueString:s x:0 y:y.
+
+    y := y + fontHeight.
     n := ObjectMemory lastScavengeReclamation / ObjectMemory newSpaceSize * 100.0.
     n := 100 - n asInteger.
     s := (ObjectMemory scavengeCount printStringLeftPaddedTo:6)
 	 , (n printStringLeftPaddedTo:3) , '%'.
     self displayOpaqueString:s x:0 y:y.
+
+    "Created: 7.11.1995 / 14:48:16 / cg"
 !
 
 redraw
@@ -472,9 +485,11 @@
 	"reset max"
 	maxTotal := prevTotal.
 	scale := height asFloat / (maxTotal + 100000).
-	ObjectMemory resetMinScavengeReclamation.
+	self resetStatisticValues.
 	self redraw.
     ]
+
+    "Modified: 7.11.1995 / 17:45:13 / cg"
 ! !
 
 !MemoryMonitor methodsFor:'initialization'!
@@ -487,6 +502,7 @@
 			'scavenge'
 			'tenure'
 			'incremental collect'
+			'reset statistic values'
 			'-'
 			'cleanup memory'
 			'-'
@@ -496,6 +512,7 @@
 			scavenge
 			tenure
 			incrementalCollect
+			resetStatisticValues
 			nil
 			cleanupMemory
 			nil
@@ -609,6 +626,13 @@
     ObjectMemory verboseGarbageCollect.
 !
 
+resetStatisticValues 
+    ObjectMemory resetMaxDelay.
+    ObjectMemory resetMinScavengeReclamation.
+
+    "Created: 7.11.1995 / 17:44:59 / cg"
+!
+
 garbageCollect
     ObjectMemory markAndSweep
 !
--- a/MemoryMonitor.st	Thu Nov 02 17:24:46 1995 +0100
+++ b/MemoryMonitor.st	Tue Nov 07 18:21:30 1995 +0100
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.21 1995-08-30 18:36:02 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.22 1995-11-07 17:21:30 cg Exp $
 "
 !
 
@@ -278,13 +278,15 @@
 	new:    current newSpace in use
 	free:   current size of freelist in oldSpace
 	old:    current oldSpace in use
-	minsc:  percent of newspace remaining after scavenge (worst case)
-	t       current tenure age
-	I       IGC state
+	t:      current tenure age
+	I:      IGC state
+	weak:   number of weak arrays in the system
 	rem     remembered set size
 	lrem    lifo remembered set size
-	count of scavenges
-	last scavenge survivor rate
+	minsc:  percent of newspace remaining after scavenge (worst case)
+	irq:    max. interrupt delay
+	count of scavenges / last scavenge survivor rate
+
     "
 
     |oldSpaceSize newSpaceSize memUsed oldMemUsed newMemUsed freeMem free2 
@@ -394,11 +396,22 @@
     self displayOpaqueString:s x:0 y:y.
 
     y := y + fontHeight.
+    n := ObjectMemory maxInterruptDelay.
+    n notNil ifTrue:[
+	s := 'irq ', (n printStringLeftPaddedTo:3) , ' ms'.
+    ] ifFalse:[
+	s := 'irq ---'
+    ].
+    self displayOpaqueString:s x:0 y:y.
+
+    y := y + fontHeight.
     n := ObjectMemory lastScavengeReclamation / ObjectMemory newSpaceSize * 100.0.
     n := 100 - n asInteger.
     s := (ObjectMemory scavengeCount printStringLeftPaddedTo:6)
 	 , (n printStringLeftPaddedTo:3) , '%'.
     self displayOpaqueString:s x:0 y:y.
+
+    "Created: 7.11.1995 / 14:48:16 / cg"
 !
 
 redraw
@@ -472,9 +485,11 @@
 	"reset max"
 	maxTotal := prevTotal.
 	scale := height asFloat / (maxTotal + 100000).
-	ObjectMemory resetMinScavengeReclamation.
+	self resetStatisticValues.
 	self redraw.
     ]
+
+    "Modified: 7.11.1995 / 17:45:13 / cg"
 ! !
 
 !MemoryMonitor methodsFor:'initialization'!
@@ -487,6 +502,7 @@
 			'scavenge'
 			'tenure'
 			'incremental collect'
+			'reset statistic values'
 			'-'
 			'cleanup memory'
 			'-'
@@ -496,6 +512,7 @@
 			scavenge
 			tenure
 			incrementalCollect
+			resetStatisticValues
 			nil
 			cleanupMemory
 			nil
@@ -609,6 +626,13 @@
     ObjectMemory verboseGarbageCollect.
 !
 
+resetStatisticValues 
+    ObjectMemory resetMaxDelay.
+    ObjectMemory resetMinScavengeReclamation.
+
+    "Created: 7.11.1995 / 17:44:59 / cg"
+!
+
 garbageCollect
     ObjectMemory markAndSweep
 !
hg/stx-libtool