Convert byte address to words.
This commit is contained in:
parent
5c2c13d83e
commit
cc12636bcd
|
@ -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 =
|
||||||
|
|
Loading…
Reference in New Issue
Block a user