<<>> <> <> <> DIRECTORY CirioNubAccess USING[FileEntry, Handle, PCInfo], CirioTypes USING[CompilerContext, Node], IO USING[STREAM], Rope USING[ROPE], SymbolFinding USING[FoundSymbols, SymbolInfo], SystemInterface USING[CirioFile]; May4Exp: CEDAR DEFINITIONS = BEGIN ProcedureFrameInfo: TYPE = REF ProcedureFrameInfoBody; ProcedureFrameInfoBody: TYPE = RECORD[ <> dotOInfo: CirioNubAccess.FileEntry, <> absPC: CARD, relativePC: CARD, -- absPC-dotOInfo.textReloc framePointer: CARD, stackPointer: CARD, pcInfo: CirioNubAccess.PCInfo]; <> <> <> <<>> <> <> <> <> <<>> <> <<>> <> <> <<>> <> <<>> <> <<>> <> <<>> <> ShowReport: SIGNAL[msgText: Rope.ROPE]; <> <<>> <> <> <> <> <> <> <<];>> <<>> <> <<>> <<>> <> <> <> <> <> <<>> <> <> <> <> <> <<>> <> <> CFileInfo: TYPE = REF CFileInfoBody; CFileInfoBody: TYPE; CreateCFileInfo: PROC[cFile: SystemInterface.CirioFile] RETURNS[CFileInfo]; LookupMesaSourcePos: PROC[info: CFileInfo, pos: CARD] RETURNS[cLineNum: CARD]; LookupCLineNum: PROC[info: CFileInfo, cLineNum: CARD] RETURNS[pos: CARD]; GetCFileVersionStamp: PROC[info: CFileInfo] RETURNS[Rope.ROPE]; END..