Add code to create fresh cache.

2019-05-28 19:01:51 -07:00 · 2019-05-28 19:01:51 -07:00 · 559821f54a
parent ddfd65b099
commit 559821f54a
1 changed files with 8 additions and 0 deletions
--- a/src/CacheSim/Cache.elm
+++ b/src/CacheSim/Cache.elm
@ -128,3 +128,11 @@ accessCache wa c =
            Just (Ok ar) -> Ok <| transformAccess ar
            Just (Err e) -> Err <| "Error accessing cache set: " ++ e
            Nothing -> Err "Unable to find correct set in cache."
+
+freshCache : CacheModel -> Cache
+freshCache cm =
+    let
+        set = List.repeat cm.setSize Empty
+        sets = List.repeat cm.setCount set
+    in
+        (cm, sets)