BreakpointPrivate.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Laurie Horton, October 8, 1991 4:28 pm PDT
Katsuyuki Komatsu March 5, 1992 1:25 pm PST
DIRECTORY
Breakpoint,
TargetArchitecture,
Shepherd,
BreakWorldArchitecture,
Rope USING [ROPE];
BreakpointPrivate: CEDAR DEFINITIONS ~ {
Registry: TYPE = REF RegistryBody ¬ NIL;
RegistryBody: TYPE = RECORD[
SEQUENCE length: CARD OF TargetBreaks];
TargetBreaks: TYPE = REF TargetBreaksBody ¬ NIL;
TargetBreaksBody: TYPE = RECORD[
targetName: Rope.ROPE,
SetBreakpoint: SetBreakProcType,
ClearBreakpoint: ClearBreakProcType];
SetBreakProcType: TYPE ~ PROC[
address: BreakWorldArchitecture.Address,
clientData: Breakpoint.ClientData,
breakProc: Breakpoint.BreakProc,
breakProcDataSegment: BreakWorldArchitecture.Address,
breakData: Breakpoint.BreakData,
damages: TargetArchitecture.RegisterClass
¬ TargetArchitecture.RegisterClass.all]
RETURNS [Breakpoint.Break];
ClearBreakProcType: TYPE ~ PROC[
break: Breakpoint.Break] RETURNS [];
RegisterTargetBreaks: PROC[targetBreaks: TargetBreaks];
RetrieveTargetBreaks: PROC[targetName: Rope.ROPE] RETURNS[TargetBreaks];
}.