balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Detect gas exhaustion while typechecking

Browse Source
This commit is contained in:
Tom Jack 2020-03-05 10:30:44 -06:00
parent fe84d21208
commit d10b95357f
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/compile/of_michelson.ml
View File

@ -23,6 +23,9 @@ module Errors = struct
let code = Format.asprintf "%a" Michelson.pp c in let code = Format.asprintf "%a" Michelson.pp c in
"bad contract type\n"^code in "bad contract type\n"^code in
error title_type_check_msg message error title_type_check_msg message
let ran_out_of_gas () =
let message () = "Ran out of gas!" in
error title_type_check_msg message
let unknown () = let unknown () =
let message () = let message () =
"unknown error" in "unknown error" in
@ -47,6 +50,7 @@ let build_contract : Compiler.compiled_expression -> Michelson.michelson result
| Err_parameter -> fail @@ Errors.bad_parameter contract () | Err_parameter -> fail @@ Errors.bad_parameter contract ()
| Err_storage -> fail @@ Errors.bad_storage contract () | Err_storage -> fail @@ Errors.bad_storage contract ()
| Err_contract -> fail @@ Errors.bad_contract contract () | Err_contract -> fail @@ Errors.bad_contract contract ()
| Err_gas -> fail @@ Errors.ran_out_of_gas ()
| Err_unknown -> fail @@ Errors.unknown () | Err_unknown -> fail @@ Errors.unknown ()
type check_type = Check_parameter | Check_storage type check_type = Check_parameter | Check_storage

2
vendors/ligo-utils/proto-alpha-utils/x_memory_proto_alpha.ml vendored
View File

@ -1107,6 +1107,7 @@ let unparse_ty_michelson ty =
type typecheck_res = type typecheck_res =
| Type_checked | Type_checked
| Err_parameter | Err_storage | Err_contract | Err_parameter | Err_storage | Err_contract
| Err_gas
| Err_unknown | Err_unknown
let typecheck_contract contract = let typecheck_contract contract =
@ -1116,6 +1117,7 @@ let typecheck_contract contract =
| 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
| Error (Script_tc_errors.Ill_formed_type (Some "storage", _code, _)::_) -> return Err_storage | Error (Script_tc_errors.Ill_formed_type (Some "storage", _code, _)::_) -> return Err_storage
| Error (Script_tc_errors.Ill_typed_contract _ :: Script_tc_errors.Cannot_serialize_error :: []) -> return @@ Err_gas
| Error (Script_tc_errors.Ill_typed_contract (_code, _)::_) -> return @@ Err_contract | Error (Script_tc_errors.Ill_typed_contract (_code, _)::_) -> return @@ Err_contract
| Error _ -> return Err_unknown | Error _ -> return Err_unknown