DIRECTORY CacheModels, Convert, DirectMapCache, Rope, WrapDragoman; SRCCompilerRuns: CEDAR PROGRAM IMPORTS Convert, DirectMapCache, Rope, WrapDragoman SHARES WrapDragoman = BEGIN TwoToTheTwo: PROC[n: INT] RETURNS[INT] = { IF n=0 THEN RETURN[1] ELSE RETURN[2*TwoToTheTwo[n-1]]}; FOR i: INT IN [0..3] DO cache: CacheModels.Cache _ DirectMapCache.NewCache[lines: 1024*TwoToTheTwo[i], quadsPerLine: 1, wordsPerQuad: 1]; handle: WrapDragoman.Handle _ WrapDragoman.Start[backingFile: Rope.Cat["SRCCompilerRuns.", Convert.RopeFromInt[TwoToTheTwo[i]], ".ts"], instr: 1, data: 1]; WrapDragoman.SetInstructionCache[handle: handle, number: 0, cache: cache]; WrapDragoman.SetDataCache[handle: handle, number: 0, cache: cache]; WrapDragoman.MarkGFI[handle, "CommandToolUtilitiesImpl", "FileViewerOpsImpl", "FileStreamImpl", "FileNamesImpl", "FileImpl"]; WrapDragoman.MarkGFI[handle, "IOPrintImpl", "IOCommonImpl", "IOSimpleStreamsImpl", "IOConvertImpl", "ViewerIOImpl", "IOScanImpl"]; WrapDragoman.MarkGFI[handle, "FSLockImpl", "FSFileOpsImpl", "FSReportImpl", "FSOpenFileImpl", "FSStreamImpl", "FSNameImpl"]; WrapDragoman.MarkGFI[handle, "RopeImpl", "RopeImplExt", "ListImpl", "AtomImpl", "ConvertUnsafeImpl"]; WrapDragoman.MarkGFI[handle, "Compiler"]; WrapDragoman.Run[handle, "compile dummy dummyimpl"]; WrapDragoman.End[handle]; ENDLOOP; END. ‚SRCCompilerRuns.mesa Created by Sindhu, April 27, 1985 9:45:39 am PST Last Edited by: Sindhu, May 3, 1985 11:35:00 pm PDT Κ6˜code– "Cedar" stylešœ™K™0—J™3šΟk ˜ Kšœ+˜+Kšœ ˜ —K™šœœœ˜Kšœ,˜3Kšœ˜Kš˜š Οn œœœœœ˜*Kš œœœœœ˜7—K˜šœœœ˜Kšœq˜qKšœ›˜›JšœJ˜JJšœD˜DJšœ}˜}Jšœ‚˜‚Jšœ|˜|Jšœe˜eJšœ)˜)Jšœ4˜4Kšœ˜Kšœ˜—K˜K˜Kšœ˜—K˜—…—>φ