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
@@ -1,8 +1,8 @@
 diff -uNr tcc-0.9.26.orig/libtcc.c tcc-0.9.26-1tclio/libtcc.c
 --- tcc-0.9.26.orig/libtcc.c	2013-02-15 08:24:00.000000000 -0600
-+++ tcc-0.9.26-1tclio/libtcc.c	2014-05-02 01:30:08.967140003 -0500
++++ tcc-0.9.26-1tclio/libtcc.c	2014-05-22 11:58:28.746517000 -0500
 @@ -669,7 +669,7 @@
      bf->line_num = 1;
      bf->ifndef_macro = 0;
      bf->ifdef_stack_ptr = s1->ifdef_stack_ptr;
 -    bf->fd = -1;
@@ -41,11 +41,11 @@
 +        fd = Tcl_GetStdChannel(TCL_STDIN);
 +        filename = "stdin";
 +    } else {
 +        path = Tcl_NewStringObj(filename,-1);
 +        Tcl_IncrRefCount(path);
-+        fd = Tcl_FSOpenFileChannel(NULL,path, "r", 0);
++        fd = Tcl_FSOpenFileChannel(NULL,path, "RDONLY BINARY", 0);
 +        Tcl_DecrRefCount(path);
 +    }
 +
 +    if ((s1->verbose == 2 && fd != NULL) || s1->verbose == 3)
 +        printf("%s %*s%s\n", fd == NULL ? "nf":"->",