64 lines
1.9 KiB
Nim
64 lines
1.9 KiB
Nim
# 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: Duplication Operations
|
|
## ===========================================
|
|
##
|
|
|
|
import
|
|
../../stack,
|
|
../op_codes,
|
|
./oph_defs,
|
|
./oph_gen_handlers,
|
|
sequtils,
|
|
stint,
|
|
strformat
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# Private helpers
|
|
# ------------------------------------------------------------------------------
|
|
|
|
proc fnName(n: int): string {.compileTime.} =
|
|
&"dup{n}Op"
|
|
|
|
proc opName(n: int): string {.compileTime.} =
|
|
&"Dup{n}"
|
|
|
|
proc fnInfo(n: int): string {.compileTime.} =
|
|
var blurb = case n
|
|
of 1: "first"
|
|
of 2: "second"
|
|
of 3: "third"
|
|
else: &"{n}th"
|
|
&"Duplicate {blurb} item in the stack"
|
|
|
|
|
|
proc dupImpl(k: var Vm2Ctx; n: int) =
|
|
k.cpt.stack.dup(n)
|
|
|
|
const
|
|
inxRange = toSeq(1 .. 16)
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# Private, op handlers implementation
|
|
# ------------------------------------------------------------------------------
|
|
|
|
genOphHandlers fnName, fnInfo, inxRange, dupImpl
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# Public, op exec table entries
|
|
# ------------------------------------------------------------------------------
|
|
|
|
genOphList fnName, fnInfo, inxRange, "vm2OpExecDup", opName
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# End
|
|
# ------------------------------------------------------------------------------
|