From c2c434ade2296b9004fdbffe39454e75bcfe4e4f Mon Sep 17 00:00:00 2001
From: jannick0 <jannick0@users.noreply.github.com>
Date: Wed, 27 Dec 2017 03:38:34 +0100
Subject: [PATCH] parsers/tcl.c: initialize variable

As per #1624.
---
 parsers/tcl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/parsers/tcl.c b/parsers/tcl.c
index 073777c25f..8c0039109c 100644
--- a/parsers/tcl.c
+++ b/parsers/tcl.c
@@ -391,7 +391,7 @@ static void notifyNamespaceImport (tokenInfo *const token)
 static int notifyCommand (tokenInfo *const token, unsigned int parent)
 {
 	subparser *sub;
-	int r;
+	int r = CORK_NIL;
 
 	foreachSubparser (sub, false)
 	{