--- a/ObjMem.st Tue Nov 07 21:34:02 1995 +0100
+++ b/ObjMem.st Wed Nov 08 13:15:33 1995 +0100
@@ -37,7 +37,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.72 1995-11-07 20:34:02 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.73 1995-11-08 12:15:33 cg Exp $
'!
!ObjectMemory class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.72 1995-11-07 20:34:02 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.73 1995-11-08 12:15:33 cg Exp $
"
!
@@ -104,8 +104,8 @@
IOInterruptHandler gets SIGIO unix signals (from VM)
CustomInterruptHandler gets custom interrupts (from VM)
- InterruptDelayMonitor if nonNil, that one will be notified (by the VM)
- with an interruptDelay:millis message for every
+ InterruptLatencyMonitor if nonNil, that one will be notified (by the VM)
+ with an interruptLatency:millis message for every
interrupt and gets the delay time
(between the time when the signal arrived and
when it was really delivered) as argument.
@@ -1020,14 +1020,16 @@
"set the handler for custom interrupts"
CustomInterruptHandler := aHandler
-!
+! !
+
+!ObjectMemory class methodsFor:'interrupt statistics'!
interruptLatencyMonitor
"return the interrupt-latency-monitor if any.
See comment in #interruptLatencyMonitor:.
This is a non-standard debugging/realtime instrumentation entry."
- ^ InterruptDelayMonitor
+ ^ InterruptLatencyMonitor
!
interruptLatencyMonitor:aHandler
@@ -1037,9 +1039,7 @@
This is a non-standard debugging/realtime instrumentation entry."
InterruptLatencyMonitor := aHandler
-! !
-
-!ObjectMemory class methodsFor:'interrupt statistics'!
+!
interruptLatency:ms receiver:rec selector:sel vmActivity:vmActivity
"example implementation of latencyTime monitoring:
--- a/ObjectMemory.st Tue Nov 07 21:34:02 1995 +0100
+++ b/ObjectMemory.st Wed Nov 08 13:15:33 1995 +0100
@@ -37,7 +37,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.72 1995-11-07 20:34:02 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.73 1995-11-08 12:15:33 cg Exp $
'!
!ObjectMemory class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.72 1995-11-07 20:34:02 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.73 1995-11-08 12:15:33 cg Exp $
"
!
@@ -104,8 +104,8 @@
IOInterruptHandler gets SIGIO unix signals (from VM)
CustomInterruptHandler gets custom interrupts (from VM)
- InterruptDelayMonitor if nonNil, that one will be notified (by the VM)
- with an interruptDelay:millis message for every
+ InterruptLatencyMonitor if nonNil, that one will be notified (by the VM)
+ with an interruptLatency:millis message for every
interrupt and gets the delay time
(between the time when the signal arrived and
when it was really delivered) as argument.
@@ -1020,14 +1020,16 @@
"set the handler for custom interrupts"
CustomInterruptHandler := aHandler
-!
+! !
+
+!ObjectMemory class methodsFor:'interrupt statistics'!
interruptLatencyMonitor
"return the interrupt-latency-monitor if any.
See comment in #interruptLatencyMonitor:.
This is a non-standard debugging/realtime instrumentation entry."
- ^ InterruptDelayMonitor
+ ^ InterruptLatencyMonitor
!
interruptLatencyMonitor:aHandler
@@ -1037,9 +1039,7 @@
This is a non-standard debugging/realtime instrumentation entry."
InterruptLatencyMonitor := aHandler
-! !
-
-!ObjectMemory class methodsFor:'interrupt statistics'!
+!
interruptLatency:ms receiver:rec selector:sel vmActivity:vmActivity
"example implementation of latencyTime monitoring: