xmltree.<> macro works again
This commit is contained in:
parent
d828b0b96e
commit
f0a70c7aae
3 changed files with 12 additions and 10 deletions
|
|
@ -173,12 +173,14 @@ proc asgnComplex(x: var TFullReg, y: TFullReg) =
|
|||
of rkRegisterAddr: x.regAddr = y.regAddr
|
||||
of rkNodeAddr: x.nodeAddr = y.nodeAddr
|
||||
|
||||
proc putIntoNode(n: PNode; x: TFullReg) =
|
||||
proc putIntoNode(n: var PNode; x: TFullReg) =
|
||||
case x.kind
|
||||
of rkNone: discard
|
||||
of rkInt: n.intVal = x.intVal
|
||||
of rkFloat: n.floatVal = x.floatVal
|
||||
of rkNode: n[] = x.node[]
|
||||
of rkNode:
|
||||
if nfIsRef in x.node.flags: n = x.node
|
||||
else: n[] = x.node[]
|
||||
of rkRegisterAddr: putIntoNode(n, x.regAddr[])
|
||||
of rkNodeAddr: n[] = x.nodeAddr[][]
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue