Verified Commit 3a39d70a authored by Benjamin Canou's avatar Benjamin Canou Committed by Marco Stronati

Alpha/Michelson: double gas limit, except for I/Os that stay unchanged

This change doubles the maximum amount of gas for the block and for
each transaction. The cost of I/Os is updated accordingly, so that the
number of computation steps is increased, while the number of possible
I/Os in a block stays unchanged.
parent 01b5bb08
......@@ -210,7 +210,7 @@ assert_fails $client run script $contract_op_dir/packunpack.tz on storage Unit a
'(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f0200000008000300070009000102000000060001000200030004)'
# Get current steps to quota
assert_storage $contract_op_dir/steps_to_quota.tz 111 Unit 399813
assert_storage $contract_op_dir/steps_to_quota.tz 111 Unit 799813
# Get the current balance of the contract
assert_storage $contract_op_dir/balance.tz '111' Unit '4000000000000'
......
......@@ -106,8 +106,8 @@ let default = {
time_between_blocks =
List.map Period_repr.of_seconds_exn [ 60L ; 75L ] ;
endorsers_per_block = 32 ;
hard_gas_limit_per_operation = Z.of_int 400_000 ;
hard_gas_limit_per_block = Z.of_int 4_000_000 ;
hard_gas_limit_per_operation = Z.of_int 800_000 ;
hard_gas_limit_per_block = Z.of_int 8_000_000 ;
proof_of_work_threshold =
Int64.(sub (shift_left 1L 46) 1L) ;
tokens_per_roll =
......
......@@ -85,8 +85,8 @@ type error += Operation_quota_exceeded (* `Temporary *)
let allocation_weight = Z.of_int 2
let step_weight = Z.of_int 1
let read_base_weight = Z.of_int 50
let write_base_weight = Z.of_int 80
let read_base_weight = Z.of_int 100
let write_base_weight = Z.of_int 160
let byte_read_weight = Z.of_int 10
let byte_written_weight = Z.of_int 15
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment