Michelson: removes NOP instruction from surface syntax

This commit is contained in:
Milo Davis 2017-07-20 15:51:07 +02:00 committed by Benjamin Canou
parent b52d4a78d9
commit b320d43259
4 changed files with 3 additions and 8 deletions

View File

@ -133,7 +133,6 @@ with the following JSON script description.
| "EXEC"
| { "DIP": [ [ /* instruction */ ... ] ] }
| "FAIL"
| "NOP"
| "CONCAT"
| "ADD"
| "SUB"

View File

@ -1810,7 +1810,6 @@ X - Full grammar
| EXEC
| DIP { <instruction> ... }
| FAIL
| NOP
| CONCAT
| ADD
| SUB

View File

@ -333,7 +333,7 @@ let rec interp
| Fail, _ ->
fail (Reject loc)
| Nop, stack ->
logged_return (stack, qta - 1, ctxt)
logged_return (stack, qta, ctxt)
(* comparison *)
| Compare Bool_key, Item (a, Item (b, rest)) ->
let cmpres = Compare.Bool.compare a b in

View File

@ -1041,9 +1041,6 @@ and parse_instr
bef ->
let descr aft = { loc ; instr = Fail ; bef ; aft } in
return (Failed { descr })
| Prim (loc, "NOP", []),
stack ->
return (typed loc (Nop, stack))
(* timestamp operations *)
| Prim (loc, "ADD", []),
Item_t (Timestamp_t, Item_t (Int_t kind, rest)) ->
@ -1290,7 +1287,7 @@ and parse_instr
| Prim (loc, ("DROP" | "DUP" | "SWAP" | "SOME" | "UNIT"
| "PAIR" | "CAR" | "CDR" | "CONS"
| "MEM" | "UPDATE" | "MAP" | "REDUCE"
| "GET" | "EXEC" | "FAIL" | "NOP"
| "GET" | "EXEC" | "FAIL"
| "CONCAT" | "ADD" | "SUB"
| "MUL" | "DIV" | "MOD" | "OR" | "AND" | "XOR"
| "NOT" | "CHECKED_ABS" | "CHECKED_NEG"
@ -1362,7 +1359,7 @@ and parse_instr
[ "DROP" ; "DUP" ; "SWAP" ; "SOME" ; "UNIT" ;
"PAIR" ; "CAR" ; "CDR" ; "CONS" ;
"MEM" ; "UPDATE" ; "MAP" ; "REDUCE" ;
"GET" ; "EXEC" ; "FAIL" ; "NOP" ;
"GET" ; "EXEC" ; "FAIL" ;
"CONCAT" ; "ADD" ; "SUB" ;
"MUL" ; "DIV" ; "MOD" ; "OR" ; "AND" ; "XOR" ;
"NOT" ; "CHECKED_ABS" ; "CHECKED_NEG" ;