BcdLister WrapDragoman Run AssociativeCacheImpl Run RealCache _ &handle _ WrapDragoman.Start[instr: 1, data: 1] -- number of caches _ &rc _ AssociativeCache.NewCache[lines: 512, quadsPerLine: 8, lru: FALSE] -- real cache _ WrapDragoman.SetInstructionCache[handle: &handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc]] -- instruction cache _ WrapDragoman.SetDataCache[handle: &handle, number: 0, cache: AssociativeCache.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"] Compile _ WrapDragoman.MarkGFI[&handle, "Compiler"] _ WrapDragoman.Run[&handle, "Compile"] _ &rc.print[&rc, &handle.tsOut, "Real cache"] tShortTwoTierExample.cm 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 16, 1985 3:56:35 pm PST Last Edited by: Sindhu, April 20, 1985 0:04:08 am PST -- Starting WrapDragoman -- Initializing the thing -- Specifying the caches -- Marking interesting GFI's -- Running the simulation Ę˜™J™1J™5J™4—J™5J™™Jšœ ˜ Jšœ ˜ Jšœ˜Jšœ ˜ —™JšœĎbœœĎc˜E—™Jšœœœ#Ďkœž ˜XJš œ Ďnœ$œœ"Ÿœž˜­Jš œ   œ$œœ"Ÿœž ˜Ÿ—™Jšœœi˜Jšœ„˜„Jšœ~˜~Jšœg˜gJšœ˜Jšœ+˜+—™Jšœœ˜&Jšœ œ!˜-——…—˘