fix 'vmmc info'

This commit is contained in:
Hannes Mehnert 2018-10-13 01:25:18 +02:00
parent 182e2ae10c
commit efc043cd5c

View file

@ -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