@@ -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":"->",