Emit LAMBDA directly from compiler
This commit is contained in:
parent
dfcccff748
commit
97e33a99da
@ -474,7 +474,6 @@ let rec opt_strip_annots (x : michelson) : michelson =
|
|||||||
|
|
||||||
let optimize : michelson -> michelson =
|
let optimize : michelson -> michelson =
|
||||||
fun x ->
|
fun x ->
|
||||||
let x = use_lambda_instr x in
|
|
||||||
let x = flatten_seqs x in
|
let x = flatten_seqs x in
|
||||||
let x = opt_tail_fail x in
|
let x = opt_tail_fail x in
|
||||||
let optimizers = [ peephole @@ peep2 opt_drop2 ;
|
let optimizers = [ peephole @@ peep2 opt_drop2 ;
|
||||||
@ -487,4 +486,5 @@ let optimize : michelson -> michelson =
|
|||||||
let x = iterate_optimizer (sequence_optimizers optimizers) x in
|
let x = iterate_optimizer (sequence_optimizers optimizers) x in
|
||||||
let x = opt_combine_drops x in
|
let x = opt_combine_drops x in
|
||||||
let x = opt_strip_annots x in
|
let x = opt_strip_annots x in
|
||||||
|
let x = use_lambda_instr x in
|
||||||
x
|
x
|
||||||
|
Loading…
Reference in New Issue
Block a user