Convert byte address to words.

This commit is contained in:
Danila Fedorin 2019-05-30 18:32:25 -07:00
parent 5c2c13d83e
commit cc12636bcd

View File

@ -78,7 +78,7 @@ viewRawCacheModel level rcm =
deleteButton = dangerButton "Delete" (DeleteRawModel level) deleteButton = dangerButton "Delete" (DeleteRawModel level)
params = div [] params = div []
[ labeledInput "Block size" rcm.blockSize (wrapUpdate updateBlockSize) [ labeledInput "Block size (words)" rcm.blockSize (wrapUpdate updateBlockSize)
, labeledInput "Set count" rcm.setCount (wrapUpdate updateSetCount) , labeledInput "Set count" rcm.setCount (wrapUpdate updateSetCount)
, labeledInput "Set size" rcm.setSize (wrapUpdate updateSetSize) , labeledInput "Set size" rcm.setSize (wrapUpdate updateSetSize)
] ]
@ -204,14 +204,15 @@ viewAccessInput : Model -> Html Msg
viewAccessInput m = viewAccessInput m =
let let
parser = parser =
Parser.sequence Parser.map (List.map (\i -> i // 4)) <|
{ start = "" Parser.sequence
, end = "" { start = ""
, separator = "," , end = ""
, spaces = Parser.spaces , separator = ","
, item = Parser.int , spaces = Parser.spaces
, trailing = Parser.Optional , item = Parser.int
} , trailing = Parser.Optional
}
parseErrorToString _ = "Unable to parse input. Please enter a sequence of numbers separated by commas." parseErrorToString _ = "Unable to parse input. Please enter a sequence of numbers separated by commas."
parseResult = Parser.run (parser |. Parser.end) m.accessInput parseResult = Parser.run (parser |. Parser.end) m.accessInput
checkedResult = checkedResult =