introduce tyFromExpr; fixes #618

This commit is contained in:
Zahary Karadjov 2014-01-04 12:28:25 +02:00
commit 789ba107cf
13 changed files with 109 additions and 28 deletions

View file

@ -287,6 +287,10 @@ proc replaceTypeVarsTAux(cl: var TReplTypeVars, t: PType): PType =
of tyGenericBody:
internalError(cl.info, "ReplaceTypeVarsT: tyGenericBody" )
result = replaceTypeVarsT(cl, lastSon(t))
of tyFromExpr:
var n = prepareNode(cl, t.n)
n = cl.c.semExpr(cl.c, n, {})
result = n.typ.skipTypes({tyTypeDesc})
of tyInt:
result = skipIntLit(t)
# XXX now there are also float literals