Index: generic/nsfCompile.c
===================================================================
diff -u -r880487204ff2da18d2d25ebd727b9b4bbda86c8e -r92ab630ebd3c1b907e3d0fdf97cc07914245c028
--- generic/nsfCompile.c	(.../nsfCompile.c)	(revision 880487204ff2da18d2d25ebd727b9b4bbda86c8e)
+++ generic/nsfCompile.c	(.../nsfCompile.c)	(revision 92ab630ebd3c1b907e3d0fdf97cc07914245c028)
@@ -7,7 +7,7 @@
  *      for naming changes etc., but requires more work to be revived. The
  *      code is currently deactivated.
  *
- * Copyright (C) 2005-2013 Gustaf Neumann
+ * Copyright (C) 2005-2014 Gustaf Neumann
  *
  * Permission is hereby granted, free of charge, to any person obtaining a
  * copy of this software and associated documentation files (the "Software"),
@@ -58,10 +58,17 @@
 }
 
 
+static int initProcNsCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
+		  CompileEnv *envPtr) nonnull(1) nonnull(2) nonnull(3);
+
 static int
 initProcNsCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
 		  CompileEnv *envPtr) {
 
+  assert(interp);
+  assert(parsePtr);
+  assert(envPtr);
+
   if (parsePtr->numWords != 1) {
 	Tcl_ResetResult(interp);
 	Tcl_AppendToObj(Tcl_GetObjResult(interp),
@@ -76,10 +83,17 @@
   return TCL_OK;
 }
 
+static int nextCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
+		  CompileEnv *envPtr) nonnull(1) nonnull(2) nonnull(3);
+
 static int
 nextCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
 		  CompileEnv *envPtr) {
 
+  assert(interp);
+  assert(parsePtr);
+  assert(envPtr);
+
   if (parsePtr->numWords != 1) 
     return TCL_OUT_LINE_COMPILE;
     
@@ -88,10 +102,18 @@
     
   return TCL_OK;
 }
+
+static int selfCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
+		  CompileEnv *envPtr) nonnull(1) nonnull(2) nonnull(3);
+
 static int
 selfCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
 		  CompileEnv *envPtr) {
 
+  assert(interp);
+  assert(parsePtr);
+  assert(envPtr);
+
   if (parsePtr->numWords != 1) 
     return TCL_OUT_LINE_COMPILE;
     
@@ -100,12 +122,21 @@
     
   return TCL_OK;
 }
+
+static int selfDispatchCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
+		  CompileEnv *envPtr) nonnull(1) nonnull(2) nonnull(3);
+
 static int
 selfDispatchCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
 		  CompileEnv *envPtr) {
 
   Tcl_Token *tokenPtr;
   int code, wordIdx;
+
+  assert(interp);
+  assert(parsePtr);
+  assert(envPtr);
+
   /*
   fprintf(stderr, "****** selfDispatchCompile words=%d tokens=%d, avail=%d\n",
 	  parsePtr->numWords, parsePtr->numTokens, parsePtr->tokensAvailable);
@@ -158,6 +189,7 @@
 void
 NsfBytecodeInit() {
   int i;
+
   for(i=0; i<LAST_INSTRUCTION; i++) {
     if ((instructions[i].bytecode = 
        TclRegisterUserOpcode(&instructionTable[i],