More gas for typechecking etc
This commit is contained in:
parent
909770fd10
commit
acf3f9284e
@ -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 ;
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user