More gas for typechecking etc

This commit is contained in:
Tom Jack 2020-03-05 15:38:08 +00:00 committed by Rémi Lesenechal
parent 909770fd10
commit acf3f9284e
2 changed files with 3 additions and 2 deletions

View File

@ -200,7 +200,7 @@ type environment = {
let init_environment () =
Context_init.main 10 >>=? fun (tezos_context, accounts, contracts) ->
let accounts = List.map fst accounts in
let tezos_context = Alpha_context.Gas.set_limit tezos_context @@ Z.of_int 350000 in
let tezos_context = Alpha_context.Gas.set_limit tezos_context @@ Z.of_int 800000 in
let identities =
List.map (fun ((a:Context_init.account), c) -> {
public_key = a.pk ;

View File

@ -1111,7 +1111,8 @@ type typecheck_res =
let typecheck_contract contract =
let contract' = Tezos_micheline.Micheline.strip_locations contract in
Script_ir_translator.typecheck_code dummy_environment.tezos_context contract' >>= fun x ->
let ctxt = Raw_context.set_gas_unlimited dummy_environment.tezos_context in
Script_ir_translator.typecheck_code ctxt contract' >>= fun x ->
match x with
| Ok _res -> return Type_checked
| Error (Script_tc_errors.Ill_formed_type (Some "parameter", _code, _)::_) -> return Err_parameter