Index: build/tcc-patches/0.9.26/tcc-0.9.26-tclio.diff
==================================================================
--- build/tcc-patches/0.9.26/tcc-0.9.26-tclio.diff
+++ build/tcc-patches/0.9.26/tcc-0.9.26-tclio.diff
@@ -95,16 +95,36 @@
      if (size <= 0) {
          tcc_error_noabort("could not read header");
          goto the_end;
 diff -uNr tcc-0.9.26.orig/tcc.c tcc-0.9.26-1tclio/tcc.c
 --- tcc-0.9.26.orig/tcc.c	2013-02-15 08:24:00.000000000 -0600
-+++ tcc-0.9.26-1tclio/tcc.c	2014-06-21 00:04:24.170011999 -0500
-@@ -248,7 +248,7 @@
++++ tcc-0.9.26-1tclio/tcc.c	2014-06-21 00:19:39.740011999 -0500
+@@ -18,6 +18,10 @@
+  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+  */
+ 
++#ifdef USE_TCL_STUBS
++#define LIBTCC_USE_TCL_STUBS
++#undef USE_TCL_STUBS
++#endif
+ #ifdef ONE_SOURCE
+ #include "libtcc.c"
+ #else
+@@ -248,7 +252,16 @@
      int64_t start_time = 0;
      const char *first_file = NULL;
  
 -    s = tcc_new();
++#ifdef LIBTCC_USE_TCL_STUBS
++    Tcl_Interp *interp;
++
++    interp = Tcl_CreateInterp();
++    if (interp != NULL) {
++        Tcl_InitStubs(interp, "8.4", 0);
++    }
++#endif
++
 +    s = tcc_new(NULL);
      s->output_type = TCC_OUTPUT_EXE;
  
      optind = tcc_parse_args(s, argc - 1, argv + 1);
 diff -uNr tcc-0.9.26.orig/tcc.h tcc-0.9.26-1tclio/tcc.h