Created by: Serlet, April 12, 1985 3:17:45 pm PST

Last Edited by: Serlet, April 15, 1985 6:00:55 pm PST

Last Edited by: Barth, April 15, 1985 5:23:44 pm PST

Run Lister

WrapDragoman

Run StandardCache

Run RealCache

← &handle ← WrapDragoman.Start[instr: 1, data: 1] -- number of caches

← &rc ← RealCache.NewCache[lines: 512, quadsPerLine: 8, lru: FALSE] -- real cache

← WrapDragoman.SetInstructionCache[handle: &handle, number: 0, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc]] -- instruction cache

← WrapDragoman.SetDataCache[handle: &handle, number: 0, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc]] -- data 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 Foo.mesa"]

← &rc.print[&rc, &handle.tsOut, "Real cache"]