2021-04-15 13:40:31 +00:00
|
|
|
# Nimbus
|
|
|
|
# Copyright (c) 2018 Status Research & Development GmbH
|
|
|
|
# Licensed under either of
|
|
|
|
# * Apache License, version 2.0, ([LICENSE-APACHE](LICENSE-APACHE) or
|
|
|
|
# http://www.apache.org/licenses/LICENSE-2.0)
|
|
|
|
# * MIT license ([LICENSE-MIT](LICENSE-MIT) or
|
|
|
|
# http://opensource.org/licenses/MIT)
|
|
|
|
# at your option. This file may not be copied, modified, or distributed except
|
|
|
|
# according to those terms.
|
|
|
|
|
|
|
|
## EVM Opcode Handlers: Swap Operations
|
|
|
|
## ====================================
|
|
|
|
##
|
|
|
|
|
|
|
|
import
|
2021-04-21 17:04:54 +00:00
|
|
|
../../stack,
|
|
|
|
../op_codes,
|
2021-04-15 13:40:31 +00:00
|
|
|
./oph_defs,
|
2021-04-23 10:47:58 +00:00
|
|
|
./oph_gen_handlers,
|
2021-04-15 13:40:31 +00:00
|
|
|
sequtils,
|
|
|
|
strformat
|
|
|
|
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
# Private, names & settings
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
proc fnName(n: int): string {.compileTime.} =
|
|
|
|
&"swap{n}Op"
|
|
|
|
|
|
|
|
proc opName(n: int): string {.compileTime.} =
|
|
|
|
&"Swap{n}"
|
|
|
|
|
|
|
|
proc fnInfo(n: int): string {.compileTime.} =
|
|
|
|
var blurb = case n+1
|
|
|
|
of 1: "first"
|
|
|
|
of 2: "second"
|
|
|
|
of 3: "third"
|
|
|
|
else: &"{n+1}th"
|
|
|
|
&"Exchange first and {blurb} stack items"
|
|
|
|
|
|
|
|
|
2021-04-20 12:07:01 +00:00
|
|
|
proc swapImpl(k: var Vm2Ctx; n: int) =
|
2021-04-15 13:40:31 +00:00
|
|
|
k.cpt.stack.swap(n)
|
|
|
|
|
|
|
|
const
|
|
|
|
inxRange = toSeq(1 .. 16)
|
|
|
|
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
# Private, op handlers implementation
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
genOphHandlers fnName, fnInfo, inxRange, swapImpl
|
|
|
|
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
# Public, op exec table entries
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
genOphList fnName, fnInfo, inxRange, "vm2OpExecSwap", opName
|
|
|
|
|
|
|
|
# ------------------------------------------------------------------------------
|
|
|
|
# End
|
|
|
|
# ------------------------------------------------------------------------------
|