Index: generic/asm/nsfAssemble.c
===================================================================
diff -u -N -r7a5c74031f47cee0058b75eea5131706a050617e -r1ed65d1a290eee7055d47433bae07b5232a1ddb7
--- generic/asm/nsfAssemble.c	(.../nsfAssemble.c)	(revision 7a5c74031f47cee0058b75eea5131706a050617e)
+++ generic/asm/nsfAssemble.c	(.../nsfAssemble.c)	(revision 1ed65d1a290eee7055d47433bae07b5232a1ddb7)
@@ -338,12 +338,12 @@
   //fprintf(stderr, "NsfAsmProcStub %s is called, tcd %p object %p\n", ObjStr(objv[0]), cd, cd->object);
 
   if (likely(cd->paramDefs && cd->paramDefs->paramsPtr)) {
-    ParseContext *pcPtr = (ParseContext *) NsfTclStackAlloc(interp, sizeof(ParseContext), "parse context");
+    ParseContext *pcPtr;
     ALLOC_ON_STACK(Tcl_Obj*, objc, tov);
 
     fprintf(stderr, "not implemented yet\n");
-    pcPtr = (ParseContext *)tov; // dummy operation to keep compiler quiet
 #if 0
+    pcPtr = (ParseContext *) NsfTclStackAlloc(interp, sizeof(ParseContext), "parse context");
     /*
      * We have to substitute the first element of objv with the name
      * of the function to be called. Since objv is immutable, we have
@@ -404,7 +404,6 @@
   Tcl_Obj **argv;
   AsmCompiledProc *asmProc;
   AsmProcClientData *cd;
-  Tcl_Command cmd;
   CONST char *procName = ObjStr(nameObj);
 
   if (unlikely(Tcl_ListObjGetElements(interp, argumentsObj, &argc, &argv) != TCL_OK)) {
@@ -422,8 +421,8 @@
   cd->paramDefs = NULL;
   cd->with_ad = with_ad;
 
-  cmd = Tcl_CreateObjCommand(interp, procName, NsfAsmProc,
-			     cd, NsfAsmProcDeleteProc);
+  Tcl_CreateObjCommand(interp, procName, NsfAsmProc,
+		       cd, NsfAsmProcDeleteProc);
   return TCL_OK;
 }
 
Index: generic/nsf.c
===================================================================
diff -u -N -r77b8c1919a102d9309079071f070f2f5b48d50a5 -r1ed65d1a290eee7055d47433bae07b5232a1ddb7
--- generic/nsf.c	(.../nsf.c)	(revision 77b8c1919a102d9309079071f070f2f5b48d50a5)
+++ generic/nsf.c	(.../nsf.c)	(revision 1ed65d1a290eee7055d47433bae07b5232a1ddb7)
@@ -1303,7 +1303,7 @@
 
 static int
 NsfCallObjectUnknownHandler(Tcl_Interp *interp, Tcl_Obj *nameObj) {
-  int result = 0;
+  int result;
   Tcl_Obj *ov[3];
 
   /*fprintf(stderr, "try ::nsf::object::unknown for '%s'\n", ObjStr(nameObj));*/
@@ -5142,7 +5142,7 @@
       }
     }
     if (format) {
-      Tcl_Obj *savedResultObj = NULL;
+      Tcl_Obj *savedResultObj;
 
       ALLOC_ON_STACK(Tcl_Obj*, 3, ov);
       savedResultObj = Tcl_GetObjResult(interp);
@@ -5791,9 +5791,8 @@
 
 static void
 AssertionRemoveProc(NsfAssertionStore *aStore, CONST char *name) {
-  Tcl_HashEntry *hPtr;
   if (aStore) {
-    hPtr = Tcl_CreateHashEntry(&aStore->procs, name, NULL);
+    Tcl_HashEntry *hPtr = Tcl_CreateHashEntry(&aStore->procs, name, NULL);
     if (hPtr) {
       NsfProcAssertion *procAss =
         (NsfProcAssertion *) Tcl_GetHashValue(hPtr);
@@ -5832,10 +5831,10 @@
 
 static void
 AssertionRemoveStore(NsfAssertionStore *aStore) {
-  Tcl_HashSearch hSrch;
-  Tcl_HashEntry *hPtr;
-
   if (aStore) {
+    Tcl_HashSearch hSrch;
+    Tcl_HashEntry *hPtr;
+
     for (hPtr = Tcl_FirstHashEntry(&aStore->procs, &hSrch); hPtr;
          hPtr = Tcl_FirstHashEntry(&aStore->procs, &hSrch)) {
       /*
@@ -5970,7 +5969,6 @@
 static int
 AssertionCheck(Tcl_Interp *interp, NsfObject *object, NsfClass *cl,
                CONST char *method, int checkOption) {
-  NsfProcAssertion *procs;
   int result = TCL_OK;
   NsfAssertionStore *aStore;
 
@@ -5982,7 +5980,7 @@
   assert(object->opt);
 
   if (checkOption & object->opt->checkoptions) {
-    procs = AssertionFindProcs(aStore, method);
+    NsfProcAssertion *procs = AssertionFindProcs(aStore, method);
     if (procs) {
       switch (checkOption) {
       case CHECK_PRE:
@@ -14299,7 +14297,7 @@
 			    object, cl, methodName, frameType, 0);
 #endif
   } else if (result == TCL_OK) {
-    NsfCallStackContent *topCscPtr = NULL;
+    NsfCallStackContent *topCscPtr;
     int isLeafNext;
 
     /*
@@ -24080,7 +24078,7 @@
 static int
 NsfObjInfoPrecedenceMethod(Tcl_Interp *interp, NsfObject *object,
                                         int withIntrinsicOnly, CONST char *pattern) {
-  NsfClasses *precedenceList = NULL, *pl;
+  NsfClasses *precedenceList, *pl;
   Tcl_Obj *resultObj = Tcl_NewObj();
 
   precedenceList = ComputePrecedenceList(interp, object, pattern, !withIntrinsicOnly, 1);