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
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.