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
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];
}.