///commands/compile Foo.mesa Dragoman Run AssociativeCacheImpl Run DirectMapCacheImpl -- Initializing the thing _ &handle _ Dragoman.Start[backingFile: "TwoTierExample.ts", instr: 1, data: 1] -- number of caches _ &mc _ DirectMapCache.NewCache[lines: 300, wordsPerQuad: 4] -- map cache _ &rc _ DirectMapCache.NewCache[lines: 512, wordsPerQuad: 8] -- real cache _ Dragoman.SetInstructionCache[handle: &handle, number: 0, cache: DirectMapCache.NewCache[lines: 4096, quadsPerLine: 1, realCache: &rc, mapCache: &mc]] -- instruction cache _ Dragoman.SetDataCache[handle: &handle, number: 0, cache: DirectMapCache.NewCache[lines: 4096, quadsPerLine: 1, realCache: &rc, mapCache: &mc]] -- data cache _ Dragoman.MarkGFIs[&handle, LIST ["CompilerClientCommandImpl", "CompilerServerCommandImpl", "CompilerSequencer", "Pass3", "Pass1", "Pass3S", "Pass3B", "Code", "Pass2", "ObjectOut", "Driver", "SymbolPackExt", "FSStreamImpl", "FileStreamCreateImpl", "IOCommonImpl", "FileStreamImpl", "FSMainImpl1", "FileParmPack", "FSOpenFileImpl", "FSFileOpsImpl", "FSDirImpl", "FileImpl", "BTreeDelete", "IOPrintImpl", "BTreeWrite", "BTreeVMImpl", "FilePagesImpl", "DiskImpl", "UserProfileImpl", "RopeImpl", "BTreeRead", "IOClassesImpl"]] _ Dragoman.Run[&handle, "///commands/compile Foo.mesa"] _ &rc.print[&rc, &handle.tsOut, "Real cache"] _ &mc.print[&mc, &handle.tsOut, "Map cache"] zTwoTierExample.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:53 pm PST Last Edited by: Sindhu, May 2, 1985 5:59:07 pm PDT Bertrand Serlet August 5, 1985 12:45:04 pm PDT -- Starting Dragoman -- Create the caches -- Marking interesting GFI's -- Running the simulation Ê˜™J™1J™5J™4—™2Icode™.—J™šœ™Jšœ˜Jšœ˜Jšœ˜J˜—šœ˜JšœÏbœœ6Ïc˜c—™Jšœœœž˜IJšœœœž ˜JJšœœ$œœ?ž˜¬Jšœœ$œœ?ž ˜ž—™Jšœœ Ïkœê˜‹J˜—™Jšœœ)˜7Jšœ œ!˜-Jšœ œ!˜,——…—VÐ