1
2
3
4
5
6
7
8
9
10
|
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
@@ -669,7 +669,7 @@
bf->line_num = 1;
bf->ifndef_macro = 0;
bf->ifdef_stack_ptr = s1->ifdef_stack_ptr;
- bf->fd = -1;
+ bf->fd = NULL;
bf->prev = file;
|
|
|
1
2
3
4
5
6
7
8
9
10
|
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-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;
+ bf->fd = NULL;
bf->prev = file;
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
+
+ if (strcmp(filename, "-") == 0) {
+ fd = Tcl_GetStdChannel(TCL_STDIN);
+ filename = "stdin";
+ } else {
+ path = Tcl_NewStringObj(filename,-1);
+ Tcl_IncrRefCount(path);
+ fd = Tcl_FSOpenFileChannel(NULL,path, "r", 0);
+ Tcl_DecrRefCount(path);
+ }
+
+ if ((s1->verbose == 2 && fd != NULL) || s1->verbose == 3)
+ printf("%s %*s%s\n", fd == NULL ? "nf":"->",
(int)(s1->include_stack_ptr - s1->include_stack), "", filename);
- if (fd < 0)
|
|
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
+
+ if (strcmp(filename, "-") == 0) {
+ fd = Tcl_GetStdChannel(TCL_STDIN);
+ filename = "stdin";
+ } else {
+ path = Tcl_NewStringObj(filename,-1);
+ Tcl_IncrRefCount(path);
+ 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":"->",
(int)(s1->include_stack_ptr - s1->include_stack), "", filename);
- if (fd < 0)
|