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

Proto: show Michleson error traces in correct order

Browse Source
This commit is contained in:
Alain Mebsout 2018-07-10 13:43:25 +02:00 committed by Benjamin Canou
parent e52455f00a
commit da986e27ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_protocol/src/script_interpreter.ml
View File

@ -187,7 +187,7 @@ let rec interp
log := (descr.loc, Gas.level ctxt, stack) :: !log ; log := (descr.loc, Gas.level ctxt, stack) :: !log ;
return (ret, ctxt) in return (ret, ctxt) in
let get_log (log : execution_trace ref option) = let get_log (log : execution_trace ref option) =
Option.map ~f:(!) log in Option.map ~f:(fun l -> List.rev !l) log in
let consume_gas_terop : type ret arg1 arg2 arg3 rest. let consume_gas_terop : type ret arg1 arg2 arg3 rest.
(_ * (_ * (_ * rest)), ret * rest) descr -> (_ * (_ * (_ * rest)), ret * rest) descr ->
((arg1 -> arg2 -> arg3 -> ret) * arg1 * arg2 * arg3) -> ((arg1 -> arg2 -> arg3 -> ret) * arg1 * arg2 * arg3) ->