From d560e84fcc1171164073a31797649c26a54b03e1 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Sat, 20 Aug 2011 00:24:02 +0200
Subject: locks now in their own core module

---
 compiler/ccgstmts.nim | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'compiler')

diff --git a/compiler/ccgstmts.nim b/compiler/ccgstmts.nim
index df843bc38..c12b93b4d 100755
--- a/compiler/ccgstmts.nim
+++ b/compiler/ccgstmts.nim
@@ -30,18 +30,14 @@ proc genLineDir(p: BProc, t: PNode) =
         [toRope(line), makeCString(toFilename(t.info).extractFilename)])
 
 proc genVarTuple(p: BProc, n: PNode) = 
-  var 
-    L: int
-    v: PSym
-    tup, field: TLoc
-    t: PType
+  var tup, field: TLoc
   if n.kind != nkVarTuple: InternalError(n.info, "genVarTuple")
-  L = sonsLen(n)
+  var L = sonsLen(n)
   genLineDir(p, n)
   initLocExpr(p, n.sons[L - 1], tup)
-  t = tup.t
+  var t = tup.t
   for i in countup(0, L - 3): 
-    v = n.sons[i].sym
+    var v = n.sons[i].sym
     if sfGlobal in v.flags: 
       assignGlobalVar(p, v)
       genObjectInit(p, cpsInit, v.typ, v.loc, true)
-- 
cgit 1.4.1-2-gfad0