balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

State: removed old linear predecessor

Browse Source
This commit is contained in:
Marco Stronati 2018-02-03 13:14:30 +01:00 committed by Benjamin Canou
parent f62ce16e5c
commit 0890034575
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/lib_shell/state.ml
View File

@ -133,17 +133,6 @@ let update_chain_store { net_id ; context_index ; chain_state } f =
Lwt.return res Lwt.return res
end end
let rec predecessor (store : Store.Block.store) (b: Block_hash.t) n =
(* TODO optimize *)
if n = 0 then Lwt.return_some b else begin
Store.Block.Contents.read_exn (store, b) >>= fun contents ->
let pred = contents.header.shell.predecessor in
if Block_hash.equal b pred then
Lwt.return_none
else
predecessor store pred (n-1)
end
(** The number of predecessors stored per block. (** The number of predecessors stored per block.
This value chosen to compute efficiently block locators that This value chosen to compute efficiently block locators that
can cover a chain of 2 months, at 1 block/min, which is ~86K can cover a chain of 2 months, at 1 block/min, which is ~86K