<> <> <> <> <> <<>> <<-- Starting WrapDragoman>> BcdLister WrapDragoman Run AssociativeCacheImpl DirectMapCacheImpl Run TerminalIOPackage ChipndalePackage CDCMosPackage CmosSpinifex Run TestSpinifex <<-- Initializing the thing>> _ &handle _ WrapDragoman.Start[backingFile: "SpinifexTest.ts", instr: 1, data: 1] -- number of caches <<-- Specifying the caches>> _ &rc _ AssociativeCache.NewCache[lines: 512, quadsPerLine: 8, lru: FALSE] -- real cache _ &mc _ AssociativeCache.NewCache[lines: 300, quadsPerLine: 4, wordsPerQuad: 1, lru: FALSE] -- real cache _ WrapDragoman.SetInstructionCache[handle: &handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc, mapCache: &mc]] -- instruction cache _ WrapDragoman.SetDataCache[handle: &handle, number: 0, cache: AssociativeCache.NewCache[lines: 50, quadsPerLine: 4, lru: FALSE, realCache: &rc, mapCache: &mc]] -- data cache <<-- Marking interesting GFI's>> _ 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, "PPTreeImpl", "PPPass1T", "PPParser", "RefTextImpl", "BasicTimeImpl", "PPScanner"]>> _ WrapDragoman.MarkGFI[&handle, "SymTabImpl", "ProcessImpl", "CommanderImpl", "InterpreterCommandsImpl"] _ WrapDragoman.MarkGFI[&handle, "BackStopImpl", "InterpreterImpl"] _ WrapDragoman.MarkGFI[&handle, "ProcessPropsImpl", "InterpreterPrivateImpl", "EvaluateImpl", "AMEventsImpl", "TestSpinifex"] _ WrapDragoman.MarkGFI[&handle, "CDCommandOpsImpl", "CDValueImpl", "CDPropertiesImpl", "CDCellsImpl", "CDErrorsImpl"] _ WrapDragoman.MarkGFI[&handle, "CDOrientImpl", "CornerStitchingImpl", "CDObjectProcsImpl", "CDImpl", "CDEnvironmentImpl"] _ WrapDragoman.MarkGFI[&handle, "CDApplicationsImpl", "CMosSpinifexObjConvImpl", "CDPinObjectsImpl", "TerminalIOImpl"] _ WrapDragoman.MarkGFI[&handle, "SXAccessInternalImpl", "SXImpl", "SXLayersImpl", "SXAccessImpl"] <<-- Running the simulation>> _ WrapDragoman.Run[&handle, "_ TestSpinifex.Test[]"] _ &rc.print[&rc, &handle.tsOut, "Real cache"] _ &mc.print[&mc, &handle.tsOut, "Map cache"] <<-- Backing the file>> _ WrapDragoman.End[&handle]