Remove from the TCL interface some old code associated with sqlite3_analyzer.

FossilOrigin-Name: 01f2271e51751ff66061f65556a5e324f243756a

1 files changed, 3 insertions, 13 deletions

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index ca433acb8..604e93795 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -3447,16 +3447,6 @@ static char zMainloop[] =
 ;
 #endif
 
-/*
-** If the macro TCLSH is two, then get the main loop code out of
-** the separate file "spaceanal_tcl.h".
-*/
-#if TCLSH==2
-static char zMainloop[] = 
-#include "spaceanal_tcl.h"
-;
-#endif
-
 #define TCLSH_MAIN main   /* Needed to fake out mktclapp */
 int TCLSH_MAIN(int argc, char **argv){
   Tcl_Interp *interp;
@@ -3528,7 +3518,7 @@ int TCLSH_MAIN(int argc, char **argv){
 #endif
   }
 #endif
-  if( argc>=2 || TCLSH==2 ){
+  if( argc>=2 ){
     int i;
     char zArgc[32];
     sqlite3_snprintf(sizeof(zArgc), zArgc, "%d", argc-(3-TCLSH));
@@ -3539,14 +3529,14 @@ int TCLSH_MAIN(int argc, char **argv){
       Tcl_SetVar(interp, "argv", argv[i],
           TCL_GLOBAL_ONLY | TCL_LIST_ELEMENT | TCL_APPEND_VALUE);
     }
-    if( TCLSH==1 && Tcl_EvalFile(interp, argv[1])!=TCL_OK ){
+    if( Tcl_EvalFile(interp, argv[1])!=TCL_OK ){
       const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
       if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp);
       fprintf(stderr,"%s: %s\n", *argv, zInfo);
       return 1;
     }
   }
-  if( argc<=1 || TCLSH==2 ){
+  if( argc<=1 ){
     Tcl_GlobalEval(interp, zMainloop);
   }
   return 0;