fix 'vmmc info'
This commit is contained in:
parent
182e2ae10c
commit
efc043cd5c
|
@ -625,7 +625,7 @@ module Vm = struct
|
||||||
decode_int cs''' >>= fun pid ->
|
decode_int cs''' >>= fun pid ->
|
||||||
cs_shift cs''' 8 >>= fun cs'''' ->
|
cs_shift cs''' 8 >>= fun cs'''' ->
|
||||||
decode_strings cs'''' >>= fun (taps, l'') ->
|
decode_strings cs'''' >>= fun (taps, l'') ->
|
||||||
Ok ((id, memory, cmd, pid, taps), l + 8 + l' + l'')
|
Ok ((id, memory, cmd, pid, taps), l + 8 + l' + 8 + l'')
|
||||||
|
|
||||||
let decode_vms buf = decode_list decode_vm buf
|
let decode_vms buf = decode_list decode_vm buf
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue