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