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

Michelson: unplug internal operation parsing

Browse Source
This commit is contained in:
Benjamin Canou 2018-06-28 16:51:13 +02:00
parent 4b9d2114b2
commit a8d2998170
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/proto_alpha/lib_protocol/src/script_ir_translator.ml
View File

@ -1383,14 +1383,10 @@ let rec parse_data
| Signature_t _, expr ->
traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr)))
(* Operations *)
| Operation_t _, Bytes (_, bytes) ->
Lwt.return (Gas.consume ctxt (Typecheck_costs.operation bytes)) >>=? fun ctxt ->
begin match Data_encoding.Binary.of_bytes Operation.internal_operation_encoding bytes with
| Some op -> return (op, ctxt)
| None -> error () >>=? fail
end
| Operation_t _, expr ->
traced (fail (Invalid_kind (location expr, [ Bytes_kind ], kind expr)))
| Operation_t _, _ ->
(* operations cannot appear in parameters or storage,
the protocol should never parse the bytes of an operation *)
assert false
(* Addresses *)
| Address_t _, Bytes (_, bytes) (* As unparsed with [O[ptimized]. *) ->
Lwt.return (Gas.consume ctxt Typecheck_costs.contract) >>=? fun ctxt ->