From 3774776e7bc507091c0793c14cfd8fb45484e054 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Wed, 11 Nov 1998 00:15:55 +0000
Subject: fixed bug in initialization order, caught by Purify

---
 generic/tclCompile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 46ac1d5..a35b310 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCompile.c,v 1.1.2.4 1998/10/06 00:35:42 stanton Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.1.2.5 1998/11/11 00:15:55 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -1798,10 +1798,10 @@ TclFindCompiledLocal(name, nameBytes, create, flags, procPtr)
 	localPtr->nextPtr = NULL;
 	localPtr->nameLength = nameBytes;
 	localPtr->frameIndex = localVar;
+	localPtr->flags = flags;
 	if (name == NULL) {
 	    localPtr->flags |= VAR_TEMPORARY;
 	}
-	localPtr->flags = flags;
 	localPtr->defValuePtr = NULL;
 	localPtr->resolveInfo = NULL;
 
-- 
cgit v0.12