From 1af2885d72bcf9cc666b17fa83667a0557a675a6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Fri, 22 Sep 2017 17:35:12 +0200 Subject: [PATCH] Proto: fix `level_in_cycle`. It was missing the initial 'hop' by `Storage.first_level`. --- src/proto/alpha/level_storage.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/proto/alpha/level_storage.ml b/src/proto/alpha/level_storage.ml index 5c2e9015b..a3d476093 100644 --- a/src/proto/alpha/level_storage.ml +++ b/src/proto/alpha/level_storage.ml @@ -41,9 +41,14 @@ let previous ctxt = let first_level_in_cycle ctxt c = let constants = Storage.constants ctxt in + let first_level = Storage.first_level ctxt in from_raw ctxt (Raw_level_repr.of_int32_exn - (Int32.mul constants.Constants_repr.cycle_length (Cycle_repr.to_int32 c))) + (Int32.add + (Raw_level_repr.to_int32 first_level) + (Int32.mul + constants.Constants_repr.cycle_length + (Cycle_repr.to_int32 c)))) let last_level_in_cycle ctxt c = match pred ctxt (first_level_in_cycle ctxt (Cycle_repr.succ c)) with