More gas for typechecking etc
This commit is contained in:
parent
909770fd10
commit
acf3f9284e
@ -200,7 +200,7 @@ type environment = {
|
|||||||
let init_environment () =
|
let init_environment () =
|
||||||
Context_init.main 10 >>=? fun (tezos_context, accounts, contracts) ->
|
Context_init.main 10 >>=? fun (tezos_context, accounts, contracts) ->
|
||||||
let accounts = List.map fst accounts in
|
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 =
|
let identities =
|
||||||
List.map (fun ((a:Context_init.account), c) -> {
|
List.map (fun ((a:Context_init.account), c) -> {
|
||||||
public_key = a.pk ;
|
public_key = a.pk ;
|
||||||
|
@ -1111,7 +1111,8 @@ type typecheck_res =
|
|||||||
|
|
||||||
let typecheck_contract contract =
|
let typecheck_contract contract =
|
||||||
let contract' = Tezos_micheline.Micheline.strip_locations contract in
|
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
|
match x with
|
||||||
| Ok _res -> return Type_checked
|
| Ok _res -> return Type_checked
|
||||||
| Error (Script_tc_errors.Ill_formed_type (Some "parameter", _code, _)::_) -> return Err_parameter
|
| Error (Script_tc_errors.Ill_formed_type (Some "parameter", _code, _)::_) -> return Err_parameter
|
||||||
|
Loading…
Reference in New Issue
Block a user