Alpha: add check_size when parsing Z values

2018-06-13 16:46:32 +02:00 · 2018-06-13 16:46:32 +02:00 · e1702e0db2
commit e1702e0db2
parent 0d136b0bd7
1 changed files with 3 additions and 3 deletions
--- a/src/proto_alpha/lib_protocol/src/operation_repr.ml
+++ b/src/proto_alpha/lib_protocol/src/operation_repr.ml
@ -472,9 +472,9 @@ module Encoding = struct
    (obj5
       (req "source" Contract_repr.encoding)
       (req "fee" Tez_repr.encoding)
-       (req "counter" z)
-       (req "gas_limit" z)
-       (req "storage_limit" z))
+       (req "counter" (check_size 10 z))
+       (req "gas_limit" (check_size 10 z))
+       (req "storage_limit" (check_size 10 z)))

  let extract
      (type kind)