Index: generic/asm/nsfAssemble.c
===================================================================
diff -u -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;
 }