WrapDragoman; Run StandardCache _ &handle _ WrapDragoman.Start[instr: 2, data: 1] -- number of caches _ WrapDragoman.SetInstructionCache[handle: &handle, number: 0, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 2, lru: FALSE]] -- first instruction cache _ WrapDragoman.SetInstructionCache[handle: &handle, number: 1, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 2, lru: FALSE]] -- second instruction cache _ WrapDragoman.SetDataCache[handle: &handle, number: 0, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 2, lru: FALSE]] -- the only data cache _ WrapDragoman.MarkGFI[&handle, "CommandToolUtilitiesImpl", "FileViewerOpsImpl", "FileStreamImpl", "FileNamesImpl", "FileImpl"] _ WrapDragoman.MarkGFI[&handle, "compiler"] _ WrapDragoman.Run[&handle, "compile Foo.mesa"] jExample.cm Created by: Serlet, April 12, 1985 3:17:45 pm PST Last Edited by: Serlet, April 15, 1985 10:32:45 am PST -- Starting WrapDragoman -- Initializing the thing -- Specifying the caches -- Marking interesting GFI's _ 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"] -- Running the simulation ÊÆ˜™ J™1J™6—J™™Jšœ˜—™JšœÏbœœÏc˜E—™Jšœ Ïnœ\Ïkœž˜ Jšœ Ÿœ\ œž˜¡Jšœ Ÿœ\ œž˜•—™Jšœœi˜Jšœ„™„Jšœ~™~Jšœg™gJšœ+˜+—™Jšœœ˜/——…—L