SpyOps.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
Maxwell September 19, 1983 9:21 am
Russ Atkinson (RRA) March 31, 1986 1:55:19 pm PST
Pier, December 12, 1985 10:37:38 am PST
McCreight, April 11, 1986 2:16:04 pm PST
DIRECTORY
BasicTime USING [Pulses],
FastBreak USING [FastBreakProc],
IO USING [STREAM],
PrincOps USING [BytePC, FrameHandle, GlobalFrameHandle, PsbIndex],
Process USING [GetCurrent, Priority],
Rope USING [ROPE],
SpyClient USING [DataType, StackType];
SpyOps: DEFINITIONS IMPORTS Process = BEGIN
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;
SpyKernel procedures and data structures
StartCounting: FastBreak.FastBreakProc;
StopCounting: FastBreak.FastBreakProc;
Record: PROC [
psbi: PrincOps.PsbIndex ← LOOPHOLE[Process.GetCurrent[]],
frame: PrincOps.FrameHandle ← NIL,
type: StackType ← 0,
count: CARDINAL ← 1];
UserBreak: FastBreak.FastBreakProc; -- calls Record
AllocationBreak: FastBreak.FastBreakProc; -- calls Record
current parameters
spyState: READONLY SpyState;
watching: READONLY DataType;
justMe: READONLY PrincOps.PsbIndex;
statistics
runningTime: BasicTime.Pulses;
active, starts, stops: INTEGER;
pageFaults: LONG CARDINAL;
wordsAllocated: LONG CARDINAL;
wordsReclaimed: LONG CARDINAL;
wakeups, notScheduled, skips: Count;
levelData: LevelData;
data types
DataType: TYPE = SpyClient.DataType;
SpyState: TYPE = {off, on, disabled};
Stack: TYPE = MACHINE DEPENDENT RECORD [
process: PrincOps.PsbIndex,
level: Process.Priority,
type: StackType,
count: CARDINAL,
frame: ARRAY [0..stackLength) OF Frame];
stackLength: CARDINAL = 200;
stackHeader: CARDINAL = Stack.SIZE - stackLength*Frame.SIZE;
StackType: TYPE = SpyClient.StackType;
Frame: TYPE = RECORD [
gfh: PrincOps.GlobalFrameHandle,
pc: PrincOps.BytePC];
Count: TYPE = INT;
LevelData: TYPE = ARRAY Process.Priority OF Count;
SpyBreaks procedures
PrintBreaks: PROC [typescript: STREAM];
SetAllocationBreak: PROC RETURNS[msg: ROPE];
ClearAllocationBreak: PROC;
SpyLogReader procedures
ZeroLog: PROC;
DestroyLog: PROC;
ReadLog: PROC [typescript: STREAM, datatype: DataType, spyOnSpyLog: BOOL ← FALSE];
PrintCount: PROC [stream: STREAM, c, sonC: Count, total: Count];
PerCent: PROC [stream: STREAM, x, y: Count]; -- prints x/y as "(dd.d%)"
processes: LIST OF ProcessRef;
modules: LIST OF Procedure;
ProcessRef: TYPE = REF ProcessRec;
ProcessRec: TYPE = RECORD [
psb: PrincOps.PsbIndex ← 0,
level: PACKED ARRAY [0..4] OF Process.Priority ← ALL[0],
calls: Count ← 0,
sons: LIST OF Call ← NIL];
Procedure: TYPE = REF ProcRec;
ProcRec: TYPE = RECORD [
unused: BOOL ← FALSE,
marked: BOOL ← FALSE, -- bit for procedures that walk the stack
named: BOOL ← FALSE, -- have we appended the name of the procedure?
symbols: BOOL ← TRUE, -- are the symbols available?
gfh: PrincOps.GlobalFrameHandle ← NIL, -- gfh for this procedure
name: ROPE ← NIL, -- the name of the procedure
entryPC: CARDINAL ← 0,
exitPC: CARDINAL ← LAST[CARDINAL],
refs: CARDINAL ← 0, -- number of procedures that call this one
count: Count ← 0, -- counts in this procedure
calls: Count ← 0, -- counts in procedures called by this one
container: Procedure ← NIL, -- the procedure that contains all calls to this one
parents: LIST OF Procedure ← NIL, -- procedures that call this one
sons: LIST OF Call ← NIL]; -- procedures called from here
Call: TYPE = RECORD [
pc: CARDINAL ← 0,
calls: Count ← 0,
proc: Procedure ← NIL];
END . .