Michelson: removes NOP instruction from surface syntax
This commit is contained in:
parent
b52d4a78d9
commit
b320d43259
@ -133,7 +133,6 @@ with the following JSON script description.
|
||||
| "EXEC"
|
||||
| { "DIP": [ [ /* instruction */ ... ] ] }
|
||||
| "FAIL"
|
||||
| "NOP"
|
||||
| "CONCAT"
|
||||
| "ADD"
|
||||
| "SUB"
|
||||
|
@ -1810,7 +1810,6 @@ X - Full grammar
|
||||
| EXEC
|
||||
| DIP { <instruction> ... }
|
||||
| FAIL
|
||||
| NOP
|
||||
| CONCAT
|
||||
| ADD
|
||||
| SUB
|
||||
|
@ -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
|
||||
|
@ -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" ;
|
||||
|
Loading…
Reference in New Issue
Block a user