Alpha: introduce constant max_revelations_per_block

src/proto_alpha/lib_protocol/src/alpha_context.mli

@@ -263,6 +263,7 @@ module Constants : sig
   val block_security_deposit: Tez.t
   val endorsement_security_deposit: Tez.t
   val faucet_credit: Tez.t
+  val max_revelations_per_block: int
 
   val preserved_cycles: context -> int
   val blocks_per_cycle: context -> int32

src/proto_alpha/lib_protocol/src/constants_repr.ml

@@ -44,6 +44,8 @@ let faucet_credit =
 let bootstrap_wealth =
   Tez_repr.(mul_exn one 4_000_000)
 
+let max_revelations_per_block = 32
+
 type constants = {
   preserved_cycles: int ;
   blocks_per_cycle: int32 ;

src/proto_alpha/lib_protocol/src/main.ml

@@ -20,7 +20,8 @@ let max_block_length =
 let validation_passes =
   Updater.[ { max_size = 32 * 1024 ; max_op = Some 32 } ; (* 32kB FIXME *)
             { max_size = 32 * 1024 ; max_op = None } ; (* 32kB FIXME *)
-            { max_size = 32 * 1024 ; max_op = Some 32 } ; (* 32kB FIXME *)
+            { max_size = 32 * 1024 ; (* 32kB FIXME *)
+              max_op = Some Alpha_context.Constants.max_revelations_per_block } ;
             { max_size = 512 * 1024 ; max_op = None } ] (* 512kB *)
 
 let rpc_services = Services_registration.get_rpc_services ()