diff options
Diffstat (limited to 'reg.ml')
-rw-r--r-- | reg.ml | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -7,10 +7,10 @@ open Common | |||
7 | 7 | ||
8 | let reg_idx (Reg(idx, _)) = idx | 8 | let reg_idx (Reg(idx, _)) = idx |
9 | let reg_val (Reg(_, value)) = value | 9 | let reg_val (Reg(_, value)) = value |
10 | let reg_compar reg1 reg2 = (reg_val reg1) - (reg_val reg2) | 10 | let reg_compar l r = (reg_val l) - (reg_val r) |
11 | let reg_string (Reg (index, value)) = "(" ^ (string_of_int index) ^ "," ^ (string_of_int value) ^ ")" | ||
11 | 12 | ||
12 | let regs_get reglist idx = | 13 | let regs_get reglist index = List.find (fun (Reg(idx, _)) -> idx = index) reglist |> reg_val |
13 | List.find (fun (Reg(x,v)) -> x = idx) reglist |> reg_val | 14 | let regs_set reglist index value = Reg(index, value) :: List.filter (fun (Reg(idx, _)) -> idx != index) reglist |
14 | 15 | let regs_sort = List.sort (fun (Reg(l, _)) (Reg(r, _)) -> compare l r) | |
15 | let regs_set reglist index value = | 16 | let regs_string reglist = regs_sort reglist |> List.map (reg_string) |> String.concat "," |
16 | Reg(index, value) :: List.filter (fun (Reg(x, v)) -> x != index) reglist | ||