From e1702e0db266292f2cbf8ef7cd639484c605411b Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Wed, 13 Jun 2018 16:46:32 +0200 Subject: [PATCH] Alpha: add check_size when parsing Z values --- src/proto_alpha/lib_protocol/src/operation_repr.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/proto_alpha/lib_protocol/src/operation_repr.ml b/src/proto_alpha/lib_protocol/src/operation_repr.ml index 22f318a72..5d7ef4274 100644 --- 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)