DIRECTORY Basics USING [], RuntimeError USING [Type, ProcAny]; RuntimeErrorImpl: CEDAR PROGRAM EXPORTS RuntimeError ~ BEGIN OPEN RuntimeError; Aborted: PUBLIC ERROR ~ CODE; -- builtin ABORTED AbstractionFault: PUBLIC ERROR ~ CODE; ArithmeticFault: PUBLIC ERROR ~ CODE; AssignRefCompositeFault: PUBLIC ERROR ~ CODE; BoundsFault: PUBLIC ERROR ~ CODE; DivideCheck: PUBLIC SAFE SIGNAL ~ CODE; LinkageFault: PUBLIC ERROR ~ CODE; NarrowFault: PUBLIC ERROR ~ CODE; NarrowRefFault: PUBLIC ERROR [ref: REF, type: Type] ~ CODE; NestedProcFault: PUBLIC ERROR [proc: ProcAny] ~ CODE; NilFault: PUBLIC ERROR ~ CODE; ResumeFault: PUBLIC ERROR ~ CODE; SendMsg: PUBLIC SAFE SIGNAL RETURNS [signal: SIGNAL ANY RETURNS ANY, args, results: POINTER] ~ CODE; GetSignal: PUBLIC SAFE SIGNAL RETURNS [signal: SIGNAL ANY RETURNS ANY, args: POINTER, results: POINTER] ~ CODE; Resume: PUBLIC SAFE SIGNAL RETURNS [--doesn't return--] ~ CODE; StackFault: PUBLIC ERROR ~ CODE; StartFault: PUBLIC SIGNAL [dest: PROGRAM] ~ CODE; UnboundProcedureFault: PUBLIC SIGNAL [dest: PROC ANY RETURNS ANY] RETURNS [PROC ANY RETURNS ANY] ~ CODE; Uncaught: PUBLIC ERROR [signal: SIGNAL ANY RETURNS ANY, parameters: WORD] ~ CODE; -- builtin UNCAUGHT UNCAUGHT: PUBLIC ERROR [signal: SIGNAL ANY RETURNS ANY, parameters: WORD] ~ Uncaught; -- for Cedar7.0 compatibility. UnnamedError: PUBLIC ERROR ~ CODE; -- builtin ERROR UnnamedSignal: PUBLIC SIGNAL ~ CODE; -- builtin SIGNAL Unwind: PUBLIC ERROR ~ CODE; -- builtin UNWIND UnwindFault: PUBLIC ERROR ~ CODE; ZeroDivisor: PUBLIC SAFE SIGNAL ~ CODE; InvalidProcess: PUBLIC ERROR [process: PROCESS] ~ CODE; END.  RuntimeErrorImpl.mesa Copyright Σ 1988, 1991 by Xerox Corporation. All rights reserved. Carl Hauser, July 15, 1988 3:40:01 pm PDT Chauser, January 25, 1991 1:19 pm PST Willie-s, August 5, 1991 5:21 pm PDT raised when compiled code detects runtime failure. This error is raised by Narrow when the type of the variant is not equal to the expected type. This error is raised by Narrow when the type of the reference is not equal to the expected type. Raised if the procedure described by proc is a nested procedure. ΚΘ•NewlineDelimiter –(cedarcode) style™šœ™Icodešœ Οeœ7™BKšœ)™)K™%K™$J™—šΟk ˜ Kšœžœ˜Kšœ žœ˜#—K˜KšΡbln Πlnœž ˜Kšžœ ˜Kšœž˜˜Kšžœ˜K˜Icode3š ΟnœžœžœžœΟc˜0š‘œžœžœžœ˜&K™2K™—Kš‘œžœžœžœ˜%Lš‘œžœžœžœ˜-Lš‘ œžœžœžœ˜"Lš ‘ œžœžœžœžœ˜'Lš‘ œžœžœžœ˜"š‘ œžœžœžœ˜!Kšœ`™`—š ‘œžœžœžœžœ˜;Kšœ`™`K™—š‘œžœžœžœ˜5Kšœ@™@—Lš‘œžœžœžœ˜Lš‘ œžœžœžœ˜!Lš‘œžœžœžœžœ žœžœžœžœžœžœ˜dLš‘ œžœžœžœžœ žœžœžœžœžœ žœžœ˜oLš‘œžœžœžœžœ’œžœ˜?Lš‘ œžœžœžœ˜ Lš ‘ œžœžœžœžœ˜1Lš‘œžœžœžœžœžœžœžœžœžœžœžœžœ˜hLš‘œžœžœ žœžœžœžœžœžœ’˜eLšžœžœžœ žœžœžœžœžœ’˜tLš ‘ œžœžœžœ’˜3Lš ‘ œžœžœžœ’˜6Lš ‘œžœžœžœ’˜.Lš‘ œžœžœžœ˜!Lš ‘ œžœžœžœžœ˜'Lš ‘œžœžœ žœžœ˜7K˜—Kšžœ˜—…—P &