fix cache using wrong LRU value.
This commit is contained in:
parent
1dd4d1af70
commit
7cababbe67
|
@ -67,7 +67,7 @@ findEmptySlot =
|
||||||
findLruSlot : CacheSet -> Maybe Int
|
findLruSlot : CacheSet -> Maybe Int
|
||||||
findLruSlot cs =
|
findLruSlot cs =
|
||||||
let
|
let
|
||||||
minLru = List.minimum <| List.map cacheSlotLru cs
|
minLru = List.maximum <| List.map cacheSlotLru cs
|
||||||
isMin s = Just (cacheSlotLru s) == minLru
|
isMin s = Just (cacheSlotLru s) == minLru
|
||||||
in
|
in
|
||||||
intMapFind isMin cs
|
intMapFind isMin cs
|
||||||
|
|
Loading…
Reference in New Issue
Block a user