From 9dda24e475bbdb3e33ae22d745bfaca552e18465 Mon Sep 17 00:00:00 2001
From: "rumpf_a@web.de" <>
Date: Sun, 20 Dec 2009 23:54:19 +0100
Subject: improved expandimportc tool

---
 rod/ccgexprs.nim | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'rod/ccgexprs.nim')

diff --git a/rod/ccgexprs.nim b/rod/ccgexprs.nim
index 62f8a267b..aa6ec2ed0 100644
--- a/rod/ccgexprs.nim
+++ b/rod/ccgexprs.nim
@@ -1774,13 +1774,11 @@ proc genConstSimpleList(p: BProc, n: PNode): PRope =
   app(result, '}' & tnl)
 
 proc genConstExpr(p: BProc, n: PNode): PRope = 
-  var 
-    cs: TBitSet
-    d: TLoc
   case n.Kind
   of nkHiddenStdConv, nkHiddenSubConv: 
     result = genConstExpr(p, n.sons[1])
   of nkCurly: 
+    var cs: TBitSet
     toBitSet(n, cs)
     result = genRawSetData(cs, int(getSize(n.typ)))
   of nkBracket, nkPar: 
@@ -1788,5 +1786,6 @@ proc genConstExpr(p: BProc, n: PNode): PRope =
     result = genConstSimpleList(p, n)
   else: 
     #  result := genLiteral(p, n)
+    var d: TLoc
     initLocExpr(p, n, d)
     result = rdLoc(d)
-- 
cgit 1.4.1-2-gfad0