Add cache range view

2019-06-01 14:43:40 -07:00 · 2019-06-01 14:43:40 -07:00 · f2c96180e4
commit f2c96180e4
parent d5aed3cdeb
1 changed files with 4 additions and 1 deletions
--- a/src/CacheSim/View.elm
+++ b/src/CacheSim/View.elm
@ -137,7 +137,10 @@ viewCache level (cm, cs) =
                slotHtml s =
                    case s of
                        Empty -> td [] [ text "" ]
-                        Used l a -> td [] [ text <| String.fromInt a ]
+                        Used l a -> td [] [ text <|
+                            (String.fromInt (a * cm.blockSize * 4)) ++
+                                "-" ++
+                                (String.fromInt ((a + 1) * cm.blockSize * 4 - 1)) ]
            in
                List.map slotHtml set
        cacheRow = List.concat <| List.map setRow cs