CDDebugHelp.mesa
Jacobi, March 20, 1986 4:34:54 pm PST
DIRECTORY
CDVPrivate, DebuggerSwap, PrincOps, Rope, ViewerClasses;
CDDebugHelp: CEDAR PROGRAM
IMPORTS CDVPrivate, DebuggerSwap =
BEGIN
Debug: PROC [ref: REF, wedge: BOOL, msg: Rope.ROPE] RETURNS [shallCont: BOOL] = TRUSTED {
data: REFNIL;
vRef: CDVPrivate.VRef;
vRec: CDVPrivate.VRec ← [properties: NIL, scale: TRASH, intendedScale: TRASH];
vpd: CDVPrivate.VPrivatePerDesign;
bbp, bbx: PrincOps.BBTable;
bp, bx, bvRef, bvpd: BOOL;
WITH ref SELECT FROM
v: ViewerClasses.Viewer => data ← v.data;
ENDCASE => data ← ref;
WITH data SELECT FROM
vr: CDVPrivate.VRef => vRef ← vr;
ENDCASE => {};
IF bvRef ← vRef#NIL     THEN vRec ← vRef^;
IF bvpd ← vRef.designRec#NIL  THEN vpd ← vRef.designRec^;
IF bp ← vRef.pBBptr#NIL    THEN bbp ← vRef.pBBptr^;
IF bx ← vRef.xBBptr#NIL    THEN bbx ← vRef.xBBptr^;
DebuggerSwap.WorryCallDebugger["DebugHelp: ChipNDale wedge"];
};
CDVPrivate.UseDebug[Debug];
END.