small bugfix for eval

This commit is contained in:
Araq
2011-08-19 09:07:23 +02:00
parent 15440ec745
commit ffefb736d9
2 changed files with 28 additions and 1 deletions

View File

@@ -219,7 +219,7 @@ proc getNullValue(typ: PType, info: TLineInfo): PNode =
var t = skipTypes(typ, abstractRange)
result = emptyNode
case t.kind
of tyBool, tyChar, tyInt..tyInt64:
of tyBool, tyEnum, tyChar, tyInt..tyInt64:
result = newNodeIT(nkIntLit, info, t)
of tyFloat..tyFloat128:
result = newNodeIt(nkFloatLit, info, t)

View File

@@ -0,0 +1,27 @@
discard """
output: "action 3 arg"
"""
import tables
proc action1(arg: string) =
echo "action 1 ", arg
proc action2(arg: string) =
echo "action 2 ", arg
proc action3(arg: string) =
echo "action 3 ", arg
proc action4(arg: string) =
echo "action 4 ", arg
const
actionTable = {
"A": action1,
"B": action2,
"C": action3,
"D": action4}.toTable
actionTable["C"]("arg")